论坛 › Fortran语法讨论 › 斐波那契

15178706585 发表于 2021-4-20 20:46:30

斐波那契

怎么求斐波那契数列前20个
do循环

风平老涡 发表于 2021-4-20 21:12:00

本帖最后由 风平老涡 于 2021-4-20 21:29 编辑

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

查看完整版本: 斐波那契