Каждый оператор в программе 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 = ¢) ;
Очень интересно - Реферат: BIOS и CMOS
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}