massemol()
Prgm
Local e,n,f,mm,m,mmp,mp
0->mm
0->mmp
Lbl debut
Dialog
Title "Masse molaire moleculaire."
DropDown "Elément : ",{"H","He","Li","Be","B","C","N","O","F","Ne","Na","Mg","Al","Si","P","S","Cl","Ar","K","Ca","Sc","Ti","V","Cr","Mn","Fe","Co","Ni","Cu","Zn","Ga","Ge","As","Se","Br","Kr"},e
Request "Nombre d'atomes ",n
DropDown "Action : ",{"Continuer","Fin"},f
EndDlog

expr(n)->n
If n="" Then
0->n
EndIf

mmm[e,1]->m
m*n+mm->mm

mmm[e,2]->mp
mp*n+mmp->mmp

If f=1 Then
Goto debut
EndIf
If f=2 Then
Goto fin
EndIf
Lbl fin
ClrIO 
Disp "Valeur approchée (g)" 
Pause mmm 
Disp "Valeur exacte (g)"
Pause mmp
EndPrgm