| 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; //Скобки можно не писать.
...
| |
