Рекурсия в Delphi!

[mMAg]

Serge_Bliznykov, Все правильно. У вас функция находит n-ный член прогрессии. А нужно, чтобы она нашла сумму n членов прогрессии.

[Serge_Bliznykov]

mMAg, да, коллега, Вы абсолютно правы.
И, действительно, без передачи суммы через var в рекурсивную функцию задачку не так то и просто решить...
(по честному, не вычисляя N-й член последовательности по формуле, конечно. В последнем случае вообще никаких проблем нет).

как Вы и предложили:

function progress( N : word; var sum : extended) : extended;
var r : extended;
Begin
 If N=1  Then begin
   progress := a1;
   sum := a1
 end
 Else begin
   r := progress(N-1, sum) + d;
   sum := sum + r;
   progress := r
 end;
end;