Bonjour, voici un programme que j'ai conçu qui résoud tout les probleme possible ou presque (enfin plutôt les calculs) en rapport avec les pourcentages. Il est assez amélioré (cependant les vétérans de la progra sur calcu auront vite fait de l'améliorer...).
Bref, passons au choses sérieuses il s'appelle : POURCENT (vous pouvez bien sur le changer en n'importe quoi mais bon hein ça parait le truc le plus évident) il fait 693 octets.
Le lien : http://www.4shared.com/file/8Q21L3v-/POURCENT.html
Voila, voila j'espère que ça vous sera utile, n'hésitez pas à me corriger et à me proposer de faire une amélioration que j'aurais oublier.
Bref, passons au choses sérieuses il s'appelle : POURCENT (vous pouvez bien sur le changer en n'importe quoi mais bon hein ça parait le truc le plus évident) il fait 693 octets.
Le lien : http://www.4shared.com/file/8Q21L3v-/POURCENT.html
- Code:
:Lbl M
:ClrHome
:Menu("(A/B)=(X/100)","X=?",1,"B=?",2,"A=?",3,"X+Θ/100",4,"X-Θ/100",5,"ORIGINE",6,"QUITTER",Q
:Lbl 1
:Disp "A/B = X/100","A=PARTIE DU TOUT","B=SOMME TOTALE
:Prompt A,B
:Pause A100/B
:Goto M
:Lbl 2
:Disp "(A/B)=(X/100)","A PARTIR D'UN","NOMBRE A=X/100","ON TROUVE","LE TOTAL 'B'
:Prompt A,X
:Pause A100/X
:Goto M
:Lbl 3
:Disp "SOIT X ET B","A/B=X/100
:Prompt X,B
:Pause BX/100
:Goto M
:Lbl 4
:Disp "X+(Θ/100) DE X
:Prompt X,Θ
:Pause X(1+Θ/100
:Goto M
:Lbl 5
:Disp "X-(Θ/100) DE X
:Prompt X,Θ
:Pause X(1-Θ/100
:Goto M
:Lbl 6
:Menu("ORIGINE","PLUS",A,"MOINS",B
:Lbl A
:Disp "B=X+Θ/100 DE X","X ETANT LE NBR","D'ORIGINE","A LE POURCENTAGE","ET B LE NBR","FINAL
:Prompt B,A
:Pause B/(1+A/100
:Goto M
:Lbl B
:Disp "B=X-Θ/100 DE X","X ETANT LE NBR","D'ORIGINE","A LE POURCENTAGE","ET B LE NBR","FINAL
:Prompt B,A
:Pause B/(1-A/100
:Goto M
:Lbl Q
Voila, voila j'espère que ça vous sera utile, n'hésitez pas à me corriger et à me proposer de faire une amélioration que j'aurais oublier.
Dernière édition par ashtrail le Sam 5 Oct 2013 - 19:22, édité 1 fois