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