- Преподавателю
- Информатика
- Рабочая тетрадь Язык программирования Турбо Паскаль
Рабочая тетрадь Язык программирования Турбо Паскаль
Раздел | Информатика |
Класс | - |
Тип | Другие методич. материалы |
Автор | Волкова Н.Н. |
Дата | 02.05.2015 |
Формат | doc |
Изображения | Есть |
ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ
ФГОУ СПО «ПЕНЗЕНСКИЙ АГРАРНЫЙ - ТЕХНИКУМ»
Р А Б О Ч А Я Т Е Т Р А Д Ь
ПО ИНФОРМАТИКЕ
Язык программирования Турбо Паскаль,
система программирования Турбо Паскаль
г. Пенза, 2008 г.
ТЕМА ««Язык программирования Турбо Паскаль,
система программирования Турбо Паскаль».
ПРАКТИЧЕСКАЯ РАБОТА №1.
Наименование работы: «Разработка и программирование задач с линейной структурой».
ЗАДАНИЕ 1.
Цель задания: получить навыки программирования задач с линейной структурой, а также навыки работы в среде программирования Турбо Паскаль.
Задача 1: заданы длины 3-х сторон треугольника, вычислить его площадь и периметр.
Решение: пусть а, b, с - длины сторон треугольника. Необходимо найти S - площадь, Р - периметр треугольника. Воспользуемся формулой Герона:
, где r - полупериметр.
Исходными данными являются величины а, b, с, результатом - 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.
Задача 2: заданы длины 2-х катетов в прямоугольном треугольнике. Найти длину гипотенузы и площадь треугольника.
Решение: пусть a, b- катеты треугольника, а с - гипотенуза. Необходимо найти S - площадь и С - длину гипотенузы. Воспользуемся следующими формулами:
,
Исходными данными являются величины а, в, результатом - S и С.
Составим блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль:
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.
ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЙ НА КОМПЬЮТЕРЕ.
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/3PR2H; S = RL + PR2. -
Рассчитать объем и площадь полной поверхности цилиндра по формулам:
V = PR2H; S = 2RH + 2PR2. -
Вычислить сумму и произведение трех чисел A, B, C (целого типа).
Показать результаты выполнения программ преподавателю, записать результаты в тетрадь.
Контрольные вопросы
-
Какой алгоритм называется линейным?
-
Назовите основные символы алфавита языка программирования Турбо Паскаль?
-
Каковы приоритеты выполнения операций?
-
Какие правила следует соблюдать при записи математических выражений на языке программирования Турбо Паскаль?
-
Для чего необходимо компилировать программу?
-
Как запустить программу на выполнение?
-
Как увидеть результаты выполнения программы на экране?
-
Можно ли копировать фрагменты программы?
-
Какое расширение имеют файлы, созданные в среде программирования Турбо Паскаль?
-
Как открыть файл в среде программирования Турбо Паскаль?
-
Как создать файл в среде программирования Турбо Паскаль?
ПРАКТИЧЕСКАЯ РАБОТА №2.
Наименование работы: «Разработка и программирование задач с разветвляющейся структурой».
ЗАДАНИЕ 1.
Цель задания: получить навыки программирования задач с разветвляющейся структурой, а также навыки работы в среде программирования Турбо Паскаль.
Задача 1: решить квадратное уравнение ax2 + bx + c, если известны коэффициенты а, b, с.
Решение: чтобы решить квадратное уравнение (т.е. определить значение х), необходимо воспользоваться следующими формулами:
Исходными данными являются величины а, b, c, результатом - x1 и x2.
Составим блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль:
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.
Задача 2: заданы числа a и b. Найти значение х по формулам:
Исходными данными являются величины а, в, результатом - х.
Составим блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль:
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.
+
-
ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЙ НА КОМПЬЮТЕРЕ.
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)
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.
-
+
Цикл «Пока» (оператор While)
+
-
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.
Цикл с заранее известным числом повторений (цикл с параметром)
(оператор 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 (для самостоятельного выполнения)
Цель задания: закрепить навыки программирования задач с циклической структурой, а также навыки работы в среде программирования Турбо Паскаль.
Составить алгоритм и программу на языке программирования Турбо Паскаль для решения следующих задач:
-
Вычислить при n = 8.
-
Вычислить при m = 3, n = 17.
-
Вычислить F = 1*2* … *m = m! если m = 6.
-
Вычислить , при n = 10.
Указание: для решения задач можно использовать любой оператор цикла.
Показать результаты выполнения программ преподавателю, записать результаты в тетрадь.
Контрольные вопросы
-
Какой алгоритм называется циклическим?
-
Что такое «тело» цикла?
-
Какие операторы цикла вы знаете?
-
Чем отличается цикл «До» от цикла «Пока»?
-
Опишите структуру оператора For?
-
Что называется переменной- счетчиком?
ПРАКТИЧЕСКИЕ РАБОТЫ №5, 6
Наименование работы: «Разработка и программирование задач с массивами».
ЗАДАНИЕ 1.
Цель задания: получить навыки программирования задач с массивами, а также навыки работы в среде программирования Турбо Паскаль.
Задача 1: дан массив Х, состоящий из n элементов. Найти сумму элементов этого массива.
Составим блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль:
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.
ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЯ НА КОМПЬЮТЕРЕ.
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 (номера).
Составим блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль:
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.
. . .
-
+
. . .
ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЯ НА КОМПЬЮТЕРЕ.
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)-е место. Так повторяем до тех пор, пока не упорядочим весь массив.
Составим блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль:
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.
. . .
-
. . .
+
ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЯ НА КОМПЬЮТЕРЕ.
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.