Подпрограммы-функции

Подпрограммы-функции используются когда основной программе передается единственный результат. Передается он через имя функции.

Подпрограмма функции имеет следующую структуру:

Function <имя функции> (формальные параметры): <тип результата функции>;

<переменная результата>:<тип результата>;

begin

{блок оператора}

<имя функции>:<переменная результата>;

end;

Program ma;

Var

A, b,nod,nok:integer;

Function nod(x,y:integer):integer;

Begin

If x<y then

Z:=y

Else

Z:=x;

Nod:=z;

{основная программа}

Begin

Write (‘a,b=’);

Readln (a,b);

Nok:=(a*b)/nod;

Write (‘nod=’,nod);

Write (‘nok=’,nok);

Readln;

End.