Процедура и функция в Паскаль

Процедуры и функции
Процедура – это часть программы, выполняющая некоторое законченное действие. Каждая процедура имеет имя и список параметров. Параметр – это значение, от которого зависит выполнение процедуры. Процедуры описываются между разделом описания переменных и телом программы.

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 процедура и функция это function x*x in Pascal Ghjwtlehf d gfcrfkt процедура паскаль