赞 jiahongsky 春芽
共回答了17个问题采纳率：94.1% 举报
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
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
1年前
4
可能相似的问题
-
勾股定理,一个长方形长12,宽5,对角线的长度是什么【需要算式
1年前2个回答
-
1年前1个回答
-
1年前7个回答
你能帮帮他们吗