Помогите с рекурсией

[agarum]

Я никак не могу понять как действует рекурсия? помогите пожалуйста на следующих примерах:
1. Задача: вывести на экран элементы массива в обратном порядке
2.Задача: с помощью рекурсии выполнить следующий алгоритм:
Sn = 1/1!+ 1/2!+.....+1/n! (здесь n вводится с компа)

[Impuls1989]

Дорбрый день уважаемый agarum. На самом деле рекурсия - это не смертельно))). По поводу вашей первой задачи:
допустим у вас есть массив a;

Procedure UnrollArray(index,ArraySize:word)
begin
if (index<ArraySize) then UnrollArray(index+1,ArraySize);
Writeln(a[index]);
end;

При вызове из программы нужно указать начало массива и его размер.
Поясню как работает рекурсия:
Если функция вызывает сама себя то:
1. Работа данной копии функции приостонавливается до тех пор, пока не отработает вызванная копия
2. Вызванная копия использует другие переменные (если конечно они не глобальные, или не передаются как параметры)
Рекурсия поможет там, где можно разбить задачу, на ряд мелких подзадач с одинаковой структурой.
По поводу второй задачи: Она является стандартной рекурсивной задачей.

Function factor(n:byte):longint
Begin
 if (n=0) then  factor := 1  else
factor  := n* factor (n-1);
End;
Function row(n:byte):real
Begin
If n>1 then row:= 1/ row(n-1) else row:=0;
End;

Функция row вычисляет ряд длиной n.
Не переусердствуйте с n. Факторил 10 = 3628800; Факториал 20 = 2432902008176640000. Вот и думайте))
Вот и все. К сожалению, у рекурсии есть один недостаток: неэкономное использование памяти (в связи с многократным копирование переменных)

[agarum]

большое спасибо ) разобрался )