Обращение к подпрограмме – функции

End.

Begin

Else

End

Вegin

Begin

Обращение к подпрограмме-процедуре

Begin

Begin

If z>p then max:=z

else max:=p;

End;

Так же, как у процедуры, список формальных параметров записывается с указанием их типов.

В отличие от функции процедура вычисления max запишется так:

Procedure Max(z, p:real; var M:real);

If z>p then M:=z

else M:=p;

End;

Описание подпрограммы само по себе не вызывает ее выполнения. Чтобы выполнить процедуру, надо в нужном месте программы записать оператор обращения к процедуре. В нем необходимо указать фактические параметры, совпадающие по количеству и типу с формальными параметрами, записанными в заголовке процедуры.

Оператор обращения к процедуре имеет вид:

<имя процедуры>(<список фактических параметров>);

Порядок следования фактических параметров должен быть тем же, что и формальных параметров.

Пример: Вычислить функцию:

max(a,b) + x, x<0

y= max(a+b,a-b)

max(a²,b²)

Программа с использованием процедуры:

Program Proc; {с использованием процедуры}

Var a, b, x, c, d, y: real;

Procedure Мax(z,p:real; var M:real); {описание процедуры}

If z>p then M:=z

else M:=p;

End;

Begin {исполняемая часть программы(тело программы)}

Writeln (‘ввод a, b, x ’);

Readln (a, b, x); {1 2 3}

If x>=0 then

Max(a+b, a-b, c);

Max(sqr(a), sqr(b), d);

y:=c/d+x;

Max(a, b, c);

y:=c+x;

end;

writeln (‘y=’,y:15:4); {15-количество знаков, 4-количество знаков
после запятой}

readln;

Обращение к функции не является отдельным оператором, как обращение к процедуре, но входит в состав выражений. Например, может быть в составе выражения правой части оператора присваивания или может находиться в операторе вывода на печать.

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

Program Func; {с использованием функции}

Var a, b, c, d, y, x:real;

Function max(z, p:real):real; {описание функции}

Дата добавления: 2015-06-27