Программа для вычисления факториала заданного числа

Так же ищут: факториал, pascal


Задание: Напишите программу для вычисления факториала заданного числа N.

Факториал целого числа N вычисляется как произведение всех чисел от 1 до N (включая N);

План решения:

1. Считываем с клавиатуры число
2. В цикле (от 1 до N) наращиваем переменную факториала, умножая текущее значение на ключ цикла
3. Выводим факториал на экран

Решение на Turbo Pascal 7.


program factorial;
   var n:integer;
        f,i:integer;
begin
    write('Vvedite chislo: ');
    readln(n);
    f:=1;
    for i:=2 to n do
         f:=f*i;
    writeln('factorial ',n,' raven ',f);
    readln;
end.

Блоксхема:

Факториал числа N

Факториал числа N

Блоксхема создана с помощью редактора http://www.gliffy.com

Метки:

Комментарии запрещены.