esercitazioni con Turbo Basic

esci turboba.htm

sintassi varia, numeri, stringhe, vettori

 

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