找到文本中最大的两个数据！

1000 · 发表于 2020-4-24 17:25:48

第三列是成绩
亲们我就是想从右图这个文本中通过循环找到最高的两个成绩和相应的名字
我不太会设计左图的循环结构不知道为啥停不下来，明明有stop
而且怎么通过循环找到最大的两个数值啊？？？？？感谢！！

vvt · 发表于 2020-4-24 20:27:09

本帖最后由 vvt 于 2020-4-24 20:45 编辑

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

01program www_fcode_cn  implicit none
02  integer , parameter :: NMAX = 2
03  character(len=9)    :: cName(NMAX) , Z
04  real    :: rMax(NMAX) , r
05  integer :: j
06  open(10,file='003.txt')
07  rMax = -huge(rMax)
08  Do
09    read(10,*,ioStat=j) z , z , r
10    if(j/=0) exit
11    if( any(rMax<r) ) then
12      j = maxloc( rMax , 1 , rMax<r )
13      rMax(j:) = [ r , rMax(j:NMAX-1) ]
14      cName(j:)= [ z , cName(j:NMAX-1) ]
15    end if
16  End Do
17  write(*,'(g0,1x,a)') ((rMax(j),cName(j)),j=1,NMAX)
18end program www_fcode_cn

[求助] 找到文本中最大的两个数据！

规矩勋章

元老勋章

新人勋章

水王勋章

热心勋章