43
12
0
熟手
使用道具 举报
835
2
大宗师
program Test implicit none character(80) ch(8) integer dat(8), i, j read(*,*) ch dat = -999 do i = 1, 8 read(ch(i),*,iostat=j) dat(i) end do print*,dat end program
查看全部评分
li913 发表于 2024-10-29 09:04 [mw_shl_code=fortran,true]program Test implicit none character(80) ch(8)
13
专家
本版积分规则 发表回复 回帖后跳转到最后一页
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-11-7 09:19
Powered by Tencent X3.4
© 2013-2024 Tencent