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

viene richiesto il numero di elementi presenti nel composto
viene richiesto numero atomi di ogni elemento nel composto
viene richiesto peso atomico per ogni elemento
viene fornito il peso formula del composto
es.composto = H2O
elementi presenti=2
indice primo elemento = 2
indice secondo elemento =1
peso atomico di H = 1....di O =16...composto= 18
--------------------------------------------------------
numero di composti da analizzare=? 1


indica numero di elementi nel composto? 3
indice elemento n. 1  = ? 2
peso atomico elemento n. 1  = ? 1
indice elemento n. 2  = ? 1
peso atomico elemento n. 2  = ? 32
indice elemento n. 3  = ? 4
peso atomico elemento n. 3  = ? 16
peso formula del composto= 98
-------premi enter per proseguire--------

ritorna