esercitazioni con Turbo Basic

esci turboba.htm

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