fib.while
changeset 75 898c25a4e399
parent 73 27469183da75
child 76 373cf55a3ca5
equal deleted inserted replaced
74:8f85d1f61663 75:898c25a4e399
     1 { n := 9;
     1 /*
     2      minus1 := 0;
     2   
     3      minus2 := 1;
     3   Fibonacci Program
     4      temp := 0;
     4 
     5      while n > 0 do  {
     5   input: n
       
     6   output: fib_res
       
     7 
       
     8 */
       
     9 
       
    10 n := 9;
       
    11 minus1 := 0;
       
    12 minus2 := 1;
       
    13 temp := 0;
       
    14 while n > 0 do  {
     6        temp := minus2;
    15        temp := minus2;
     7        minus2 := minus1 + minus2;
    16        minus2 := minus1 + minus2;
     8        minus1 := temp;
    17        minus1 := temp;
     9        n := n - 1
    18        n := n - 1
    10      };
    19 };
    11      fib_res := minus2
    20 fib_res := minus2;
    12 }
    21 print fib_res 
       
    22