Программа
Program DemoProc1;
Uses Crt;
Var i : Integer;
Procedure Ekran; {заголовок процедуры}
Begin {начало процедуры Ekran}
ClrScr; {очистка экрана}
GotoXY (37, 11); {курсор помещается в центр экрана}
Writeln(‘Справочник’); {вывод на экран}
End; {конец процедуры Ekran}
Begin {начало основной программы}
TextMode (2); {установка текстового режима}
for i:= 1 to 100 do Ekran; {вызов процедуры Ekran 100 раз}
End. {конец основной программы}
Пример (программа с использованием двух процедур с входными параметрами). Написать программу с использованием процедур, которая в начале каждой строки экрана выводит слово «Справочник» с сопровождением звукового сигнала. Входными параметрами первой процедуры являются номера строки и столбца вывода строки. Входным параметром второй процедуры является частота звукового сигнала.
Программа
Program DemoProc2;
Uses Crt;
Var i : Integer; {локальная переменная функции}
{Процедура Ekran
входные параметры: X, Y – номера строки и столбца}
Procedure Ekran(X, Y : Byte); {заголовок процедуры}
Begin {начало процедуры Ekran}
ClrScr; {очистка экрана}
GotoXY (X, Y);{курсор помещается в точку с координатами X Y}
Writeln(‘Справочник’); {вывод на экран слова ‘Справочник’}
End; {конец процедуры Ekran}
{Процедура Zwuk
входной параметр: X – частота звукового сигнала}
Procedure Zwuk(X : Integer); {заголовок процедуры}
Begin {начало процедуры Zwuk}
Sound(X); {генерация звука частотой Х}
Delay(10); {задержка времени 10 мс}
Nosound; {отмена звука}
End; {конец процедуры Zwuk}
Begin {начало основной программы}
TextMode (2); {установка текстового режима}
for i:= 1 to 25 do
begin
Ekran(1, i); {вызов процедуры Ekran для каждой i-й строки экрана}
{вызов процедуры Zwuk с увеличением частоты звукового сигнала}
Zwuk(100 + 10*i);
end;
End. {конец основной программы}
Пример (программа с использованием функции с входным и выходным параметрами). Составить программу с использованием функции для вычисления значения y по формуле
(П 1.1)
Программа
Program DemoFunc1;
Var
x1, y1 : Real;
{Функция F
входной параметр: x;
выходной параметр: значение, вычисленное по формуле (П 1.1)}
Function F(x : Real) : Real; {заголовок функции}
Begin {начало функции F}
{расчет значения функции в зависимости от величины x}
If x > 0 Then F:= sin(x) Else F:= cos(x);
End; {конец функции F}
Begin {начало основной программы}
Write(‘Введите x=’); Readln(x1); {ввод значения х с клавиатуры}
y1:= F(x1); {вызов функции F для расчета}
Writeln(‘Значение функции равно ’, y1:5:2);{вывод результата}
End. {конец основной программы}
Пример (программа с использованием процедуры с входным и выходным параметрами). Составить программу с использованием процедуры для вычисления значения y по формуле
(П 1.2)
Программа
Program DemoProc3;
Var
x1, y1 : Real;
{Процедура F
входной параметр: x;
выходной параметр: y вычисленное по формуле (П 1.2)}
Procedure F(x : Real; Var y : Real) {заголовок процедуры}
Begin {начало процедуры F}
{вычисление переменной y в зависимости от величины x}
If x > 0 Then y:= sin(x) Else y:= cos(x);
End; {конец процедуры F}
Begin {начало основной программы}
Write(‘Введите x=’); Readln(x1); {ввод значения х с клавиатуры}
F(x1, y1); {вызов процедуры F для расчета}
Writeln(‘Значение функции равно ’, y1:5:2);{вывод результата}
End. {конец основной программы}
Пример (программа с использованием двух процедур, в которых в качестве выходного и выходного параметров используется массив). Составить программу с использованием двух процедур, первая процедура формирует одномерный массив Y по закону, представленному ниже. Вторая процедура находит значение максимального элемента этого массива.
(П 1.3)
Значения элементов xi вводятся с клавиатуры, i = 1, 10