Fortran Coder

查看: 26191|回复: 14
打印 上一主题 下一主题

[求助] 菜鸟新人求助,如何用fortron90编程求解24点游戏的解

[复制链接]

12

帖子

2

主题

0

精华

入门

F 币
51 元
贡献
31 点
跳转到指定楼层
楼主
发表于 2019-9-15 14:54:26 | 只看该作者 |只看大图 回帖奖励 |正序浏览 |阅读模式
菜鸟新人求助,如何用fortron90编程求解24点游戏的解

跪谢跪谢!
分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

98

帖子

0

主题

0

精华

大师

F 币
658 元
贡献
293 点

规矩勋章元老勋章新人勋章

15#
发表于 2019-9-17 12:02:03 | 只看该作者
[Fortran] 纯文本查看 复制代码
do x = 1 , 4
  if( x/=j ) then
    ...
  end if
end do
天之道,损有余而补不足

12

帖子

2

主题

0

精华

入门

F 币
51 元
贡献
31 点
14#
 楼主| 发表于 2019-9-16 20:41:13 | 只看该作者
请问我想表达当整形x从1到4,并且不等于j的时候进行循环,这个dowhile里的条件应该怎么写呀,始终找不到正确的格式

捕获.PNG (6.29 KB, 下载次数: 309)

捕获.PNG

12

帖子

2

主题

0

精华

入门

F 币
51 元
贡献
31 点
13#
 楼主| 发表于 2019-9-16 14:18:34 | 只看该作者
bbbsssmmm 发表于 2019-9-16 14:10
麻烦再请问一下,我调试了之后出现了一堆warning是怎么回事呀

哦哦我好像知道了

12

帖子

2

主题

0

精华

入门

F 币
51 元
贡献
31 点
12#
 楼主| 发表于 2019-9-16 14:10:58 | 只看该作者
麻烦再请问一下,我调试了之后出现了一堆warning是怎么回事呀

捕获.PNG (293.64 KB, 下载次数: 314)

捕获.PNG

12

帖子

2

主题

0

精华

入门

F 币
51 元
贡献
31 点
11#
 楼主| 发表于 2019-9-16 14:08:27 | 只看该作者
啊不是,是我自己写的,但是因为我刚刚接触,有好多基本规则都不太清楚,写的乱七八糟的。。

490

帖子

4

主题

0

精华

大宗师

F 币
3298 元
贡献
1948 点

水王勋章元老勋章热心勋章

10#
发表于 2019-9-16 10:16:31 | 只看该作者
lz这个代码是从网上找的N手代码吧?
原版就不能运行吗?
http://rosettacode.org/wiki/24_game/Solve#Fortran

12

帖子

2

主题

0

精华

入门

F 币
51 元
贡献
31 点
9#
 楼主| 发表于 2019-9-16 09:58:06 | 只看该作者
谢谢!!
回复

使用道具 举报

1967

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1370 元
贡献
581 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

8#
发表于 2019-9-16 08:26:22 | 只看该作者
1. 数组 num 用 a b c d 初始化,这是不允许的。除非 a b c d 是常量或者 enum
2. symbols 的数组定义,应该放在定义区,不能在 call swop 后面。fortran的定义必须在所有执行语句的前面

12

帖子

2

主题

0

精华

入门

F 币
51 元
贡献
31 点
7#
 楼主| 发表于 2019-9-16 00:04:29 | 只看该作者
就是我的声明好像都有问题

Inked捕获_LI.jpg (786.72 KB, 下载次数: 413)

Inked捕获_LI.jpg
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-5-16 05:05

Powered by Tencent X3.4

© 2013-2024 Tencent

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