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 do

end

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

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