Заголовок функции

FUNCTION F (N: REAL): REAL;

ВЫЗОВ ФУНКЦИИ.

PER: = F (K);

Пример решения задачи с использованием функции

Задача. Составьте программу вычисления факториалов Fn=n!, Fm=m!, Fnm=(n-m)!. Вычисление факториала оформить в виде функции с параметрами. Факториал n! представляет собой произведение n чисел натурального ряда: 1*2*3*...*n.

Программа решения задачи имеет вид:

PROGRAM FUNC;

VAR

FN,FM,FNM:INTEGER;

N,M:INTEGER;

(* ФУНКЦИЯ FAKT *)

FUNCTION FACT(K:INTEGER):INTEGER; { начало описания функции }

VAR

P,I:INTEGER; {Раздел описания локальных переменных}

BEGIN { начало операторной части функции }

P:=1;

FOR I:=1 TO K DO

P:=P*I;

FACT:=P;

END; { конец описания функции }

(* ОСНОВНАЯ ПРОГРАММА *)

BEGIN

WRITE('ВВЕДИТЕ ЗНАЧЕНИЯ N,M: ');

READ(N,M); {Ввод данных с клавиатуры}

FN:=FACT(N); {обращение к функции }

FM:=FACT(M); {обращение к функции }

FNM:=FACT(N-M); {обращение к функции }

WRITELN('FN=',FN:5); {Вывод результата }

WRITELN('FM=',FM:5); {Вывод результата }

WRITELN('FNM=',FNM:5); {Вывод результата }

END. {Конец программы}

ПРИ ИСПОЛЬЗОВАНИИ ПОДПРОГРАММ БЕЗ ПАРАМЕТРОВ:

1. Глобальные переменные объявленные в основной части программы доступны во всех процедурах программы.

2. Локальные переменные объявленные в подпрограммах доступны только в данной подпрограмме и внутренних подпрограммах, но не доступны в основной части программы.