Close2
akLOn the 2009-11-21 at 04:06pm
Bonjour, voici un programme que j'ai rentré dans ma calculette, mais lorsque je le lance, cela me dit : Missing )
Je ne vois pas ou il en manque une, quelqu'un pourrait il m'aider ?

Particul()
Prgm
ClrIO
Dialog
Title "emission de partiules"
EndDlog
Local a,e,f,g,m,n,i,j
Dialog
Title "emission de particules"
DropDown "type de particule",{"a","B-","B+","y"},a
EndDlog
While a=1
If a=1
Dialog
Title "nbr de protons & nucleons"
Request "A",i
Request "Z",j
EndDlog
expr(i)->n
expr(j)->m
"(A:"&string(n)&",Z:"&string(m)&")X --> (A:"&string(n-4)&"Z:"&string(m-2)&")Y+(4,2)He+y"->e
"(A:"&string(n)&",Z:"&string(m)&")X --> (A:"&string(n-4)&",Z:"&string(m-2)&")Y+(4,2)He"->f
"(A:"&string(n-4)&",Z:"&string(m-2)&")Y* --> (A:"&string(n-4)&",Z:"&string(m-2)&")Y+y"->g
Dialog
Title "resutat"
Text f
Text g
Text "bilan:"
Text e
EndDlog
Stop
EndWhile
While a=2
If a=2
Dialog
Title "nbr de protons & nucleons"
Request "A",i
Request "Z",j
EndDlog
expr(i)->n
expr(j)->m
"(A:"&string(n)&",Z:"&string(m)&")X"->e
"--> (A:"&string(n)&",Z:"&string(m+1)&")Y+(0,­1)e+y+­u->f
Dialog
Title "resutat"
Text e
Text f
EndDlog
Stop
EndWhile
While a=3
If a=3
Dialog
Title "nbr de protons & nucleons"
Request "A",i
Request "Z",j
EndDlog
expr(i)->n
expr(j)->m
"(A:"&string(n)&",Z:"&string(m)&")X"->e
"-->(A:"&string(n)&",Z:"&string(m-1)&")Y+(0,1)e+y+u­­­(-)->f
Dialog
Title "resutat"
Text e
Text f
EndDlog
Stop
EndWhile
While a=4
If a=4
Dialog
Title "nbr de protons & nucleons"
Request "A",i
Request "Z",j
EndDlog
expr(i)->n
expr(j)->m
"(A:"&string(n)&",Z:"&string(m)&")X* --> (A:"&string(n)&",Z:"&string(m)&")X+y"->g
Dialog
Title "resutat"
Text g
EndDlog
Stop
EndWhile
EndPrgm