esercitazioni con Turbo Basic

esci turboba.htm

sintassi varia, numeri, stringhe, vettori

rem sole4
rem uso di funzione e variabile globale cfr.TBAS5
cls
h$="-----------------------------------------------------"
numero=10
nuovo=50
print"numero prima della chiamata",numero
print"nuovo come globale",nuovo
print h$
print "quadrato del numero",FNquadrato(numero)
print h$
print "numero dopo chiamata di funzione",numero
print"nuovo globale dopo chiamata funzione",nuovo
print"nuovo come globale dopo la divisione",nuovo
print h$
end

DEF FNquadrato(argomento)
SHARED nuovo
FNquadrato=argomento*argomento
print"nuovo ,prima della div.",nuovo
nuovo=nuovo/10
print "nuovo ,dopo la divisione",nuovo
print
END DEF