26 lines
415 B
Plaintext
26 lines
415 B
Plaintext
# This program calculates the first K values of the fibonacci sequence.
|
|
#
|
|
# Expect: 1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 10946
|
|
#
|
|
|
|
CONST K = 20;
|
|
|
|
VAR m, n, k, count;
|
|
|
|
BEGIN
|
|
m := 1;
|
|
n := 1;
|
|
k := 1;
|
|
count := 0;
|
|
|
|
WHILE count <= K DO
|
|
BEGIN
|
|
! k;
|
|
|
|
k := n;
|
|
n := m + n;
|
|
m := k;
|
|
|
|
count := count + 1
|
|
END
|
|
END. |