ex0703.f90

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

program ex0703
implicit none
  integer, parameter :: classes  = 5
  integer, parameter :: students = 5
  integer :: student(students, classes)
  integer s ! 用来指定学生号码
  integer c ! 用来指定班级号码 

  do c=1, classes
    do s=1, students
      write(*,"('Number ',I2,' of class ',I2)") s,c
      read(*,*) student(s,c) ! 第c班的第s位学生
    end do
  end do

  do while( .true. )
    write(*,*) "class:"
    read(*,*) c
    if ( c<=0 .or. c>classes ) exit  
	write(*,*) "student:"
	read(*,*) s
    if ( s<=0 .or. s>students ) exit 
    write(*,"('score:',I3)") student(s,c) ! 第c班的第s位学生
  end do

  stop
end