Ciag Fibonacciego

Czy ktos moze mi napisac kod zrodlowy w Pascalu?? Potrzebuję program iteracyjnie i rekurencyjnie na ciag Fibonacciego. Prosz o pomoc

http://4programmers.net/Forum/116128#116128

pascal123 napisał(a)

Czy ktos moze mi napisac kod zrodlowy w Pascalu?? Potrzebuję program iteracyjnie i rekurencyjnie na ciag Fibonacciego. Prosz o pomoc

Może Ci się przyda. Z mojej pracy dyplomowej o TP :)
Algorytm obliczający kolejne liczby ciągu Fibonacciego

program fibonacci;
function fib_iter(liczba: longint): longint;
var f0,f1,f,i: longint;
begin
f0:=0; f1:=1; { wartosci pierwszych elementow ciagu }
case liczba of 
1: fib_iter:=0;
2: fib_iter:=1;
else
 begin
  for i:=3 to liczba do
   begin
    f := f0 + f1;
    f0 := f1;
    f1 := f;
   end;
    fib_iter:=f;
  end; 
 end;
end;

var i: integer;
begin 
for i:=1 to 24 do  writeln(fib_iter(i):5);
readln;
end.

blee... trza bylo najpierw zlookac na google.pl !!! =/A nie od razu "czy moze mi ktos napisac..."