Рабочая тетрадь Язык программирования Турбо Паскаль

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ
ФГОУ СПО «ПЕНЗЕНСКИЙ АГРАРНЫЙ - ТЕХНИКУМ»














Р А Б О Ч А Я Т Е Т Р А Д Ь

ПО ИНФОРМАТИКЕ

Язык программирования Турбо Паскаль, система программирования Турбо Паскаль




















г. Пенза, 2008 г.
ТЕМА ««Язык программирования Турбо Паскаль, система программирования Турбо Паскаль».

ПРАКТИЧЕСКАЯ РАБОТА №1.

Наименование работы: «Разработка и программирование задач с линейной структурой».

ЗАДАНИЕ 1.

Цель задания: получить навыки программирования задач с линейной структурой, а также навыки работы в среде программирования Турбо Паскаль.
Задача 1: заданы длины 3-х сторон треугольника, вычислить его площадь и периметр.
Решение: пусть а, b, с – длины сторон треугольника. Необходимо найти S – площадь, Р – периметр треугольника. Воспользуемся формулой Герона:

13 EMBED Equation.3 1415, где r – полупериметр.

Исходными данными являются величины а, b, с, результатом – S и P.
Составим блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль:

























Задача 2: заданы длины 2-х катетов в прямоугольном треугольнике. Найти длину гипотенузы и площадь треугольника.
Решение: пусть a, b– катеты треугольника, а с – гипотенуза. Необходимо найти S – площадь и С - длину гипотенузы. Воспользуемся следующими формулами:

13 EMBED Equation.3 1415,
13 EMBED Equation.3 1415

Исходными данными являются величины а, в, результатом – S и С.
Составим блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль:
























ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЙ НА КОМПЬЮТЕРЕ.
1. Запустить среду программирования Турбо Паскаль, щелкнув 2 раза ЛКМ на ярлыке.
2. В окне редактора введите текст первой программы.
3. Сохранить текст программы под именем zadacha1 (zadacha2), для чего выбрать команду File – Save as и в открывшемся окне ввести имя файла (не более 8 символов), расширение .pas добавиться автоматически. Нажать кнопку ОК.
4. Выполнить компилирование программы с помощью команды Compile – Compile (или нажать одновременно клавиши Alt и F9). Если программа не содержит ошибок, то появится сообщение об успешной компиляции. Если в программе есть ошибки, то появится сообщение об ошибке, код ошибки, а текстовый курсор покажет место ошибки.
5. Запустить программу на выполнение, для чего выбрать команду Run – Run (или нажать одновременно клавиши Ctrl и F9). Откроется пользовательский экран (User Screen), в котором нужно ввести исходные данные (для Задачи 1: а = 125.7; b = 63.8; с = 123.5; для Задачи 2: a = 74.5; b =56.9). Для возврата к окну с текстом программы используется клавиша Esc.
6. Выполнить команду Debug – Output и в нижней части экрана появится пользовательский экран с исходными данными и результатом.
7. Показать результат выполнения программы преподавателю, записать результат в тетрадь.

ЗАДАНИЕ 2 (для самостоятельного выполнения)

Цель задания: закрепить навыки программирования задач с линейной структурой, а также навыки работы в среде программирования Турбо Паскаль.

Составить алгоритм и программу на языке программирования Турбо Паскаль для решения следующих задач:
Рассчитать объем и площадь полной поверхности конуса по формулам: V = 1/3(R2H; S = (RL + (R2.
Рассчитать объем и площадь полной поверхности цилиндра по формулам: V = (R2H; S = 2(RH + 2(R2.
Вычислить сумму и произведение трех чисел A, B, C (целого типа).

Показать результаты выполнения программ преподавателю, записать результаты в тетрадь.


Контрольные вопросы
Какой алгоритм называется линейным?
Назовите основные символы алфавита языка программирования Турбо Паскаль?
Каковы приоритеты выполнения операций?
Какие правила следует соблюдать при записи математических выражений на языке программирования Турбо Паскаль?
Для чего необходимо компилировать программу?
Как запустить программу на выполнение?
Как увидеть результаты выполнения программы на экране?
Можно ли копировать фрагменты программы?
Какое расширение имеют файлы, созданные в среде программирования Турбо Паскаль?
Как открыть файл в среде программирования Турбо Паскаль?
Как создать файл в среде программирования Турбо Паскаль?
ПРАКТИЧЕСКАЯ РАБОТА №2.

Наименование работы: «Разработка и программирование задач с разветвляющейся структурой».

ЗАДАНИЕ 1.

Цель задания: получить навыки программирования задач с разветвляющейся структурой, а также навыки работы в среде программирования Турбо Паскаль.

Задача 1: решить квадратное уравнение ax2 + bx + c, если известны коэффициенты а, b, с.
Решение: чтобы решить квадратное уравнение (т.е. определить значение х), необходимо воспользоваться следующими формулами:
13 EMBED Equation.3 1415

Исходными данными являются величины а, b, c, результатом – x1 и x2.
Составим блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль:


























Задача 2: заданы числа a и b. Найти значение х по формулам:
13 EMBED Equation.3 1415

Исходными данными являются величины а, в, результатом – х.
Составим блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль:






















ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЙ НА КОМПЬЮТЕРЕ.
1. Запустить среду программирования Турбо Паскаль, щелкнув 2 раза ЛКМ на ярлыке.
2. В окне редактора введите текст первой программы.
3. Сохранить текст программы под именем zadacha6 (zadacha7), для чего выбрать команду File – Save as и в открывшемся окне ввести имя файла (не более 8 символов), расширение .pas добавиться автоматически. Нажать кнопку ОК.
4. Выполнить компилирование программы с помощью команды Compile – Compile (или нажать одновременно клавиши Alt и F9). Если программа не содержит ошибок, то появится сообщение об успешной компиляции. Если в программе есть ошибки, то появится сообщение об ошибке, код ошибки, а текстовый курсор покажет место ошибки.
5. Запустить программу на выполнение, для чего выбрать команду Run – Run (или нажать одновременно клавиши Ctrl и F9). Откроется пользовательский экран (User Screen), в котором нужно ввести исходные данные (для Задачи 6: а = 125; b = 68; с = 15; для Задачи 7: a = 75; b =69). Для возврата к окну с текстом программы используется клавиша Esc.
6. Выполнить команду Debug – Output и в нижней части экрана появится пользовательский экран с исходными данными и результатом.
7. Показать результат выполнения программы преподавателю, записать результат в тетрадь.


ЗАДАНИЕ 2 (для самостоятельного выполнения)

Цель задания: закрепить навыки программирования задач с разветвляющейся структурой, а также навыки работы в среде программирования Турбо Паскаль.

Составить алгоритм и программу на языке программирования Турбо Паскаль для решения следующих задач:
Найти максимальное из двух чисел a и b.
Найти минимальное из трех чисел a, b, c.

Показать результаты выполнения программ преподавателю.

Контрольные вопросы
Какой алгоритм называется разветвляющимся?
Какой оператор служит для организации вычислительного процесса в зависимости от какого-либо логического условия?
Назовите полную форму условного оператора?
Назовите сокращенную форму условного оператора?
Чем отличается оператор Writeln от оператора Write?
Как выполняется оператор Read?
Как удалить строку из текста программы?
Как войти в главное меню программы?
Из каких разделов состоит программа на Турбо Паскале?
Как выйти из среды программирования Турбо Паскаль?




ПРАКТИЧЕСКИЕ РАБОТЫ №3,4 .

Наименование работы: «Разработка и программирование задач с циклической структурой».

ЗАДАНИЕ 1.

Цель задания: получить навыки программирования задач с циклической структурой, а также навыки работы в среде программирования Турбо Паскаль.
Задача 1: найти сумму квадратов всех натуральных чисел от 1 до 100, используя 3 вида циклов (Repeat - «До», While – «Пока», For – цикл с параметрами)

Составим блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль:

Цикл «До» (оператор Repeat)




























Цикл «Пока» (оператор While)





























Цикл с заранее известным числом повторений (цикл с параметром)
(оператор For)

Program PARAMETR;
Var A:integer;
S:longint;
Begin
S:=0;
for A:=1 to 100 do S:=S+A*A;
Writeln (S =’, S);
end.





ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЙ НА КОМПЬЮТЕРЕ.
1. Запустить среду программирования Турбо Паскаль, щелкнув 2 раза ЛКМ на ярлыке.
2. В окне редактора введите текст первой программы.
3. Сохранить текст программы, для чего выбрать команду File – Save as и в открывшемся окне ввести имя файла (не более 8 символов), расширение .pas добавиться автоматически. Нажать кнопку ОК.
4. Выполнить компилирование программы с помощью команды Compile – Compile (или нажать одновременно клавиши Alt и F9). Если программа не содержит ошибок, то появится сообщение об успешной компиляции. Если в программе есть ошибки, то появится сообщение об ошибке, код ошибки, а текстовый курсор покажет место ошибки.
5. Запустить программу на выполнение, для чего выбрать команду Run – Run (или нажать одновременно клавиши Ctrl и F9).
6. Выполнить команду Debug – Output и в нижней части экрана появится пользовательский экран с результатом.
7. Показать результат выполнения программы преподавателю, записать результат в тетрадь.

ЗАДАНИЕ 2 (для самостоятельного выполнения)

Цель задания: закрепить навыки программирования задач с циклической структурой, а также навыки работы в среде программирования Турбо Паскаль.

Составить алгоритм и программу на языке программирования Турбо Паскаль для решения следующих задач:
Вычислить 13 EMBED Equation.3 1415 при n = 8.
Вычислить 13 EMBED Equation.3 1415 при m = 3, n = 17.
Вычислить F = 1*2* *m = m! если m = 6.
Вычислить 13 EMBED Equation.3 1415, при n = 10.
Указание: для решения задач можно использовать любой оператор цикла.
Показать результаты выполнения программ преподавателю, записать результаты в тетрадь.





Контрольные вопросы
Какой алгоритм называется циклическим?
Что такое «тело» цикла?
Какие операторы цикла вы знаете?
Чем отличается цикл «До» от цикла «Пока»?
Опишите структуру оператора For?
Что называется переменной- счетчиком?


ПРАКТИЧЕСКИЕ РАБОТЫ №5, 6

Наименование работы: «Разработка и программирование задач с массивами».

ЗАДАНИЕ 1.

Цель задания: получить навыки программирования задач с массивами, а также навыки работы в среде программирования Турбо Паскаль.

Задача 1: дан массив Х, состоящий из n элементов. Найти сумму элементов этого массива.
Составим блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль:


















ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЯ НА КОМПЬЮТЕРЕ.
1. Запустить среду программирования Турбо Паскаль, щелкнув 2 раза ЛКМ на ярлыке.
2. В окне редактора введите текст программы.
3. Сохранить текст программы, для чего выбрать команду File – Save as и в открывшемся окне ввести имя файла (не более 8 символов), расширение .pas добавиться автоматически. Нажать кнопку ОК.
4. Выполнить компилирование программы с помощью команды Compile – Compile (или нажать одновременно клавиши Alt и F9). Если программа не содержит ошибок, то появится сообщение об успешной компиляции. Если в программе есть ошибки, то появится сообщение об ошибке, код ошибки, а текстовый курсор покажет место ошибки.
5. Запустить программу на выполнение, для чего выбрать команду Run – Run (или нажать одновременно клавиши Ctrl и F9). Откроется пользовательский экран (User Screen), в котором нужно ввести исходные данные:

Х[1]=5; X[2]=7; X[3]=3; X[4]=-2; X[5]=4; X[6]=1; X[7]=9.

Для возврата к окну с текстом программы используется клавиша Esc.
6. Выполнить команду Debug – Output и в нижней части экрана появится пользовательский экран с результатом.
7. Показать результат выполнения программы преподавателю, записать результат в тетрадь.

Задача 2: дан массив Х, состоящий из n элементов. Найти произведение элементов этого массива.

ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЯ
1. Самостоятельно составить блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль.
Указание: измените блок-схему и программу расчета суммы элементов массива таким образом, чтобы рассчитать произведение элементов массива.
2. Ввести текст программы, сохранить программу.
3. Выполнить программу, введя те же исходные данные, что и в предыдущей задаче.
4. Показать результат выполнения программы преподавателю, записать результат в тетрадь.


ЗАДАНИЕ 2.

Цель задания: закрепить навыки программирования задач с массивами, а также навыки работы в среде программирования Турбо Паскаль.

Задача 3: дан массив Х, состоящий из n элементов. Найти максимальный элемент массива и номер, под которым он хранится в массиве.
Алгоритм решения задачи следующий: предположим, что первый элемент массива является максимальным и запишем его в переменной MAX, а в NMAX – его номер (т.е. 1). Затем в цикле сравниваем все элементы, начиная со 2-го с максимальным. Если текущий элемент массива оказывается больше максимального, то записываем его в переменную MAX, а в переменную NMAX – текущее значение индекса i (номера).
Составим блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль:



























ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЯ НА КОМПЬЮТЕРЕ.
1. Запустить среду программирования Турбо Паскаль, щелкнув 2 раза ЛКМ на ярлыке.
2. В окне редактора введите текст программы.
3. Сохранить текст программы, для чего выбрать команду File – Save as и в открывшемся окне ввести имя файла (не более 8 символов), расширение .pas добавиться автоматически. Нажать кнопку ОК.
4. Выполнить компилирование программы с помощью команды Compile – Compile (или нажать одновременно клавиши Alt и F9). Если программа не содержит ошибок, то появится сообщение об успешной компиляции. Если в программе есть ошибки, то появится сообщение об ошибке, код ошибки, а текстовый курсор покажет место ошибки.
5. Запустить программу на выполнение, для чего выбрать команду Run – Run (или нажать одновременно клавиши Ctrl и F9). Откроется пользовательский экран (User Screen), в котором нужно ввести исходные данные:

Х[1]=-5; X[2]=7; X[3]=12; X[4]=0; X[5]=3;
X[6]=127; X[7]=31; Х[8]=8; X[9]=-4; X[10]=9;

Для возврата к окну с текстом программы используется клавиша Esc.
6. Выполнить команду Debug – Output и в нижней части экрана появится пользовательский экран с результатом.
7. Показать результат выполнения программы преподавателю, записать результат в тетрадь.

Задача 4: дан массив Х, состоящий из n элементов. Найти минимальный элемент массива и номер, под которым он хранится в массиве.

ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЯ
1. Самостоятельно составить блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль.
Указание: измените блок-схему и программу нахождения максимального элемента массива и его номера таким образом, чтобы найти минимальный элемент массива и номер, под которым он хранится в массиве.
2. Ввести текст программы, сохранить программу.
3. Выполнить программу, введя те же исходные данные, что и в предыдущей задаче.
4. Показать результат выполнения программы преподавателю, записать результат в тетрадь.

Задача 5: дан массив Х, состоящий из n целых чисел. Расположить элементы массива в порядке возрастания их значения.
Алгоритм решения задачи следующий: сравним первый элемент массива со вторым, если первый окажется больше второго, то поменяем их местами. Те же действия выполним для второго и третьего, третьего и четвертого, i-го и (i+1)-го, (n-1)-го и n-го элементов. В результате этих действий самый большой элемент станет на последнее (n-е) место. Теперь повторим данный алгоритм сначала, но последний (n-й) элемент, рассматривать не будем, т.к. он уже занял свое место. После проведения данной операции самый большой элемент оставшегося массива станет на (n-1)-е место. Так повторяем до тех пор, пока не упорядочим весь массив.
Составим блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль:































ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЯ НА КОМПЬЮТЕРЕ.
1. Запустить среду программирования Турбо Паскаль, щелкнув 2 раза ЛКМ на ярлыке.
2. В окне редактора введите текст программы.
3. Сохранить текст программы, для чего выбрать команду File – Save as и в открывшемся окне ввести имя файла (не более 8 символов), расширение .pas добавиться автоматически. Нажать кнопку ОК.
4. Выполнить компилирование программы с помощью команды Compile – Compile (или нажать одновременно клавиши Alt и F9). Если программа не содержит ошибок, то появится сообщение об успешной компиляции. Если в программе есть ошибки, то появится сообщение об ошибке, код ошибки, а текстовый курсор покажет место ошибки.
5. Запустить программу на выполнение, для чего выбрать команду Run – Run (или нажать одновременно клавиши Ctrl и F9). Откроется пользовательский экран (User Screen), в котором нужно ввести исходные данные:

Х[1]=7; X[2]=3; X[3]=5; X[4]=4; X[5]=2.

Для возврата к окну с текстом программы используется клавиша Esc.
6. Выполнить команду Debug – Output и в нижней части экрана появится пользовательский экран с результатом.
7. Показать результат выполнения программы преподавателю, записать результат в тетрадь.

Задача 6: дан массив Х, состоящий из n целых чисел. Расположить элементы массива в порядке убывания их значения.

ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЯ
1. Самостоятельно составить блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль.
2. Ввести текст программы, сохранить программу.
3. Выполнить программу, введя те же исходные данные, что и в предыдущей задаче.
4. Показать результат выполнения программы преподавателю, записать результат в тетрадь.

Задача 7: дан массив Х, состоящий из n элементов. Найти сумму всех положительных элементов массива.

ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЯ
1. Самостоятельно составить блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль.
2. Ввести текст программы, сохранить программу.
3. Выполнить программу, введя следующие исходные данные:

Х[1]=-5; X[2]=17; X[3]=-3; X[4]=-22; X[5]=14; X[6]=-1; X[7]=9.


Показать результат выполнения программы преподавателю, записать результат в тетрадь.

Задача 8: дан массив Х, состоящий из n элементов. Найти произведение всех отрицательных элементов массива.

ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЯ
1. Самостоятельно составить блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль.
2. Ввести текст программы, сохранить программу.
3. Выполнить программу, введя следующие исходные данные:

Х[1]=-5; X[2]=17; X[3]=-3; X[4]=-22; X[5]=14; X[6]=-1; X[7]=9.


Показать результат выполнения программы преподавателю, записать результат в тетрадь.


Контрольные вопросы
Какие данные называются массивом?
Какой оператор служит для описания массивов?
Как организовать ввод-вывод элементов массива?
Опишите алгоритм нахождения суммы элементов массива?
Опишите алгоритм нахождения произведения элементов массива?
Опишите алгоритм поиска максимального элемента массива и его номера?
Опишите алгоритм поиска минимального элемента массива и его номера?
Опишите алгоритм упорядочивания элементов в массиве по возрастанию?
Опишите алгоритм упорядочивания элементов в массиве по убыванию?

























ПРАКТИЧЕСКАЯ РАБОТА №7

Наименование работы: «Разработка процедур (подпрограмм) и функций.

ЗАДАНИЕ 1.

Цель задания: получить навыки разработки подпрограмм и функций.

Задача 1: составить процедуру (подпрограмму) вычисления степени числа a:
an, где а, n – целые числа.

Составим программу вычисления степени числа а на языке программирования Турбо Паскаль:

Program STEPEN;
Var p,a,n,i:integer;
Begin
p:=1; n:=7;
writeln (a=’);
read (a)
for i:=1 to n do p:=p*a;
write (степень числа а = ’,р);
end.

Пояснения
В практике программирования часто складываются ситуации, когда одну и ту же группу операторов, реализующих определенную цель, требуется повторить без изменений в нескольких местах программы. Для избавления от столь нерациональной траты времени было предложено использовать подпрограммы.
Подпрограмма – именованная, логически законченная группа операторов языка, которую можно вызвать для выполнения любое количество раз из различных мест программы. В языке Турбо Паскаль существует 2 вида подпрограмм: процедуры и функции.
Главное отличие процедур от функций заключается в том, что результатом последних является одно единственное значение.
Каждая новая процедура или функция должна быть предварительно описана в разделе описаний процедур и функций. Для использования процедуры необходимо написать оператор вызова. Описание процедуры состоит из заголовка процедуры и ее тела. Заголовок процедуры включает служебное слово procedure, имя процедуры и заключенный в круглые скобки список формальных параметров с указанием их типов:

Procedure <имя> (<список формальных параметров>);
Например:
Procedure a17 (a:real; b,c:real; var x1,x2:real: var k:integer);

Формальные параметры отделяются точкой с запятой. После заголовка идут разделы описаний (констант, типов, переменных, процедур и функций, используемых в процедуре) и операторы языка Турбо Паскаль, реализующие алгоритм процедуры. Формальные параметры нельзя описывать в разделе описания процедуры.
Для обращения к процедуре необходимо использовать оператор вызова процедуры. Он имеет вид:
<имя процедуры> (<список_фактических_параметров>);
Например:
STEPEN (b, m, j, h);

Фактические параметры в списке отделяются друг от друга запятой. Механизм применения формальных – фактических параметров обеспечивает замену формальных параметров фактическими, что позволяет выполнять процедуру с различными данными. Между фактическими параметрами в операторе вызова процедуры и формальными параметрами в заголовке процедуры устанавливается взаимно однозначное соответствие.
Количество, типы и порядок следования формальных и фактических параметров должны совпадать.
Пример использования процедуры в программе приведен ниже:

Program PROCED1;
Var b, m, j, h:integer;
Procedure s (a,n,i:integer; var p:integer);
Begin
p:=1; n:=7;
for i:=1 to n do p:=p*a;
end;
begin
writeln (b=’);
read (b)
s (b, m, j, h)
write (степень числа b = ’, h);
end.
Функции. В Турбо Паскале есть стандартные функции (sin, ln, exp . . .), кроме них программист может воспользоваться собственными функциями, предварительно описав их в программе.
Формат описания функции:

function<имя функции> (<имя формального параметра 1>:<Тип>; <имя формального параметра 2>:<Тип>):тип результата;

Обращение к функции осуществляется по имени с указанием списка фактических параметров. Количество, типы и порядок следования формальных и фактических параметров должны совпадать:

<имя функции> (<список_фактических_параметров>);

Пример описания функций: function tan (x:real):real;
function max (x,y:real):real;

ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЯ НА КОМПЬЮТЕРЕ.
1. Запустить среду программирования Турбо Паскаль, щелкнув 2 раза ЛКМ на ярлыке.
2. В окне редактора введите текст программы PROCED1.
3. Сохранить текст программы, для чего выбрать команду File – Save as и в открывшемся окне ввести имя файла (не более 8 символов), расширение .pas добавиться автоматически. Нажать кнопку ОК.
4. Выполнить компилирование программы с помощью команды Compile – Compile (или нажать одновременно клавиши Alt и F9). Если программа не содержит ошибок, то появится сообщение об успешной компиляции. Если в программе есть ошибки, то появится сообщение об ошибке, код ошибки, а текстовый курсор покажет место ошибки.
5. Запустить программу на выполнение, для чего выбрать команду Run – Run (или нажать одновременно клавиши Ctrl и F9). Откроется пользовательский экран (User Screen), в котором нужно ввести исходные данные:

1). B = 2; 2). B = 5; 3). B = 12.

Для возврата к окну с текстом программы используется клавиша Esc.
6. Выполнить команду Debug – Output и в нижней части экрана появится пользовательский экран с результатом.
7. Показать результат выполнения программы преподавателю, записать результат в тетрадь.

Задача 2: составить процедуру (подпрограмму) вычисления суммы двух чисел a и b:
c = a + b, где а, b, c – вещественные числа.

Составим на языке программирования Турбо Паскаль программу вычисления суммы двух чисел с использованием процедуры:

Program PROCED2;
Var x,y,z:real;
Procedure SUM(a,b:real;var c:real);
Begin
c:=a=b;
end;
begin
writeln (x=’);
read (x)
writeln (y=’);
read (y);
SUM(x,y,z);
writeln (z = ’,z);
end.
ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЯ НА КОМПЬЮТЕРЕ.
1. Запустить среду программирования Турбо Паскаль, щелкнув 2 раза ЛКМ на ярлыке.
2. В окне редактора введите текст программы.
3. Сохранить текст программы, для чего выбрать команду File – Save as и в открывшемся окне ввести имя файла (не более 8 символов), расширение .pas добавиться автоматически. Нажать кнопку ОК.
4. Выполнить компилирование программы с помощью команды Compile – Compile (или нажать одновременно клавиши Alt и F9). Если программа не содержит ошибок, то появится сообщение об успешной компиляции. Если в программе есть ошибки, то появится сообщение об ошибке, код ошибки, а текстовый курсор покажет место ошибки.
5. Запустить программу на выполнение, для чего выбрать команду Run – Run (или нажать одновременно клавиши Ctrl и F9). Откроется пользовательский экран (User Screen), в котором нужно ввести исходные данные:

х = 457; y = 525.

Для возврата к окну с текстом программы используется клавиша Esc.
6. Выполнить команду Debug – Output и в нижней части экрана появится пользовательский экран с результатом.
7. Показать результат выполнения программы преподавателю, записать результат в тетрадь.

Задача 3: разработать на языке программирования Турбо Паскаль функцию вычисления суммы двух чисел a и b:
c = a + b, где а, b, c – вещественные числа.

Составим программу вычисления функции суммирования двух чисел на языке программирования Турбо Паскаль:

Program FUNC1;
Var x,y:real;
Function SUM(a,b:real):real;
Begin
SUM:=a+b;
end;
begin
writeln (x=’);
read (x)
writeln (y=’);
read (y);
writeln (SUM(x,y));
end.


ЗАДАНИЕ 2 (для самостоятельного выполнения)

Цель задания: закрепить навыки программирования задач с использованием процедур и функций, а также навыки работы в среде программирования Турбо Паскаль.

Задача 4: составить процедуру (подпрограмму) вычисления произведения трех чисел a, b, с:
z = a * b * c, где а, b, c – вещественные числа.

ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЯ
1. Самостоятельно составить на языке программирования Турбо Паскаль программу вычисления произведения трех чисел с использованием процедуры.
2. Ввести текст программы, сохранить программу.
3. Выполнить программу, введя следующие исходные данные:

a (k) = 25.7; b (m) = 12.5; c (n)= 33.

4. Показать результат выполнения программы преподавателю, записать результат в тетрадь.

Задача 5: разработать на языке программирования Турбо Паскаль функцию вычисления произведения трех чисел a, b, с:
z = a * b * c, где а, b, c – вещественные числа.

ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЯ
1. Самостоятельно составить на языке программирования Турбо Паскаль программу вычисления произведения трех чисел с использованием функции.
2. Ввести текст программы, сохранить программу.
3. Выполнить программу, введя следующие исходные данные:

a (k) = 25.7; b (m) = 12.5; c (n)= 33.

Показать результат выполнения программы преподавателю, записать результат в тетрадь.

Задача 6: разработать на языке программирования Турбо Паскаль функцию вычисления ctg(x).

ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЯ
1. Самостоятельно составить на языке программирования Турбо Паскаль программу вычисления ctg(x) с использованием функции.
2. Ввести текст программы, сохранить программу.
3. Выполнить программу, введя следующие исходные данные:

c (х) = 30.

Показать результат выполнения программы преподавателю, записать результат в тетрадь.


Контрольные вопросы
Что называется подпрограммой?
Какие виды подпрограмм используются в языке программирования Турбо Паскаль?
Чем отличается процедура от функции?
Как описывается процедура?
Как описывается функция?
Опишите оператор вызова процедуры?
Опишите оператор вызова функции?






РЕКОМЕНДУЕМАЯ ЛИТЕРАТУРА
Алексеев Е.Р., Чеснокова О.В., Павлыш В.Н., Славинская Л.В. Турбо Паскаль 7.0. – М.: НТ Пресс, 2006.
Лысенко К.Н. Информатика. (курс лекций) – Пенза: Изд-во Пензенского технологического института, 2003.
Шипунова А.В. Информатика: учеб.-справ. пособие. – М.: АСТ: Астрель: Транзиткнига, 2006.









13PAGE 15






r = (a + b + c)/2

а, в, с

начало

P = a + b + c

13 EMBED Equation.3 1415

S, P

конец


Program Ex1;
Var a,b,c,r,P,S:real;
Begin
Writeln (a= ’);
Read (a);
Writeln (b= ’);
Read (b);
Writeln (c= ’);
Read (c);
r:=(a+b+c)/2;
P:=a+b+c;
S:=SQRT(r*(r-a)*(r-b)*(r-c));
Writeln (Периметр =’,P);
Writeln (’Площадь =’,S);
end.


начало

Program Ex2;
Var a,b,c,S:real;
Begin
Writeln (a=’);
Read (a);
Writeln (’b=’);
Read (b);
С:=SQRT(a*а+b*b);
S:=(a+b)/2;
Writeln (Гипотенуза =’,С);
Writeln (’Площадь =’,S);
end.


а, в

D<0

13 EMBED Equation.3 1415

начало

S, С

13 EMBED Equation.3 1415

a, b, с


D=b2-4ac

-

+

13 EMBED Equation.3 1415

начало

конец

X1,2

конец


Program Ex6;
Var a,b,c,d,x1,x2:real;
Begin
Writeln (введите коэффициенты уравнения’);
Read (a);
Read (b);
Read (c);
D:=b*b-4*a*c;
if D<0 then writeln (корней нет’)
else
begin
x1:=(-b+sqrt(D))/2*a;
x2:=(-b-sqrt(D))/2*a;
writeln (X1 = ’,x1,’X2 = ,x2);
end;
end.


a, b

a>b

x=a/b

x

конец

x=b/a

+

-

Program Ex7;
Var a,b,x:real;
Begin
Writeln (a= );
Read (a);
Writeln (b= );
Read (b);
if a>b then x:=a/b else x:=b/a;
writeln (X = ’,x:2:2);
end.


начало

+

S

конец

А = A + 1

A
· 100

x

Корней нет

S = S + A*A

S = 0

А = 1

S

А = A + 1

S = S + A*A

A
· 100

S = 0

начало

А = 1

Program DO;
Var A:integer;
S:longint;
Begin
A:=1;
S:=0;
Repeat
S:=S+A*A;
A:=A+1;
Until A>100;
Writeln (S =’, S);
end.



-

конец

-

+

Program POKA;
Var A:integer;
S:longint;
Begin
A:=1; S:=0;
While A
·100 do
begin
S:=S+A*A;
A:=A+1;
end;
Writeln (S =’, S);
end.



начало

S = 0

S = S + A*A

конец

S

I=2,N

i=1, N

S = S + Xi

S = 0


. . .

. . .

Program SUMMA;
Var
X:array [1..7] of real;
I,N:integer;
S:real;
Begin
N:=7;
S:=0;
For i:=1 to N do
begin
writeln (X[’,i,’]=’);
readln(X[i]);
S:=S+X[i];
end;
writeln (S =’, S);
end.


I=1,N

Program MAXIMUM;
Const
N:=10;
Var
X:array [1..N] of real; i:integer;
MAX,NMAX:real;
Begin
For i:=1 to N do
begin
writeln (X[’,i,’]=’);
readln(X[i]);
end;
MAX:=X[1]; NMAX:=1;
For i:=2 to N do
If X[i]>MAX then
Begin
MAX:=X[i]; NMAX:=I;
end;
writeln (MAX = , MAX:1:3, NMAX =’, NMAX);
end.


A=1, 100


. . .

. . .

MAX=Xi
NMAX=i


MAX=X1
NMAX=1

MAX>X1

MAX,
NMAX


+

-

-

b=Xi+1
Xi+1=x1
X1=b

NMAX=i


. . .

i=1, n - j

Xi>Xi+1

j=1, n - 1

+

. . .

Program PORADOK;
Const
N:=5;
Var
X:array [1..N] of word; i,j:integer; b:word;
Begin
For i:=1 to N do
begin
writeln (X[’,i,’]=’);
readln(X[i]);
end;
writeln (Массив Х’);
For i:=1 to N do write (X[i], );
Writeln;
For j:=1 to N-1 do
For i:=1 to N-j do
If X[i]>X[i+1] then
begin
b:=X[i];
X[i]:=X[i+1];
X[i+1]:=b;
end;
writeln (Упорядоченный массив’);
For i:=1 to N do
write (X[i], );
writeln;
end.