Вычисление факториала числа f=10! записать с использованием операторов цикла - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Вычисление факториала числа f=10! записать с использованием операторов цикла for, while.

Решение задачи: «Вычисление факториала числа f=10! записать с использованием операторов цикла»

textual
Листинг программы
uses crt;
var i,n,f:longint;
begin
 clrscr;
  repeat
   write('n=');
   readln(n);
  until n>=0;
  f:=1;
   for i:=1 to n do
    begin
     f:=f*i;
    end;
  writeln('Öèêëîì FOR F=',f);
 i:=1;f:=1;
  while i<=n do
   begin
    f:=f*i;
    inc(i);
   end;
  writeln('Öèêëîì WHILE F=',f);
 readkey;
end.

Объяснение кода листинга программы

Код выполняет две основные задачи:

  1. Запрашивает у пользователя число n (количество циклов), которое должно быть неотрицательным. Это делается с помощью цикла repeat-until.
  2. Вычисляет факториал числа n с помощью двух разных циклов: for и while. При этом в цикле for используется оператор присваивания f:=f*i, а в цикле while - оператор инкремента i. В конце программы выводится ключ, который, вероятно, является результатом работы программы.

Оцени полезность:

13   голосов , оценка 4.308 из 5
Похожие ответы