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