中南林业科技大学fortran考试试题(B)

elseif( )then grade=”C” elseif(score>=60)then grade=”D” elseif(score>=0)then grade=”E” grade=”?” endif

write(*,*)” 成绩等级为:”,grade end

2.编写程序,读入一年级10个班同学的数学成绩，每个班有20名学生。

program main implicit none

integer,parameter::classes=10 integer,parameter::students=20

integer::student( , ) integer::s integer::c

do c=1, do s=1, write(*,*)\ read(*,*) end do end do end

5

四、程序编写题（40得分 评卷人 分）

复查人

1. 计算1+2+3+4+?+100=

6

2.编写程序将200个整数按照从小到大的顺序排列（备注：用子程序实现排序功能，然后通过主程序来调用）。

7