生成一个长度为12的队列,使用队列的方法来计算斐波那契序列第31到40项的值.

生成一个长度为12的队列,使用队列的方法来计算斐波那契序列第31到40项的值.
生成一个长度为12的队列,使用队列的方法来
计算斐波那契序列第31到40项的值.

生成一个长度为12的队列,使用队列的方法来计算斐波那契序列第31到40项的值.
fortran程序
program Fibonacci
implicit none
integer n,a1,a2,a3
a1=0
a2=1
n=2
do
n=n+1
a3=a1+a2
if (n==31) then
print*,n,a3
end if
if (n==40) then
print*,n,a3
exit
end if
a1=a2
a2=a3
end do
end
输出结果：
31 832040
40 63245986