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
indica numero di elementi nel composto? 2
indice elemento n. 1  = ? 2
peso atomico elemento n. 1  = ? 1
indice elemento n. 2  = ? 1
peso atomico elemento n. 2  = ? 32
peso formula del composto= 34
-------premi enter per proseguire--------
fine prova
ritorna