斐波那契

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

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

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

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

[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

[求助] 斐波那契

规矩勋章