Функції в мові Pascal

Функції цілком аналогічні процедурам, за виключенням того, що вони самі можуть приймати значення. У функцію так само як і в процедуру параметри можуть передаватись як по імені, так і по значенню. Опис функції має такий вигляд:

Function <назва функції>(<список параметрів>):<тип результату>;

{опис локальних даних}

Begin

{тіло функції}

End;

Розглянемо попередній приклад з використанням функції.

Program Example4;

Function Min (a, b: Real):Real;

Begin

If a<b then Min:=a else Min:=b;

End;

Var

x, y: Real;

Begin

Readln(x, y); x:=Min(x, y)

Writeln(‘Min=’, x);

End.

Приклади програм

Приклад 9: Написати функцію для перевірки чи є натуральне число простим. Використовуючи дану функцію, вивести всі прості числа від 1 до n.

Program p9;

Function Simple (a: Word):Boolean; {передача параметрів по значенню}

Var

i: Word;

b: Boolean;

Begin

i:=2; b:=True;

i:=2;

While b and (i<=Round(Sqrt(a))) do

Begin

b:= (a mod i <> 0);

i:=i+1;

End;

Simple:=b;

End;

Var

i, n: Word;

Begin

Writeln(‘Введіть n’);

Readln(n);

For i:=2 to n do

If Simple(i) then Write(i:5);

End.

Приклад 10: Написати програму, яка впорядковує значення змінних a, b, c по зростанню.

Program p10;

Procedure Sort (var a, b: Integer); {передача параметрів по імені}

Var d: Integer;

Begin

If a>b then begin d:=a; a:=b b:=d; end

End;

Var

a, b, c: Integer;

Begin

Writeln(‘Введіть a, b, c’);

Readln(a, b, c);

Sort(a, b); Sort(a, c); Sort(b, c);

Writeln(a, b, c);

End.