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, 下载次数: 226)
2.png (8.76 KB, 下载次数: 221)
3.jpg (25.62 KB, 下载次数: 237)
4.png (5.8 KB, 下载次数: 218)
胡文刚 发表于 2019-4-12 08:50
不要直接点X关闭,随便输入一点什么,按回车就可以了。如果懒得随便输入什么,把
read(*,*) string
改为
胡文刚 发表于 2019-4-12 09:46
如果你的代码执行完了,是可以 X关闭的。
但你的代码正在等待你的输入 read(*,*) string 此时不能 X 退出 ...
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |