作业帮fortran中do循环应用问题.
来源：学生作业帮 编辑：拍题作业网作业帮 分类：综合作业 时间：2024/04/30 22:10:56
fortran中do循环应用问题.
比如我有一组数据,2,4,6,8,10,12,能不能用fortran写一个循环程序,让第一次循环,输出的是第一个数2减半的数（也就是1）,第二次循环,输出的是前面两个数据2,4,减半的数,第三次循环,输出的是前三个数,2,4,6,减半的数,本人fortran小白,求 指导
比如我有一组数据,2,4,6,8,10,12,能不能用fortran写一个循环程序,让第一次循环,输出的是第一个数2减半的数（也就是1）,第二次循环,输出的是前面两个数据2,4,减半的数,第三次循环,输出的是前三个数,2,4,6,减半的数,本人fortran小白,求 指导
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