changeset 84 | 719fd738d2a0 |
parent 83 | bd61b03b9eaa |
--- a/fib.while Wed Nov 28 07:03:29 2012 +0000 +++ b/fib.while Wed Nov 28 08:28:26 2012 +0000 @@ -1,17 +1,15 @@ /* Fibonacci Program input: n - output: fib_res */ +*/ n := 19; minus1 := 0; minus2 := 1; -temp := 0; while n > 0 do { temp := minus2; minus2 := minus1 + minus2; minus1 := temp; n := n - 1 }; -fib_res := minus2; -write fib_res +write minus2