Fortran - Calcular la moda de un array en Fortran

   
Vista:

Calcular la moda de un array en Fortran

Publicado por Roberto (1 intervención) el 28/06/2016 18:09:59
¿Cómo puedo calcular la moda de un array de enteros en Fortran?

Tengo el siguiente esquema:

1
2
3
4
5
6
program array
 
implicit none
integer :: x(8) = [6, 3, 9, 6, 6, 5, 9, 3]
 
print*, moda(x)

en la sección contains he creado una función que me ordena el array.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
function ordena(x)
 
integer :: x(:), ordena(size(x)), k, mayor, menor, n
n = size(x)
k = 1
 
do while( k < n)
k = k +1
if ( x(k-1) > x(k)) then
mayor = x(k-1)
menor = x(k)
x(k-1) = menor
x(k) = mayor
k = 1
end if
end do
 
ordena = x
end function
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Fortran
- Código fuente de Fortran
- Cursos de Fortran
- Temas de Fortran
información
Códigos de Fortran
- Ecuaciones lineales