Hi Piwi. So eine Aufgabe mit Fibonzahlen hatte ich gestern in meiner Info-Klausur auch drann gehabt. Ich hab das Problem dort mit einem Array gelöst. Hier der Code für Turbo Pascal:
Delphi-Quellcode:
program Fibonacci_Zahlen;
uses
crt;
const
MAX = 25;
var
zahlen : array[0..MAX] of longint;
i : integer;
begin
zahlen[0] := 0;
zahlen[1] := 1;
for i := 2 to MAX do
zahlen[i] := zahlen[i-1] + zahlen[i-2];
for i := 0 to MAX do
writeln('fibo(', i, ') = ', zahlen[i]);
readln;
end.
viele Grüße
MCeddy02
