Fortran Coder

查看: 9246|回复: 7

[流程控制] 这程序不用GOTO语句怎么写

[复制链接]

46

帖子

12

主题

0

精华

熟手

F 币
116 元
贡献
104 点
发表于 2014-7-19 10:43:00 | 显示全部楼层 |阅读模式
各位高手帮帮忙,这个程序如果不用GOTO语句怎么写呢?
[Fortran] 纯文本查看 复制代码
10    CONTINUE
      IF(KX.GT.KSX.AND.KY.GT.KSY) GOTO 70
      IF(KX.LE.KSX) THEN
KXI=X(KX,2)
KXJ=X(KX,3)
      ENDIF
      IF(KY.LE.KSY) THEN
KYI=Y(KY,2)
KYJ=Y(KY,3)
      ENDIF
      KSZ=KSZ+1
   IF(KSZ.EQ.M5) THEN
     WRITE(*,*) ' KSZ=M5=',M5,KSX,KSY,' Increase M5(in plus)!'
     STOP
   ENDIF
      IF(KX.GT.KSX) GOTO 40
      IF(KY.GT.KSY) GOTO 20
      IF(KXI.EQ.KYI.AND.KXJ.EQ.KYJ) GOTO 30
      IF(KYI.LT.KXI.OR.(KYI.EQ.KXI.AND.KYJ.LT.KXJ)) GOTO 40
20 Z(KSZ,1)=X(KX,1)
50 Z(KSZ,2)=X(KX,2)
Z(KSZ,3)=X(KX,3)
KX=KX+1
GOTO 10
30 Z(KSZ,1)=X(KX,1)+Y(KY,1)
KY=KY+1
GOTO 50
40 Z(KSZ,1)=Y(KY,1)
Z(KSZ,2)=Y(KY,2)
Z(KSZ,3)=Y(KY,3)
KY=KY+1
GOTO 10
70    CONTINUE

123

帖子

32

主题

0

精华

宗师

F 币
1561 元
贡献
795 点
发表于 2014-7-19 11:25:43 | 显示全部楼层

回帖奖励 +20

本来写了一大段代码一次通过很有成就感。看完楼主的帖子又失落了,没头没尾,看晕了啊……

评分

参与人数 1F 币 +8 贡献 +8 收起 理由
fcode + 8 + 8 鼓励一下

查看全部评分

11

帖子

5

主题

0

精华

入门

F 币
92 元
贡献
40 点
发表于 2014-7-19 11:57:27 | 显示全部楼层
不知楼主试过return语句没?感觉可以直接换成return语句的

46

帖子

12

主题

0

精华

熟手

F 币
116 元
贡献
104 点
 楼主| 发表于 2014-7-19 12:12:28 | 显示全部楼层
xiaorenwu 发表于 2014-7-19 11:57
不知楼主试过return语句没?感觉可以直接换成return语句的

关键不是子程序里的啊

135

帖子

15

主题

0

精华

版主

F 币
1159 元
贡献
637 点

爱心勋章管理勋章

发表于 2014-7-19 13:46:44 | 显示全部楼层
根据楼主的意思,不用goto 那就if elseif 吧

46

帖子

12

主题

0

精华

熟手

F 币
116 元
贡献
104 点
 楼主| 发表于 2014-7-19 14:37:46 | 显示全部楼层
珊瑚虫 发表于 2014-7-19 13:46
根据楼主的意思,不用goto 那就if elseif 吧

我自己弄出来了,谢谢了

46

帖子

12

主题

0

精华

熟手

F 币
116 元
贡献
104 点
 楼主| 发表于 2014-7-19 14:38:42 | 显示全部楼层
gengyan123456 发表于 2014-7-19 14:37
我自己弄出来了,谢谢了

不过你说的elseif和原来的能有什么区别呢

46

帖子

12

主题

0

精华

熟手

F 币
116 元
贡献
104 点
 楼主| 发表于 2014-7-19 14:40:30 | 显示全部楼层
xiaorenwu 发表于 2014-7-19 11:57
不知楼主试过return语句没?感觉可以直接换成return语句的

恩恩,差不多
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-3-28 23:53

Powered by Tencent X3.4

© 2013-2024 Tencent

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