esercitazioni con Turbo Basic

esci turboba.htm

sintassi varia, numeri, stringhe, vettori

rem sole13
rem uso di array cfr.TBAS1
cls
h$="--------------------------------------------------"
print"array numerico con 6 elementi:indice X)
print h$
X=6
DIM numeri(X)
for a=1 to X
print"elemento n.";a;:input" :valore intero=", numeri(a)
next a
print"stampa elementi array "
for a=1 TO X
print numeri(a)
next a
print h$
print"stampa singoli elementi 3,4)
print numeri(3),numeri(4)
print h$
print"array stringa con 6 elementi:indici X"
print h$
DIM parola$(X)
for a=1 TO X
print"elemento n.";a;:input":stringa=";parola$(a)
next a
print"stampa elementi array"
for a=1 TO X
print parola$(a)
next a
print"stampa singoli elementi:2,4)
print parola$(2),parola$(4)
print h$
end