esercitazioni con Turbo Basic

esci turboba.htm

REM PROCED4
CLS
h$="-------------------------------------------------------------"
print"esempio di procedure e uso di SHARED per globale"
print"-----------------------------------------------------------------"
print"programma principale :chiede 2 nomi e stampa radice con 3 lettere"
print"e parte finale con tre lettere"
print
for a=1 to 2
CALL chiedenome(nome$)
CALL stampa(nome$)
CALL radice(dato$)
CALL stampa(nota$)
CALL finale(dato$)
CALL stampa(fine$)
print h$
next a
print"fine prova"
END

SUB chiedenome(n$)
SHARED dato$
input"scrivi un nome:";n$
dato$=n$
END SUB

SUB stampa(n$)
print "hai scritto la parola:";n$
END SUB

SUB radice(r$)
SHARED nota$
nota$=left$(r$,3)
END SUB

SUB finale(r$)
SHARED fine$
fine$= right$(r$,3)
END SUB