24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

N@天河

新虫 (初入文坛)

应助: 3 (幼儿园)
金币: 293.6
帖子: 39
在线: 21.6小时
虫号: 1181225
注册: 2010-12-31
专业: 机械摩擦学与表面技术

[交流] 求大神帮帮忙解释下，下面这段程序为什么不能使用打印打印指定的字符串已有5人参与

PROGRAM TEST1220
  IMPLICIT NONE
! 变量定义
  INTEGER :: I
! 打开硬件设备并输出
  OPEN(4, FILE = 'PRN',ERR=10)
DO I = 1, 10
   WRITE(4, '(1X, A, I3.3, A)') 'This is the ', I, 'line on the PAPER!'
ENDDO
  CLOSE(4)
  STOP

10 &
  PRINT *, 'Error on opening screen!'

END PROGRAM TEST1220

回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:

1楼 2013-06-27 17:28:13

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

pippi6

铁杆木虫 (著名写手)

工程和科学数值计算咨询

应助: 413 (硕士)
贵宾: 0.002
金币: 7116.5
散金: 15
红花: 63
帖子: 1639
在线: 798.9小时
虫号: 2469437
注册: 2013-05-14
专业: 计算数学与科学工程计算

★ ★
小木虫: 金币+0.5, 给个红包，谢谢回帖
jjdg: 金币+1, 感谢参与 2013-06-28 01:29:56

open 成功了吗？你看到 'Error on opening screen!'了吗？改成如下后，应该可以，
write(4, '(1x, a, i3, a)') 'this is the ', i, ' line on the paper!'
如果打印机能连上的话。好奇问一句，现在为什么要用打印机？我在 81年那会用打印机，因为没有终端可用，也没有硬盘。