一个新人小白的愚蠢问题

牛肉乾 · 发表于 2020-10-8 17:52:25

问题是这样的

将1-100的整数，按照奇数和偶数并排分列为两列，并且一一对应进行任意计算。

需要达到输出的效果为

1          2          1+2=3

3          4          3+4=7

   。

         。

         。

         。

         。

         。

99       100       99+100=199

（呜呜呜，自学太难了，时间完全不够）
感谢大佬们的指点

七星彩 · 发表于 2020-10-8 18:03:07

[Fortran] 纯文本查看 复制代码

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

liudy02 · 发表于 2020-10-10 22:13:12

七星彩发表于 2020-10-8 18:03
[mw_shl_code=fortran,true]program fcode_cn
implicit none
Integer , parameter :: TOPN = 100

这个楼主怕不是来这里求作业的……

ahafigure · 发表于 2020-10-14 16:28:02

[Fortran] 纯文本查看 复制代码

      do i = 1, 100,  2
             write(*,*)i, i+1, i, '+', i+1, 2*i + 1 
      end do
      end

[求助] 一个新人小白的愚蠢问题