windows平台下fortran编程求Fibonacci前20项

1、关于codeblocks IDE的极速安装请参考百度经验<<Windows下极速搭建fortran开发环境>>

2、【新建项目】

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 doend

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

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