Решаем задачи Абрамян на Паскале. Recur1

Recur1. Описать рекурсивную функцию Fact($$N$$) вещественного типа, вычисляющую значение факториала $$N!=1*2*…*N$$ ($$N>0$$ — параметр целого типа). С помощью этой функции вычислить факториалы пяти данных чисел.

Решение:

program Recur1;
var
 N,i:integer;

Function Fact(N:integer):real;
begin
 if N>1 then Fact:=N*Fact(N-1)
 else Fact:=1;
end;

begin
 for i:=1 to 5 do
  begin
   Write('N: ');
   Readln(N);
   Writeln(Fact(N));
  end;
end.

program Recur1;

var

N,i:integer;

Function Fact(N:integer):real;

begin

if N>1 then Fact:=N*Fact(N-1)

else Fact:=1;

end;

begin

for i:=1 to 5 do

begin

Write('N: ');

Readln(N);

Writeln(Fact(N));

end;

end.

Другие задачи из раздела Recur можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Recur1

Комментарии:

Добавить комментарий Отменить ответ