作业帮 > 综合 > 作业

编程求出斐波那契数列中第一个大于10000的元素.要求 使用Fortran中的循环分别编程实现

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/30 07:31:59
编程求出斐波那契数列中第一个大于10000的元素.要求 使用Fortran中的循环分别编程实现
Program Main
Implicit None
Integer :: i , j , k
i = 0
j = 1
Do
k = i + j
if ( k > 10000 ) then
write( * , * ) 'result=' , k
Exit
end if
i = j
j = k
End Do
End Program Main