Современные программы очень сложны и велики по размеру. Одному человеку практически невозможно написать программу самостоятельно от начала и до конца. Современная программа конструируется из отдельных блоков. Каждый блок представляет собой структурно независимую единицу – подпрограмму. Подпрограмма – это часть программы, оформленная в виде отдельной синтаксической единицы и снабженная именем. По имени подпрограммы ее и можно вызвать в основной программе. По своей структуре подпрограмма в точности соответствует большой программе, то есть может содержать в себе любой набор команд а так же может содержать в себе собственный блок определения переменных. Подпрограммы-процедуры
Procedure NameProc ( <формальные параметры>);
var
<список локальных переменных>;
begin
<тело подпрограммы>;
end;
Думаю, понятнее всего будет разобрать пример применения подпрограмм.
Задание. Ввести 2 числа. Если первое число больше, то вычислить сумму чисел, иначе – произведение.
Program N1;
Var
A,b: byte;
Procedure Sum;
Var
S: word;
Begin
S:=a+b;
Writeln (‘сумма=’,s);
End;
Procedure Proizv;
Var
p: word;
Begin
p:=a*b;
Writeln (‘произведение=’,s);
End;
BEGIN
Writeln (‘Введите 2 числа’);
Readln (a,b);
If a>b then sum
Else proizv;
END.
