Подпрограмма-процедура
предназначена для выполнения какой-то законченной последовательности
действий. Любая процедура начинается с заголовка. В отличие от основной
программы заголовок в процедуре обязателен. Он состоит из
зарезервированного слова procedure, за которым следует идентификатор
имени процедуры, а далее в круглых скобках – список формальных
параметров:
Procedure <имя процедуры> (<список формальных параметров>);
За заголовком могут идти такие же разделы, что и в основной программе.
В отличие от основной программы процедура завершается не точкой, а
точкой с запятой.
Пример: процедура ввода N целых чисел.
Пусть в основной программе определен тип:
Type tArr = array[1..100] of integer;
Процедура может иметь вид:
Procedure InpInt (var Mas: tArr; N: integer);
{заголовок со списком формальных параметров, проверка N<= 100
– в основной программе}
Var I: integer; {локальный параметр – параметр цикла}
Begin
Writeln (‘Введите’,N,’целых чисел’);
For I:= 1 to N do
Read (Mas[i]);
End;
Для вызова процедуры из основной программы или другой подпрограммы
следует записать оператор, состоящий из имени процедуры и списка
фактических параметров, которые должны совпадать по количеству и типам
с формальными параметрами процедуры. Например:
InpInt (M, K);
означает, что вызывается процедура InpInt для ввода К целых чисел в
массив М. Естественно, что в этом случае параметр К целого типа, а М
– массив типа tArr.
