Fortran에서 시리즈의 모드를 계산하는 방법

Question

Fortran을 사용하여 계열의 모드를 계산하려면 어떻게해야합니까? 예를 들어

: 당신의 번호는 (그들은으로 나타나는) 분류되어있는 경우

1,2,2,3,3,3,4,4,5 
Mode = 3 

Answer 1

, 의사 코드는 간단하다 :

set maxval to -1 
set maxcount to -1 
set count to -1 
set lastval to list[0] - 1 
for every val in list: 
    if val is not equal to lastval: 
     if count is greater than maxcount: 
      set maxval to lastval 
      set maxcount to count 
     set count to 0 
     set lastval to val 
    set count to count plus one 
if maxcount is not equal to -1: 
    print "mode is " maxval " with count of " maxcount 

이 만 반환됩니다 것을 명심하십시오 첫 번째 경우 모드가 둘 이상인 경우.

Answer 2

필요한 경우 이미 운동 코드가 아닌 코드를 만들 수 있습니다. 예 : Mode at wiki rosettacode.org. 운동하는 경우 먼저 다른 대답에 주어진 알고리즘을 따르십시오.