Witam, mam do zrealizowania takie oto zadanie:
Dla ciag przyjmuje nastepujace wartosci dla a(0)=3 dla a(i)=a(i-1)-3;
musze napisac 2 funkcje iteracyjna i rekurencyjna.
function ciag(i: integer): integer;
begin
if i=0 then
ciag:=3
else
ciag:=ciag(i-1)-3;
end;
To moje rozwiazanie rekurencyjne a na iteracyjne nie mam pomysłu, to co napisałem źle działa
Mój kod
function ciagi(i: integer): integer
var
n: integer;
begin
i := 0;
ciagr := 3;
for i := 1 to n do
begin
ciagi := ciagi(i - 1) - 3;
end;
end;
Proszę o pomoc.