esercitazioni con Turbo Basic
esci turboba.htm
sintassi varia, numeri, stringhe, vettori
rem sole2
rem uso di funzione in blocco separato cfr.tbas5
cls
h$="-------------------------------------------------------------------"
numero=5
print numero,"quadrato", FNquadrato(numero)
print h$
numero=10
print numero,"triplo",FNtriplo(numero)
print h$
nome$="PADOVA"
print nome$,"radice",FNradice$(nome$)
print h$
print "fine esercizio"
DO WHILE INKEY$ = ""
LOOP
CLS
RANDOMIZE TIMER: PRINT RND
PRINT "fine prova:premi return"
END
end
DEF FNquadrato(argomento)
FNquadrato=argomento*argomento
END DEF
DEF FNtriplo(argomento)
FNtriplo=argomento*3
END DEF
DEF FNradice$(argomento$)
FNradice$=left$(argomento$,3)
END DEF