listati da Qbasic

esci listaqbasic.htm

REM pformula
REM calcolo pesoformula
REM vedi Rescigno p.54 modificato
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