program Console1
parameter (n=10)
dimension name(n),s(n)
character name*10
open(1,file='stu1.dat',form='formatted')
do i=1,n
read (1,20) name(i),s(i)
enddo
20 format(a6,f5.1)
end program Console1
01.png (58.27 KB, 下载次数: 216)
02.png (14.45 KB, 下载次数: 233)
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |