- 积分
- 68
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2015-4-9
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
程序如下:rogram main implicit none type distance real meter, inch, cm end type type(distance) :: d write(*,*) "请输入长度:" read(*,*) d%meter d%cm = d%meter*100 d%inch = d%cm/2.54 write(*,"(f8.3'米 ='f8.3'厘米 ='f8.3'英寸')") d%meter, d%cm, d%inchend program 调试成功,输入数据,回车后,如图的运行界面闪退。请问是怎么回事啊??以前也遇到过类似的情况file:///C:/Users/Administrator/AppData/Roaming/Tencent/Users/1832798007/QQ/WinTemp/RichOle/%7B$_8CCYF6MD7R3KTAKV9%25OR.pngfile:///C:/Users/Administrator/AppData/Roaming/Tencent/Users/1832798007/QQ/WinTemp/RichOle/%7B$_8CCYF6MD7R3KTAKV9%25OR.png |
|