listati da Qbasic

esci listaqbasic.htm

 

CLS
PRINT "programma scritto con QBASIC"
PRINT "si forniscono valori funzionali di numero inserito"
INPUT "scrivi un numero ", x
PRINT "assoluto............", ABS(x)
PRINT "intero..............", INT(x)
PRINT "segno...............", SGN(x)
PRINT "casuale.............", RND(x)

PRINT "quadrato............", x ^ 2
PRINT "radice quadrata.....", SQR(x)
PRINT "cubo................", x ^ 3
PRINT "logaritmo naturale..", LOG(x)
PRINT "logaritmo decimale..", LOG(x) / LOG(10)
PRINT "esponenziale........", EXP(x)
g = x * 3.14 / 180
PRINT "radianti............", g
PRINT "seno................", SIN(g)
PRINT "coseno..............", COS(g)
PRINT "tangente............", TAN(g)
PRINT "arcotangente........", ATN(g)

PRINT "fine prova"