esercitazioni con Turbo Basic

esci turboba.htm

sintassi varia, numeri, stringhe, vettori

rem sole8
rem uso di funzione e LOCAL SHARED parametri multipli cfr.TBAS5
cls
h$="-------------------------------------------------------------"
A=8:B=6:C=10:D=20
k$="...."
print "variabili globali a,b,c,d ";A;k$;B;k$;C;k$;D
print FNY1(A,B),"prodotto a*b "
print FNY2(C,D),"prodotto c*d"
print "variabili dopo chiamata a,b,c,d ";A;k$;B;k$;C;k$;d
print "variabili locali h,k ",H,K
print h$
print FNY3(A,C),"prodotto a,c "
print "variabili globali dopo chiamata a,b,c,d ";A;k$;B;k$,C;k$;d
print "variabile globale K ",K
print "variabile locale H ",H
print h$
end

DEF FNY1(X1,X2)
FNY1=X1*X2
END DEF

DEF FNY2(X1,X2)
LOCAL H,K
H=X1:K=X2
FNY2=H*K
END DEF

DEF FNY3(G1,G2)
LOCAL H
SHARED K
H=G1:K=G2
FNY3=H*K
END DEF