помогите написать программу в делфи. (рекурсия)

[Snord]

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

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

[Plague]

рекурсия? а с чего начинали?
я думаю здесь рекуррентная последовательность
цикл от 1 до n и все.

[Snord]

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

Пример:
Классический пример: вычисление факториала 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;
При выполнении рекурсивной подпрограммы осуществляется много-
кратный переход от текущего уровня организации алгоритма к нижнему
уровню последовательно, до тех пор, пока не будет получено тривиальное.

[Plague]

a:array[0..n] of integer; массив c коэф-ми

z:=0;
for i:=n downto 0 do
z:=z*x+a[i]

pol(0); // рекурсивная функция

function pol(j:integer):real;
var s:real;
begin
s:=0;
if j=n then
s:=a[j]
else
s:=pol(j+1)*x+a[j];
pol:=s;
end;

[Snord]

Plague спасибо огромное. Выручил.

[Gorychev]

// c помощью рекурсии
Function faktor(n:word):integer;
begin
if n=0 then result:=1
else result:=fak(n-1)*n
end;

procedure TForm1.Button1Click(Sender: TObject);
var i, res: integer;
begin
// c помощью рекурсии
ShowMessage('Факториал 5! = ' + inttostr(faktor(5)));

// циклически
res:=1;
for i := 1 to 5 do res := res * i;
ShowMessage('Факториал 5! = ' + inttostr(res));
end;

[@ndry]

помогите написать программу в делфи. (рекурсия)
Вычислить значение полинома степени n по схеме
___n
Pn=∑aixi=a0+x(a1+…x(an-1+xan)…)
__I=0

с помощью рекурсии и без нее
Заранее спасибо!