21
7
0
熟手
01
program
main
02
implicit
none
03
integer
,
parameter
::
n
=
1000
04
i
05
dimension
a
(
)
b
06
open
unit
10
file
'C:\Users\Lenovo\Desktop\3.txt'
07
do
1
08
read
*
end
09
20
"C:\Users\Lenovo\Desktop\4.txt"
&
status
'unknown'
11
write
/
12
13
close
14
continue
15
使用道具 举报
954
大师
Program
real
Do
End
Main
vvt 发表于 2019-11-21 20:15 [mw_shl_code=fortran,true]Program main implicit none real a,b
31
6
lumlngz 发表于 2023-4-25 18:33 你好老师,我想问一下第7行代码read语句里面的end=1的作用是什么,这里我在教科书上没有找到。 ...
vvt 发表于 2023-4-25 20:29 遇到文件结束的话,跳转到语句标号为 1 的语句继续执行。 这种写法现在不推荐,可以用 iostat 代替 ...
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给注册后积极发言的新人
颁发给完成“有规有矩”任务的网友
颁发给论坛注册3年以上的网友
颁发给发帖量超过一定数量的坛友
颁发给论坛热心帮助他人的网友
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2025-1-13 02:13
Powered by Discuz! X3.4
© 2013-2025 Comsenz Inc.