esercitazioni con Turbo Basic

esci turboba.htm

sintassi varia, numeri, stringhe, vettori

rem sole6
rem uso di funzione cfr.TBAS5
cls
h$="----------------------------------------------------------"
A=8:B=9:C=10
PRINT "variabili a,b,c=";A,B,C
print FNY1(A),"quadrato di ",A
print FNY2(B),"doppio di ",B
print FNY3(C),"triplo di ",C
print h$
print"variabili a,b,c dopo chiamata funzione=invariate"
print A,B,C
print h$
end

DEF FNY1(X)
FNY1=X*X
END DEF

DEF FNY2(X)
FNY2=X*2
END DEF

DEF FNY3(C)
FNY3=C*3
END DEF