codeblocks下fortran编程求Fibonacci前20项

来源:网络时间:2015-12-17 17:05:24

  【新建项目】

以上教程基于在windows平台下操作
以上教程基于在windows平台下操作
以上教程基于在windows平台下操作
以上教程基于在windows平台下操作
以上教程基于在windows平台下操作

  3、【编写代码】

  program main

  implicit none

  integer::i

  integer::su(30)

  su(1)=1

  su(2)=1

  print *,su(1)

  print *,su(2)

  do i=3,99

  su(i)=su(i-2)+su(i-1)

  print *,su(i)

  end do

  end

  4、【在codeblocks中编译、链接】

以上教程基于在windows平台下操作

  5、【测试、运行,结果如下】

以上教程基于在windows平台下操作
文章内容来源于网络,不代表本站立场,若侵犯到您的权益,可联系我们删除。(本站为非盈利性质网站) 联系邮箱:rjfawu@163.com