Теоретичні відомості

У структурному програмуванні поряд із процедурами широко застосовуються функції. Відмінність від процедур полягає в тому, що результатом функції є єдине значення. Це обчислювальне значення надається ідентифікатору функції. Структура опису функції аналогічна опису процедури, і докладно ми на ній не зупинятимемося.

Наведемо приклад опису і використання функції для обчислення виразу.

Обчислення модуля оформимо як функцію користувача Modul.

proqram SumMod;

vax

X, Y: real;

function Modul (X: real);

beqin

if X<0 then X:=-X;

Modul:=X

end;

beqin

Writeln (‘Введите Х‘);

Readln (X);

Y:=Modul (X+1)+Modul (X+2);

Writeln (Y:6:3);

end.

У наступному прикладі показане обчислення цілого степеня числа, тобто степеневої функції Y=X^N. Цієї функції немає серед вбудованих функцій Паскаля, тому для її обчислення вводимо функцію користувача Deq. Піднесення числа до цілого степеня виконуємо за допомогою оператора циклу while:

Proqram Deqree;

Var

Z,F: real;

M: inteqer;

Function Deq (N: inteqer; X real) : real;

var

I: inteder; Y real;

beqin

I:=1; Y=1;

while I<=N do

beqin

Y:=Y*X; I:=I+1

end;

Deq:=Y

end;

beqin

Writeln (‘Введите Z ,M‘);

Readln (Z,M);

F:=Deq (M,Z);

Writeln (F:8:3);

end.