REM percento
REM calcolo percentuale elementi in composto 
CLS
DIM a$(10)
DIM pc(10)
DIM pa(10)
DIM in(10)
CLS
REM inserimento dati
INPUT "scrivi numero composti da esaminare="; totale
FOR q = 1 TO totale
PRINT "composto n."; q
INPUT "numero elementi presenti nel composto="; n
  FOR i = 1 TO n
    PRINT "scrivi simbolo elemento n."; i; "="; : INPUT a$(i)
    PRINT "scrivi peso atomico di "; a$(i); "="; : INPUT pa(i)
    PRINT "scrivi indice elemento "; a$(i); "="; : INPUT in(i)
    PRINT
  NEXT i

REM calcolo pesoformula
FOR i = 1 TO n
 pf = pf + in(i) * pa(i)
NEXT i

REM calcolo percentuale per ogni elemento
FOR i = 1 TO n
 pc(i) = 100 * pa(i) * in(i) / pf
NEXT i

REM stampo risultato percentuale calcolata
PRINT "peso formula composto="; pf
FOR i = 1 TO n
 PRINT "% di "; a$(i); "="; pc(i)
NEXT i

REM pausa
BEEP
DO WHILE INKEY$ = ""
LOOP
CLS
pf = 0
NEXT q

END

scrivi numero composti da esaminare=? 1
composto n. 1
numero elementi presenti nel composto=? 2
scrivi simbolo elemento n. 1 =? H
scrivi peso atomico di H=? 1
scrivi indice elemento H=? 2

scrivi simbolo elemento n. 2 =? O
scrivi peso atomico di O=? 16
scrivi indice elemento O=? 1

peso formula composto= 18
% di H= 11.11111068725586
% di O= 88.88888549804688

ritorna