Delphi. Pascal

Материалы

Урок 12. Функции

Объявление функции

function ИмяФункции(var Параметр1: Тип 1; var Параметр2: Тип2;
var ПараметрJ: TиnJ ) : Тип;
const
{ описание констант }
var
{ описание переменных }
begin
{ инструкции функции }
Result:=Значение;
end;

Функция

Функция	Пример функции для вычисления натуральной степени (n) целого числа (m)
program имя-программы;	program primer; var x,y: integer;
function имя(параметры): тип-результата;	function power(m,n:integer):integer;
описания локальных величин	var s,i: integer;
begin	begin
операторы функции	s:=1; for i:=1 to n do s:=s*m; power:=s
end;	end;
BEGIN	BEGIN
операторы программы	read(x,y); writeln(power(x,y))
END.	END.

 

Пример объявления и использования функции:

...
//Объявление функции.
function max(X, Y: Integer): Integer;
begin
 if X>Y then
 max:=X
 else
 max:=Y;
end;
var
 r: Integer;
begin
 //Вызов функции.
 r:=max(3, 5);
 Writeln(r);
 Readln;
end.

 

...
function max(X, Y: Integer): Integer;
...

 

...
max:=X
...
max:=Y;
...