Einzelnen Beitrag anzeigen
Alt 15.10.2001, 19:41   #1
stefan21
Senior Member
 
Registriert seit: 15.03.2001
Alter: 44
Beiträge: 161


Standard pascal newbie problem

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?
stefan21 ist offline   Mit Zitat antworten