Delphi. Pascal

Материалы

Урок 11. Процедуры

Объявление процедуры

procedure ИмяПроцедуры(var Параметр1: Тип1;
var Параметр2: Тип2; var ПараметрJ: TипJ } ;
const
{ описание констант }
var
{ описание переменных }
begin
{ инструкции процедуры }
end;

Процедуры

Процедура	Пример процедуры для обмена значений между целыми переменными m и n
program имя-программы;	program primer; var x,y: integer;
procedure имя(параметры);	procedure swap(var m,n:integer);
описания локальных величин	var s: integer;
begin	begin
операторы процедуры	s:=m; m:=n; n:=s
end;	end;
BEGIN	BEGIN
операторы программы	read(x,y); swap(x,y); writeln(x:10,y:10)
END.	END.

 

Объявление и использование процедуры:

...
//Объявление процедуры.
procedure ShowXY(X, Y: Single);
begin
 Writeln('X=', X, ', Y=', Y);
end;
begin
 //Вызов процедуры.
 ShowXY(2, 4.5);
 Readln;
end.

 

Общий пример:

//Объявление процедур.
procedure Show(); //Скобки можно не писать.
begin
 Writeln('X=0, Y=0');
end;
procedure ShowXY(X: Integer; Y: Single);
begin
 Writeln('X=', X, ', Y=', Y);
end;
begin
 //Вызов процедуры.
 Show; //Скобки можно не писать.
 ...