Fortran Coder

标题: 斐波那契 [打印本页]

作者: 15178706585 时间: 2021-4-20 20:46
标题: 斐波那契
怎么求斐波那契数列前20个
do循环

作者: 风平老涡 时间: 2021-4-20 21:12
本帖最后由风平老涡于 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

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)