?? ex0703.f90
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -