使用CodeBlocks下fortran编程求Fibonacci前20项的程序示例

在Code::Blocks下使用Fortran编程语言求Fibonacci数列的前20项是一个简单的任务，以下是一个简单的示例代码：

program fibonacci
    implicit none
    integer :: i, n, num1, num2
    print *, "请输入一个正整数n："
    read *, n
    if (n < 0) then
        print *, "错误：输入必须为正整数。"
        stop
    end if
    num1 = 0
    num2 = 1
    do i = 1, n
        print *, num1, num2
        ! 更新 num1 和 num2 的值
        num1 = num2
        num2 = num1 + num2
    end do
end program fibonacci

这段代码首先提示用户输入一个正整数n，然后使用一个循环来计算Fibonacci数列的前n项，在每次迭代中，它打印出两个连续的Fibonacci数，并使用变量num1和num2来存储前两个数字，通过更新这两个变量的值，我们可以计算出下一个数字，当用户输入的n小于0时，程序会输出错误信息并停止运行。

请注意，这段代码没有进行错误处理，例如检查用户输入是否为数字等，在实际应用中，您可能需要添加更多的错误处理代码以确保程序的健壮性，由于Fibonacci数列的特性，当n较大时，程序可能需要较长时间才能完成计算。