Media


Calcolare la media dei numeri inseriti da tastiera.
Per terminare la fase d'inserimento inseriamo 0 (zero).

PROG   RUN       '
                 '

SU     INP X     '
       LDA X     '

       JEQ FINE  ' SE X = 0 ALLORA PC <-- FINE
       ADD SOMMA '

       STA SOMMA ' SOMMA <-- SOMMA+X
                 '

       LDA CONT  '
       ADD #1    '
CONT <-- CONT+1
       STA CONT  '
                 '

       JMP SU    '
                 '

FINE   LDA SOMMA '
       DIV CONT  '
SOMMA <-- SOMMA/CONT
       STA SOMMA '
       OUT SOMMA '

       ALT       '
                 '

X      DAT 0     '
CONT   DAT 0     '

SOMMA  DAT 0     '
                 '

       END       '

Se il primo valore inserito Ŕ 0 allora ci sarÓ una divisione per zero!



Aggiungiamo un controllo prima di dividere...
image
PROG   RUN       '
                 '

SU     INP X     '
       LDA X     '

       JEQ FINE? ' SE X = 0 ALLORA PC <-- FINE?
       ADD SOMMA '

       STA SOMMA ' SOMMA <-- SOMMA+X
       LDA CONT  '

       ADD #1    ' CONT <-- CONT+1
       STA CONT  '
       JMP SU    '

                 '
FINE?  LDA CONT  '

       JEQ FINE  ' SE CONT = 0 ALLORA PC <-- FINE
                 '

       LDA SOMMA '
       DIV CONT  '
SOMMA <-- SOMMA/CONT
       STA SOMMA '
FINE   OUT SOMMA '

       ALT       '
                 '

X      DAT 0     '
CONT   DAT 0     '

SOMMA  DAT 0     '
                 '

       END       '
There are no comments on this page.
Valid XHTML :: Valid CSS: :: Powered by WikkaWiki