Fortran Coder

标题: select case 例题 [打印本页]

作者: kkluv 时间: 2024-7-2 18:19
标题: select case 例题
help, 为什么输出不了我规定的“优秀”和“合格”呢？？

fa28005f8ea7f2bdef52891f5ae8caf.png (10.71 KB, 下载次数: 45)

作者: Transpose 时间: 2024-7-2 20:03
本帖最后由 Transpose 于 2024-7-2 20:06 编辑

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

作者: kkluv 时间: 2024-7-2 22:40

Transpose 发表于 2024-7-2 20:03
一个汉字一般需要长度为2的字符串才能存储，因此这里你需要定义grade的len至少大于4,
character表示的是ch ...

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

作者: Transpose 时间: 2024-7-3 08:07
好像记错了,一个汉字是3个,改成character(len=6)然后最后的格式也要改成a6

作者: 胡文刚 时间: 2024-7-3 08:15
本帖最后由胡文刚于 2024-7-3 08:18 编辑

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

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

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

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