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