esercitazioni con Turbo Basic
esci turboba.htm
REM pformula
REM calcolo pesoformula
CLS
PRINT "viene richiesto il numero di elementi presenti nel
composto"
PRINT "viene richiesto numero atomi di ogni elemento nel
composto"
PRINT "viene richiesto peso atomico per ogni elemento"
PRINT "viene fornito il peso formula del composto"
PRINT "es.composto = H2O"
PRINT "elementi presenti=2"
PRINT "indice primo elemento = 2"
PRINT "indice secondo elemento =1"
PRINT "peso atomico di H = 1....di O =16...composto=
18"
PRINT
"--------------------------------------------------------"
INPUT "numero di composti da analizzare="; numero
FOR b = 1 TO numero
s = 0
CLS
PRINT "indica numero di elementi nel composto"; : INPUT
n
FOR a = 1 TO n
PRINT "indice elemento n."; a; " = "; : INPUT
i
PRINT "peso atomico elemento n."; a; " = "; :
INPUT p
s = s + i * p
NEXT a
PRINT "peso formula del composto="; s
BEEP
PRINT "-------premi enter per proseguire--------"
DO WHILE INKEY$ = ""
LOOP
NEXT b
PRINT "fine prova"
END