斐波那契

风平老涡

[Fortran] 纯文本查看 复制代码

program test
  implicit none
  integer :: f0 =0, f1 = 1, f
  integer :: i, n

  n = 20
  print *, f0
  print *, f1
  do i = 3, n
     f = f0 + f1
     f0 = f1
     f1 = f
     print *, f
  end do
end program test

           0
           1
           1
           2
           3
           5
           8
          13
          21
          34
          55
          89
         144
         233
         377
         610
         987
        1597
        2584
        4181