Процедуры и функции
Процедура – это часть программы, выполняющая некоторое законченное действие. Каждая процедура имеет имя и список параметров. Параметр – это значение, от которого зависит выполнение процедуры. Процедуры описываются между разделом описания переменных и телом программы.
Procedure <имя> (<параметр 1>:<тип 1>;
<параметр 2>:<тип 2>;
. . . . . . . . . . . . . .
<параметр 1>:<тип 1>);
<раздел локальных описаний>;
<тело процедуры>;
Пример: процедура, которая по двум заданным действительным числам печатает их в виде (x,y).
Procedure koord_wr (x,y:Real);
Begin
Write(‘(’x:0:3,’;’y:0:3,’)’);
End;
Для того, чтобы процедура выполнялась в программе, требуется в теле программы написать вызов процедуры. Вызов процедуры – это отдельная команда. В скобках у этой команды указывается значение параметра.
Пример: koord_wr (2,3);
Функции
Функция – это часть программы, выполняющая некоторое законченное действие и возвращающая результат своего выполнения. Каждая функция имеет имя, список параметров, тип возвращающего значения.
Function <имя> (<параметр 1>:<тип 1>;
<параметр 2>:<тип 2>;
. . . . . . . . . . . . . .
<параметр 1>:<тип 1>):<тип>;
<раздел локальных описаний>;
<тело функции>;
Чтобы задать значение функции нужно написать оператор присваивания с этой функцией.
Пример: написать функцию, которая выводит заданное число в куб.
Function f(x:Real):Real;
Begin
f:=x*x*x;
End;
Для того, чтобы функция производила действие, необходимо вызвать ее в программе. Вызов функции всегда является другой части команды функции.
Пример: написать программу, которая вычисляет выражение для заданного x.
Program itog;
Var x, result:Real;
Function Cube(x:Real):Real;
Begin
Cube:=x*x*x;
End;
Begin
Write(‘введите x: ’);
Read(x);
Result:=(Cube(sqrt(x)+1)/abs(x)+Cube(x))/(Cube(x*x-1)*sqrt(x));
Writeln(‘результат = ’,result:0:3);
End.
. процедуры в паскаль функции паскаля Ghjwtlehf d gfcrfkt ghjwtlehf gfcrfkm процедуры в паскале список