Технический форум - Целое натуральное, рекурсия, Паскаль

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Целое натуральное, рекурсия, Паскаль (http://www.tehnari.ru/f41/t73562/)

Christian

20.05.2012 18:21

Целое натуральное, рекурсия, Паскаль

если будет время то посмотрите пожалуйста эту задачу:

Задано целое натуральное число, определить является ли оно факториал числа n, чему равна n. Использовать рекурсивную функцию вычисления факториала

shrek=)

21.05.2012 09:36

вот как-то так:

Код:

var

a:integer;

function fact(b:integer):integer;

var

c:longint;

i:integer;

begin

c:=1;

for i:=2 to b do begin

c:=c*i;

if c=b then break;

fact:=i+1;

end;

end;

begin

writeln ('Input the number');

readln (a);

writeln (a,' - fact - ',fact(a));

readln

end.

Vladimir_S

21.05.2012 10:27

Не, Миш - не пойдёт. Тут фишка в том, что требуется рекурсивная функция, т.е. такая, которая из себя сама себя вызывает. Типа такой:

Код:

Function factorial(n:integer): Longint; 

Begin 

 If n=0 then factorial:=1 else factorial:=factorial(n-1)*n; 

End;

Часовой пояс GMT +4, время: 08:46.