Bonjour, j'ai une autre erreur de programme qui me met : Erreur de dimension
Le curseur pour l'erreur se met à la fin de cette ligne : Text mm&" (g) : valeur approchee"
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
string(mm)->mm
string(mmp)->mmp
Dialog
Text mm&" (g) : valeur approchee"
Text mmp&" (g) : valeur exacte"
EndDlog
EndPrgm