! PROGRAM P47 ! ! CLASS LIST PROGRAM ! IMPLICIT NONE CHARACTER (LEN=20) :: NAME REAL :: MARK,AVE INTEGER :: I,N ! PRINT *, 'This is Program >> P47 - Class List program' ! ! Tell program where data for READ * is coming from OPEN(UNIT=5, FILE='P47.DAT') ! UNIT=5 is the default input ! PRINT 1 1 FORMAT(//'CLASS LIST:' & ///' NAME',' ','MARK') ! ! The /// give 2 blank lines ! READ *,N AVE=0.0 L1: DO I=1,N READ 10,NAME,MARK 10 FORMAT(A20,F5.2) ! Real data entered with decimal point AVE=AVE+MARK PRINT 20,NAME,MARK 20 FORMAT(' ',A20,F7.1) END DO L1 ! AVE=AVE/N PRINT 30,AVE 30 FORMAT(' ',27('-')/ & ! 27 dashes for a separator ' AVERAGE',' ',F7.1) ! This is on the line below ! PRINT 56 56 FORMAT(' ') ! Print a blank line STOP END PROGRAM P47