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