Tiens voici une solution pour ton programme :

Elle n'est pas exhaustive, elle pourrait sûrement être plus simple, mais ainsi, ton programme reste à peu près comme tu l'avais fait.
- Code: Select all
:essais()
:Prgm
:Input "m",m
:If m=x:"m"-str //Je regarde si c'est cette variable qui est x et j'enregistre son nom
:Input "g",g
:If g=x:"g"-str //idem
:Input "p",p
:If p=x:"p"-str //idem
:explist(solve(p=m*g,x),x)-#str //là, j'enregistre la liste de solutions dans la variable que CONTIENT str grâce à l'indirection : #
:Disp "p=",p
:Disp"m=",m
:Disp"g=",g
:endPrgm
à toi de voir !
