Fortran Coder

查看: 141|回复: 4

[求助] select case 例题

[复制链接]

8

帖子

5

主题

0

精华

入门

F 币
37 元
贡献
21 点
发表于 2024-7-2 18:19:00 | 显示全部楼层 |阅读模式
help, 为什么输出不了我规定的“优秀”和“合格”呢??
fa28005f8ea7f2bdef52891f5ae8caf.png

164

帖子

2

主题

1

精华

大师

Vim

F 币
981 元
贡献
478 点

规矩勋章

发表于 2024-7-2 20:03:24 | 显示全部楼层
本帖最后由 Transpose 于 2024-7-2 20:06 编辑

一个汉字一般需要长度为2的字符串才能存储,因此这里你需要定义grade的len至少大于4,
character表示的是character(len=1),这里至少需要character(len=4)

8

帖子

5

主题

0

精华

入门

F 币
37 元
贡献
21 点
 楼主| 发表于 2024-7-2 22:40:10 | 显示全部楼层
Transpose 发表于 2024-7-2 20:03
一个汉字一般需要长度为2的字符串才能存储,因此这里你需要定义grade的len至少大于4,
character表示的是ch ...

感谢解惑 ,可不清楚为何修改character(len=4)后,结果输出还是“?”

164

帖子

2

主题

1

精华

大师

Vim

F 币
981 元
贡献
478 点

规矩勋章

发表于 2024-7-3 08:07:25 | 显示全部楼层
好像记错了,一个汉字是3个,改成character(len=6)然后最后的格式也要改成a6

99

帖子

0

主题

0

精华

大师

F 币
662 元
贡献
295 点

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

发表于 2024-7-3 08:15:50 | 显示全部楼层
本帖最后由 胡文刚 于 2024-7-3 08:18 编辑

1个汉字是2字节还是3字节,还是4字节。取决于编码方式,对你的问题,我觉得长度定义个20也是OK的。
字符串长度定义要足够,并考虑一定的冗余。

此外,你输出的时候格式符也不能再写 a2 了,就只写 a 就行了。
write(*,"('Grade:',a)") trim(grade)

顺便说,发帖的时候代码直接复制粘贴文本就行了,干嘛要截图呢?截图都不能复制其中的代码片段。


天之道,损有余而补不足
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-7-23 19:44

Powered by Tencent X3.4

© 2013-2024 Tencent

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