fortran中do循环应用问题。
比如我有一组数据，2,4,6,8,10,12，能不能用fortran写一个循环程序，让第一次循环，输出的是第一个数2减半的数（也就是1），第二次循环，输出的是前面两个数据...
比如我有一组数据，2,4,6,8,10,12，能不能用fortran写一个循环程序，让第一次循环，输出的是第一个数2减半的数（也就是1），第二次循环，输出的是前面两个数据2,4,减半的数，第三次循环，输出的是前三个数，2，4,6,减半的数，本人fortran小白，求 指导
展开
1个回答
展开全部
Program Baidu_Thlws
Implicit None
integer i , j
integer :: a(6) = (/2,4,6,8,10,12/)
Do i = 1 , 3
Write(*,*) ((a(j)/2),j=1,i)
End Do
End Program Baidu_Thlws
Implicit None
integer i , j
integer :: a(6) = (/2,4,6,8,10,12/)
Do i = 1 , 3
Write(*,*) ((a(j)/2),j=1,i)
End Do
End Program Baidu_Thlws
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
