Principianti

Massimo,minimo e media

Programma per il calcolo del massimo, minimo e della media tra n numeri interi.

Programma in linguaggio Fortran 90 che accetta dall'utente un
numero intero positivo n, seguito da n numeri interi e calcola tra
di essi il valore massimo, quello minimo e la loro media.

! --------------------------------------------------
PROGRAM MEDIA
! --------------------------------------------------

IMPLICIT NONE
! - - - local declarations - - -
INTEGER :: index,n,x,minimo,massimo
REAL(4) :: media1,somma

! - - - begin - - -
WRITE (*,901) "Numeri da sommare ","(Inserisci un intero N >= 1): "
READ (*,902) n
WRITE (*,901) "Inserisci N numeri interi:","--> "
READ (*,902) x
massimo = x
minimo = massimo
somma = minimo
DO index = 2,n
WRITE (*,903) "--> "
READ (*,902) x
somma = somma + x
IF (x < minimo) minimo = x
IF (x > massimo) massimo = x
END DO
media1 = somma / n
WRITE (*,904,ADVANCE='NO') "MASSIMO=",massimo,"MINIMO=",minimo,"MEDIA=",media1
WRITE (*,904,ADVANCE='NO') ""
STOP

901 FORMAT (A/A)
902 FORMAT (I)
903 FORMAT (/A)
904 FORMAT (/A,I15,/A,I16,/A,F17.6)
END PROGRAM

• » Invia tramite EMAIL
• » Versione per la STAMPA
• » Le vostre opinioni

I link correlati all'argomento

• Un semplice programma per iniziare
• La stuttura di un programma in fortran 77
• Manuali fortran in italiano
• Software