Примеры структур программ с процедурами

Пример. Структура программы с процедурой

Program prog1; {Основная программа}
 type
 var
 .....
 Procedure NN(параметры); {Заголовок процедуры}
 const
 type
 var
 begin
 {тело процедуры}
 end;
......
Begin {Начало основной программы}
. . . . . . {Тело основной программы}
End. {Конец основной программы}

Пример. Процедура с параметрами-значениями

program DrawLine;
................
Procedure GorLine(n:integer;sim:char);
 {n,sim формальные параметры}
 var
 i: integer; {локальная переменная}
 bеgin
 for i:= 1 to n do write(sim); 
 end;
................
begin
 GorLine(25,'+'); {факт.параметры}
 end.

Пример. Процедура со смешанными параметрами

Procedure SumXY(x,y:real;var z,q:real);
{x,y-парам.-значения; z,q- парам.-переменные}
begin
 z:=x+y;
 if z<0 then q:=-z else q:=z;
end; 
...............
begin
 SumXY(3,5,h,g);
end.