ex0910.f90

Fortran 95程序设计&Code-彭国伦

program ex0910
  implicit none
  integer, parameter :: fileid = 10
  character(len=20)  :: filename = "list.txt"
  integer player
  real    hit
  integer error
  logical alive
  
  inquire(file=filename, exist=alive)
  if ( .not. alive ) then
    write(*,*) trim(filename)," doesn't exist."
	stop
  end if

  open(unit=fileid, file=filename, access="direct",&
       form="formatted", recl=6, status="old")
  do while(.true.)
    write(*,"('查寻第几棒?')")
	read (*,*) player
	read(fileid, fmt="(F4.2)", rec=player, IOSTAT=error) hit
	if ( error/=0 ) exit
	write(*,"('打击率:'F4.2)") hit
  end do
  close(fileid)

  stop
end program