Finale
Risponde alla domanda "a, b e c costituiscono una terna pitagorica?" visualizzando il risultato dell'espressione c2-(a2+b2). Se apparirà sullo schermo "0" significherà che la terna era pitagorica; qualsiasi altro valore (<>0) rappresenterà la risposta negativa.
Rispetto alla versione precedente scompaiono il salto (JEQ) e un dato (RISP).
PROG RUN '
INP a ' a <-- in
LDA a ' ACC <-- a
MUL a ' ACC <-- ACC*a
STA TOTALE' TOTALE <-- ACC (a2)
INP a ' Utilizza a come b...
LDA a ' ACC <-- b
MUL a ' ACC <-- ACC*b
ADD TOTALE' ACC <-- ACC+TOTALE
STA TOTALE' TOTALE <-- ACC (a2+b2)
INP a ' Utilizza a come c...
LDA a ' ACC <-- c
MUL a ' ACC <-- ACC*c
SUB TOTALE' ACC <-- ACC-TOTALE
STA TOTALE' TOTALE <-- ACC (c2-a2-b2)
OUT TOTALE' out <-- TOTALE
ALT '
a DAT 0 ' DATI
TOTALE DAT 0 '
END '
Sono richieste 20 linee di programma rispetto alle 29 iniziali (-31%).
| 
