recyrcia

[ирина222]

составить два варианта программы с использованием рекурсии и цикла и сравнить их.
Вычислить значение факториала целого числа n, если известно, что:
Изображение 020.jpg

[min@y™]

и побыстрее, да?

[Serge_Bliznykov]

Ирина, рекурсия по английски будет "recursion"

составить два варианта программы

а у Вас какой именно вариант не получается, с рекурсией или без неё?
И в чём сложность?
А поиском почему не пользовались?
На мой взгляд, нахождение факториала через рекурсивную функцию - один из самых распространённых вариантов нахождения факториала.

[newerow1989]

function f1(n:integer):integer;//с рекурсией
begin
   If n>1 then
      Result:=n*f1(n-1) else
      Result:=1;
end;

function f2(n:integer):integer;//с циклом
var i:integer;
begin
   Result:=1;
   For i:=2 to n do
      Result:=Result*i;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Label1.Caption:=IntToStr(f1(8));
   Label2.Caption:=IntToStr(f2(8));
end;

Сойдет?