Пример 1. Создать функцию пользователя, вычисляющую х!

Создать функцию пользователя, вычисляющую х!

Решение:

Program pr1;

Var

x: integer; y: real;

Function Fact(x: integer): real;

Var

i: integer; f: real;

begin

f:=1;

for i:=1 to x do f:=f*i; {вычисляем произведение}

Fact:=f; {имени функции присваиваем полученное значение}

end;

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

Write (‘x=’); Readln(x); {ввод значения х}

y:=Fact(x); {вызов функции с аргументом х }

Writeln(‘y=’, y:4:0); {вывод результата}

Readln;

end.

Результат:

x= 4

y= 24

Пример 2.

Создать функцию пользователя, вычисляющую гиперболический косинус

gc=

Решение:

Program pr2;

Var x: integer;

y: real;

Function gc(x:integer):real;

begin

gc:=(exp(x)+exp(-x))/2;

end;

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

Write (‘x=’); Readln(x); {ввод значения х}

y:=gc(x); {вызов функции и присваивание ее значения переменной y}

writeln('Гиперболический косинус=', y:8:4); {вывод результата}

Readln;

end.