fib.while
changeset 80 191daa3ee29e
parent 76 373cf55a3ca5
child 83 bd61b03b9eaa
equal deleted inserted replaced
79:fd894e017e12 80:191daa3ee29e
     1 /*
     1 /* Fibonacci Program
     2   
     2    input: n
     3   Fibonacci Program
     3    output: fib_res */
     4 
       
     5   input: n
       
     6   output: fib_res
       
     7 
       
     8 */
       
     9 
     4 
    10 n := 90;
     5 n := 90;
    11 minus1 := 0;
     6 minus1 := 0;
    12 minus2 := 1;
     7 minus2 := 1;
    13 temp := 0;
     8 temp := 0;
    14 while n > 0 do  {
     9 while n > 0 do {
    15        temp := minus2;
    10        temp := minus2;
    16        minus2 := minus1 + minus2;
    11        minus2 := minus1 + minus2;
    17        minus1 := temp;
    12        minus1 := temp;
    18        n := n - 1
    13        n := n - 1
    19 };
    14 };