pascal newbie problem

[stefan21]

ich möchte eine for-schleife machen.

Wie muss diese aussehen?

z.b.

PROGRAM Fibonacci; (*darf ich das programm Fib nennen, und eine variable fib?*)
USES
WinCrt;
VAR
value, i, fib, fibn_1, fibn_2: INTEGER;
BEGIN
fibn_2:=0;
fibn_1:=1;
fib:=0;
read(value);
IF value >1 THEN BEGIN
FOR i:=1 TO value DO
fib:=fibn_1+fibn_2;
fibn_2:=fibn_1;
fibn_1:=fib;
END
ELSE BEGIN
fib:=value;
END;
WriteLn('Fibonacci-Zahl von eingabe:',fib)
END.(*Fibonacci*)

ich hab das programm schon mit while und repeat schleifn, brauch es aber auch mit einer for-schleife. was ist hier falsch?

[flinx]

Ist schon lang her, dass ich Pascal programmiert hab, also steinigts mich nicht, wenns falsch ist.

IMHO fehlt a BEGIN und a END:

...
IF value >1 THEN BEGIN
FOR i:=1 TO value DO
BEGIN
fib:=fibn_1+fibn_2;
fibn_2:=fibn_1;
fibn_1:=fib;
END
END
...

BTW: Solltest nicht vielleicht eine Prüfung des eingegebenen Wertes einbauen?

hth

[stefan21]

danke vielmals für das "BEGIN" und "END" bei einer FOR-Schleife.
hab ich glatt vergessen und so hat die for-Schleife nicht funktioniert (obwohl der compiler keinen fehler anzeigt)

[flinx]

Funktioniert hat sie wahrscheinlich schon, aber nur die erste Zeile nach dem DO. Kannst es ja testen, sollte bei der Ausgabe eigentlich 1 ergeben.

mfg

[hewlett]

wer programmiert bitte heutzutage noch in pascal?

[_m3]

Alle, die Delphi programmieren - und das sind nicht wenige!