Помогите с рекурсияй, написать программу Опции

[Snord]

Вычислить значение полинома степени n по схеме

manualix.info/rec.gif (так и не добился успешкного размещения картинки)

Над решить задачу двумя способами – с применением рекурсии и без нее.


Пример:
Классический пример: вычисление факториала n! = 1*2*3…(n-1)*n.
Рекурсивное описание: n! = (n-1)! * n, 0! = 1.

Рекурсивная функция:
Function fak(n:word):extended;
begin
if n=0 then result:=1
else result:=fak(n-1)*n
end;

Нерекурсивная функция:
Function fak(n:word):extended;
Var k:word;
begin
result:=1;
if n>1 then for k:=2 to n do
result:=result*k;
end;
При выполнении рекурсивной подпрограммы осуществляется много-
кратный переход от текущего уровня организации алгоритма к нижнему
уровню последовательно, до тех пор, пока не будет получено тривиальное.

заранее спасибо.

[Snord]

При вставлении изображения возникала ошибка, как ссылка пишется я вкурсе. Руки вроде с нужного места растут.
[img]httр://manualix.info/rec.gif[/img]


Добавлено через 18 мин.
Если не сложно, набросайте код пожалуйста.