listati da Qbasic

esci listaqbasic.htm

 

 

REM formula
REM calcolo peso formula con DATA
REM aggiungere dati in data e cambiare numero elementi
CLS
elementi = 50
INPUT "indica numero composti da esaminare="; totale
FOR a = 1 TO totale
PRINT "numero elementi composto n."; a; "="; : INPUT numero
FOR b = 1 TO numero
PRINT "scrivi simbolo e indice elemento..H,2. n."; b; "="; : INPUT a$, i
a$ = UCASE$(a$)
FOR c = 1 TO elementi
READ x$, p
IF x$ = a$ THEN s = s + p * i
NEXT c
RESTORE
NEXT b
PRINT "peso formula ="; s
RESTORE
BEEP
s = 0
DO WHILE INKEY$ = ""
LOOP
CLS

NEXT a
DATA Al,27,Ag,107,N,14,Ba,137,Be,9,Bi,209,B,11
DATA Br,80,Cd,112,Ca,40,C,12,Cs,133,Cl,35,Co,59
DATA Cr,52,He,4,Fe,56,F,19,P,31,H,1,I,127,Li,7
DATA Mg,24,Mn,55,Hg,200,Mo,96,Ne,20,Np,237,Ni,59
DATA Au,197,O,16,Pb,207,Pt,195,Pu,242,K,39,Ra,226
DATA Cu,63,Si,28,Na,23,Sn,118,Sr,88,U,238,V,51,Xe,131
DATA Zn,65,S,32,a,0,a,0,a,0,a,0,a,0,a,0