3
1
0
新人
program ex0413 implicit none character(len=20) string string="Good morning" string(6:13)="evening." write(*,*) string read(*,*) string end
1.png (4.89 KB, 下载次数: 240)
下载附件
2019-4-12 08:31 上传
2.png (8.76 KB, 下载次数: 235)
3.jpg (25.62 KB, 下载次数: 251)
4.png (5.8 KB, 下载次数: 233)
2019-4-12 08:32 上传
使用道具 举报
101
大师
胡文刚 发表于 2019-4-12 08:50 不要直接点X关闭,随便输入一点什么,按回车就可以了。如果懒得随便输入什么,把 read(*,*) string 改为
胡文刚 发表于 2019-4-12 09:46 如果你的代码执行完了,是可以 X关闭的。 但你的代码正在等待你的输入 read(*,*) string 此时不能 X 退出 ...
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给完成“有规有矩”任务的网友
颁发给论坛注册3年以上的网友
颁发给注册后积极发言的新人
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-12-27 09:50
Powered by Tencent X3.4
© 2013-2024 Tencent