|
|
Problema: contare quanti numeri (inseriti da tastiera) sono positivi e quanti sono negativi. Per terminare la fase d'inserimento inseriamo 0 (zero).
Diagramma di flusso: Programma: PROG RUN '
'
SU INP X '
LDA X '
JEQ FINE ' SE(X = 0): PC <-- FINE
JLT NEGAT ' SE(X < 0): PC <-- NEGAT
'
LDA CONTPO'
ADD #1 '
STA CONTPO' CONTPO <-- CONTPO+1
JMP SU '
'
NEGAT LDA CONTNE'
ADD #1 '
STA CONTNE' CONTNE <-- CONTNE+1
JMP SU '
'
FINE OUT CONTPO'
OUT CONTNE'
'
ALT '
'
X DAT 0 ' INPUT
CONTPO DAT 0 ' CONTATORE POSITIVI
CONTNE DAT 0 ' CONTATORE NEGATIVI
'
END '
|
|