|
853
|
1 |
write "Fib: ";
|
836
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff
changeset
|
2 |
read n;
|
|
859
|
3 |
minus1 := 1;
|
|
|
4 |
minus2 := 0;
|
836
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff
changeset
|
5 |
while n > 0 do {
|
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff
changeset
|
6 |
temp := minus2;
|
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff
changeset
|
7 |
minus2 := minus1 + minus2;
|
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff
changeset
|
8 |
minus1 := temp;
|
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff
changeset
|
9 |
n := n - 1
|
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff
changeset
|
10 |
};
|
|
853
|
11 |
write "Result: ";
|
|
|
12 |
write minus2 ;
|
|
|
13 |
write "\n"
|
836
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff
changeset
|
14 |
|