You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
31 lines
404 B
31 lines
404 B
9 years ago
|
VAR i, x, r;
|
||
|
|
||
|
PROCEDURE fib;
|
||
|
VAR xx, r1, r2;
|
||
|
BEGIN
|
||
|
xx := x;
|
||
|
IF xx = 0 THEN r := 1;
|
||
|
IF xx = 1 THEN r := 1;
|
||
|
IF xx >= 2 THEN BEGIN
|
||
|
x := xx - 2;
|
||
|
CALL fib;
|
||
|
r1 := r;
|
||
|
|
||
|
x := xx - 1;
|
||
|
CALL fib;
|
||
|
r2 := r;
|
||
|
r := r1 + r2;
|
||
|
END
|
||
|
END;
|
||
|
|
||
|
BEGIN
|
||
|
i := 0;
|
||
7 years ago
|
WHILE i < 25 DO BEGIN
|
||
9 years ago
|
x := i;
|
||
|
CALL fib;
|
||
|
write i;
|
||
|
write r;
|
||
|
i := i + 1;
|
||
|
END
|
||
|
END.
|