Wiki source for MacMedia


Show raw source

<<[[MAC]]<<======Media======

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

%%(c)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 class="center" url="http://www.valcon.it/mac-/media.png"}}
%%(c)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 '%%
Valid XHTML :: Valid CSS: :: Powered by WikkaWiki