学生成绩处理做一半求助

小新

录入一个班的学生的学号，平时成绩，期末成绩，按照平时成绩×0.3+期末成绩*0.7=总评成绩，计算总评成绩，并统计出各个分数段的人数，并对成绩进行排名

[Fortran] 纯文本查看 复制代码

type chengji
     integer::xuehao
     real::pingshichengji
     real::qimochengji
     real::zongpingchengji
end type
type(chengji) xueshengchengji(n)
print*,"请输入学生人数"
read*,n
print*,"请输入"n"名学生的学号、平时成绩、期末成绩"
print*,"数据之间用空格间隔、学号为长度为12的字符串、用引号括住"
do i=1,n
read*,number(i),pingshichengji(i),qimochengji(i)
zongpingchengji(i)=0.3*pingshichengji(i)+0.7*qimochengji(i)
print*,zongpingchengji(i)
dimension m(11),s(n)!将成绩分为11个分数段0-9、10-19以此类推，一直到100
data m/11 *0/
read(*,*)(s(i),i=1,n)
do i=1,n
   if(s(i))<=100.and.s(i)>=0)then
     k=s(i)/10+1
         m(k)=m(k)+1
   end if
end do
write(*,*)m

非专业所需，所以学的很浅，后悔了，求助各位大神！急！

小新

FORTRAN 95

小新

Jackdaw 发表于 2018-5-31 18:35
[mw_shl_code=fortran,true]program main
  implicit none
  type chengji

大哥，不会排序啊