progs/fib.while
changeset 207 f824e1331fc6
parent 182 9ce2414e470e
child 208 bd5a8a6b3871
equal deleted inserted replaced
206:85b961f1eee9 207:f824e1331fc6
     1 /* Fibonnacci numbers implemented in 
     1 /* Fibonacci Program
     2    the WHILE language */
     2    input: n
     3    
     3 */
     4 write "Input a number ";
     4 //write "Fib";
     5 read n;
     5 read n;
     6 x := 0;   // start values
     6 //n := 19;
     7 y := 1;
     7 minus1 := 0;
       
     8 minus2 := 1;
     8 while n > 0 do {
     9 while n > 0 do {
     9   temp := y;
    10        temp := minus2;
    10   y := x + y;
    11        minus2 := minus1 + minus2;
    11   x := temp;
    12        minus1 := temp;
    12   n := n - 1  // decrement counter
    13        n := n - 1
    13 };
    14 };
    14 write "Result ";
    15 write "Result";
    15 write y
    16 write minus2 
    16 
    17