一个新人小白的愚蠢问题
问题是这样的将1-100的整数，按照奇数和偶数并排分列为两列，并且一一对应进行任意计算。
需要达到输出的效果为
1 2 1+2=3
3 4 3+4=7
。
。
。
。
。
。
99 100 99+100=199
（呜呜呜，自学太难了，时间完全不够）
感谢大佬们的指点:'(
program fcode_cn
implicit none
Integer , parameter :: TOPN = 100
integer :: i
Do i = 1 , TOPN , 2
write(*,'(2(i4,1x),i4,"+",i4,"=",i5)') i , i+1 , i , i+1,i+i+1
End Do
end program fcode_cn 七星彩 发表于 2020-10-8 18:03
program fcode_cn
implicit none
Integer , parameter :: TOPN = 100
这个楼主怕不是来这里求作业的…… do i = 1, 100,2
write(*,*)i, i+1, i, '+', i+1, 2*i + 1
end do
end
页:
[1]