PROGRAMMARE IN ERRE

Soluzione del problema della media
PROGRAM SOMMA_MEDIA
CONST NUM_DATI=5
BEGIN ! main
A=45
B=7
C=68
D=2
E=34
SUM=A+B+C+D+E
AVERAGE=SUM/NUM_DATI
PRINT("NUMERO DATI =",NUM_DATI);
PRINT("NUMERO1 = "; A)
PRINT("NUMERO2 = "; B)
PRINT("NUMERO3 = ";C)
PRINT("NUMERO4 = ";D)
PRINT("NUMERO5 = ";E)
PRINT("SOMMA = ", SUM)
PRINT('MEDIA ARITM.=", AVERAGE)
END PROGRAM
Una volta compilato ed eseguito, il risultato è il seguente:
NUMERO DATI = 5
NUMERO1 = 45
NUMERO2 = 7
NUMERO3 = 68
NUMERO4 = 2
NUMERO5 = 34
SOMMA = 156
MEDIA ARITM.= 31.2
- 38 -