Реферат: Написание программ вычисления факториалов

Каждый оператор в программе Harmonic определял переход из одного множества состояний в другое.

Рассмотрим еще один пример.

Пример 10.1. Написать программу вычисления f(n)=n! , где n - натуральное, либо равно 0.

Program Factorial (input, output);

{ Программа Factorial вычисляет значение функции п!

Input: (nÎ N)Ù(n ³ 0)

Output: (Fctrl Î N)Ù(Fctrl ³ 1)Ù(Fctrl=)

}

var i, n, fctrl : integer ; { n - исходноезначение;

fctrl - результат;

i - параметр цикла

}

begin

{Ввод исходных данных}

write (¢Введите значение n = ¢) ;

readln ( n ) ;

{Проверка корректности исходных данных}

if n<0 then writeln (¢Ошибка.¢п ¢не может быть меньше 0¢)

else

begin

if n=0 then fctrl:=1

else

begin

fctrl:=1 ;

for i:=2 to n do fctrl:=fctrl * i

end {if n=0};

{Вывод результата}

writeln (¢ При n = ¢ , n , ¢_ n! = ¢ , fctrl )

end {if n<0}

--> ЧИТАТЬ ПОЛНОСТЬЮ <--