Программирование на языке высокого уровня TURBO PASCAL. Краснов С.В. - 38 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

38
имя – имя функции;
тип – тип результата значения, которое должно приобретать имя
функции.
ПРИМЕР
1. ЗАГОЛОВОК ФУНКЦИИ
FUNCTION F ( N: REAL): REAL;
2. ВЫЗОВ ФУНКЦИИ
PER: = F (K);
Пример решения задачи с использованием функции
Задача № 9. Составьте программу вычисления факториалов 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. {
Конец программы}

Страницы