esercitazioni con Turbo Basic

esci turboba.htm

sintassi varia, numeri, stringhe, vettori

rem sole12
rem uso di array cfr.TBAS1
cls
h$="--------------------------------------------------"
print"array numerico con 6 elementi:indice X,Y)
print h$
X=20:Y=25
DIM numeri(X:Y)
for a=X TO Y
print"elemento n.";a;:input" :valore intero=", numeri(a)
next a
print"stampa elementi array "
for a=X TO Y
print numeri(a)
next a
print h$
print"stampa singoli elementi 21,23)
print numeri(21),numeri(23)
print h$
cls
print"array stringa con 6 elementi:indici X,Y"
print h$
DIM parola$(X:Y)
for a=X TO Y
print"elemento n.";a;:input":stringa=";parola$(a)
next a
print"stampa elementi array"
for a=X TO Y
print parola$(a)
next a
print"stampa singoli elementi:22,24)
print parola$(22),parola$(24)
print h$
end