esercitazioni con Turbo Basic
esci turboba.htm
REM rizzo42x
REM conversione numeri base10 in base8 e base16
CLS
DEFLNG N
10 INPUT " scrivi valore numerico "; n
IF (n < -32767) OR (n > 65534) THEN PRINT
"ripetere": GOTO 10
PRINT "il numero dato "; n; " risulta trasformato
in "
PRINT "base8 ="; OCT$(n)
PRINT "base16="; HEX$(n)
END