Part 3
do
write (unit=*,fmt="(2x'enter no ')",advance="no")
read (unit=*,fmt=*) Recn
if (Recn==0) then
exit
else
read (unit=1,fmt="(a5,2f15.3)",rec=Recn) Name,Number,Note
write (unit=*,fmt="(2x,'student ',a5,' with number',f15.3,2x,' has grade ‘& ,f5.0)") Name,Number,Note
end if
end do
close (unit=1)
stop
end program class1
Previous slide
Next slide
Back to first slide
View graphic version