esercitazioni con Turbo Basic

esci turboba.htm

sintassi varia, numeri, stringhe, vettori

rem sole1
rem uso di funzione su unica riga cfr.tbas5
cls
h$="-------------------------------------------------------------------"
print"determinare quadrato di un numero dato"
DEF FNquadrato(dato)=dato*dato:numero=5:print numero, FNquadrato(numero)
print h$
print"determinare triplo numero dato"
DEF FNtriplo(dato)=3*dato:numero=10:print numero,FNtriplo(numero)
print h$
print"determinare radice parola data"
DEF FNradice$(dato$)=left$(dato$,3):nome$="padova":print nome$,FNradice$(nome$)
print h$
print "fine esercizio"
end