Fortran Coder

标题: 一个新人小白的愚蠢问题 [打印本页]

作者: 牛肉乾 时间: 2020-10-8 17:52
标题: 一个新人小白的愚蠢问题
问题是这样的

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

需要达到输出的效果为

1          2          1+2=3

3          4          3+4=7

   。

         。

         。

         。

         。

         。

99       100       99+100=199

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

作者: 七星彩 时间: 2020-10-8 18:03

[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

七星彩发表于 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

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

      do i = 1, 100,  2

             write(*,*)i, i+1, i, '+', i+1, 2*i + 1 

      end do

      end

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)