| changeset 147 | 4725bba8ef26 |
| parent 93 | 4794759139ea |
| child 178 | d36363d648e3 |
| 146:9da175d5eb63 | 147:4725bba8ef26 |
|---|---|
1 /* Fibonacci Program |
1 write "Input a number "; |
2 input: n |
2 read n; |
3 */ |
3 x := 0; |
4 y := 1; |
|
5 while n > 0 do { |
|
6 temp := y; |
|
7 y := x + y; |
|
8 x := temp; |
|
9 n := n - 1 |
|
10 }; |
|
11 write "Result "; |
|
12 write y |
|
4 |
13 |
5 n := 19; |
|
6 minus1 := 0; |
|
7 minus2 := 1; |
|
8 while n > 0 do { |
|
9 temp := minus2; |
|
10 minus2 := minus1 + minus2; |
|
11 minus1 := temp; |
|
12 n := n - 1 |
|
13 }; |
|
14 write minus2 |
|
15 |