Fortran Coder

查看: 97|回复: 3

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

[复制链接]

1

帖子

1

主题

0

精华

新人

F 币
12 元
贡献
5 点
发表于 2020-10-8 17:52:25 | 显示全部楼层 |阅读模式
问题是这样的
将1-100的整数,按照奇数和偶数并排分列为两列,并且一一对应进行任意计算。


需要达到输出的效果为

1            2           1+2=3

3            4           3+4=7

      。

            。

            。

            。

            。

            。

99        100         99+100=199

(呜呜呜,自学太难了,时间完全不够)
感谢大佬们的指点
回复

使用道具 举报

7

帖子

0

主题

0

精华

入门

F 币
70 元
贡献
43 点
发表于 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

168

帖子

14

主题

0

精华

大宗师

F 币
4068 元
贡献
846 点
发表于 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

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

10

帖子

1

主题

0

精华

入门

F 币
41 元
贡献
24 点
发表于 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

您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2020-10-28 01:19

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表