Добавлено 30. Ноя, 2009 автор AlexR . Учебник по паскалю
Краткие теоретические сведения находятся в пункте «Модульное программирование»
Описание процедуры:
Procedure <имя> [(формальные параметры: тип);...)];
<Блок описания переменных процедуры>;
Begin
<Блок операторов>;
End;
Описываются процедуры до начала основной программы.
Несколько входных формальных параметров разных типов следует разделять точкой запятой, одинаковых типов – запятой. Данных параметров может и не быть. Количество выходных значений у процедуры равно количеству формальных параметров.
В блоке описания процедур можно описывать переменные, константы, типы, вложенные процедуры и функции, при условии, что они будут являться локальными.
Пример: Посчитать факториал числа.
program factorial;
var n:integer;
procedure fct (a:integer);
var i:byte;
P:integer;
begin
P:=1;
for i:=1 to a do P:=P*i;
write (n,'!=',P)
end;
begin
write ('Введите n:');
readln (n);
fct(n);
end.
Данный пример демонстрирует работу процедуры. На самом деле для того, чтобы посчитать факториал (или какую-нибудь сумму) один раз, не надо создавать процедуру. Посчитать это можно в основной программе.
Учебник по Паскалю