Fibonacciho postupnosť – Pascal – Fórum – Programujte.com

Čaute :)

Potrebujem v Delphi napísať program, ktorý vygeneruje prvých 15 čísel Fibonacciho postupnosti (0, 1, 1, 2, 3, 5, 8, 13, 21, 34...). Pričom mám pri tom využiť len cyklus for bez podmienok (s podmienkami som to našiel na nete). Dá sa to vobec? A keď áno, ako? 

jasne ze se to da ... budes na to potrebovat dve promenne na aktualni a predchozi hodnotu + jedna promenna na pocitani...

#1 Peto
Co třeba takto:

var i: Integer;
    F: array[1..15] of Integer;
begin
  WriteLn('------- Fibonacciho posloupnost --------');
  WriteLn;
  F[1] := 0; F[2] := 1;
  Write(F[1],',',F[2]);
  for i := 3 to 15 do
  begin
    F[i] := F[i-1]+F[i-2];
    Write(',',F[i]);
  end;
  WriteLn;
  ReadLn;
end.

#3 Honzc
na to neni vubec potreba pole... sem to zvladl jen s promennou predchozi a aktualni a jejich prohazovanim a pricitani

#4 KIIV
Zdravím,

"proč to dělat jednoduše, když to jde složitě."

Já to také umím i bez pole.