Calcul de pourcentage
---------------------------------
C %
M Majoration
P valeur_partielle
T valeur_totale
W Minoration
---------------------------------
PROGRAM:POURCENT

0→T:0→C:0→P:0→W:0→M:0→N:0→X
EffÉcran
Disp "Calcul de Pourcentage (%)"
Disp "Prix ToT  & Pourcentage= 1"
Disp "Prix ToT  & Prix payé..= 2"
Disp "Prix ToT  & Différence.= 3"
Disp "Différence& Prix payé..= 4"
Disp "Différence& Pourcentage= 5"
Disp "Prix payé & Pourcentage= 6"
Disp "Zéro pour Quitter......= 0"
Disp " "
Input "Votre Choix ",X

If X=0 ou X>6:Then
EffÉcran
Stop
End

If X=1:Then
0→C:0→M:0→P:0→T:0→W
EffÉcran
Disp "Calcul de Pourcentage (%)"
Disp "--------------------------"
Input "Prix Total.....",T
Input "Pourcentage....",C

T/100*C→P
T-P→W
T+P→M

Output(6,1,"Différence.....")
Output(6,16,P)
Output(8,1,"Minoration.....")
Output(8,16,W)
Output(10,1,"Majoration.....")
Output(10,16,M)
Goto F
End

If X=2:Then
EffÉcran
Disp "Calcul de Pourcentage (%)"
Disp "--------------------------"
Input "Prix Total.....",T
Input "Prix Payé......",W

T-W→P
P*100/T→C

Output(6,1,"Différence.....")
Output(6,16,P)
Output(8,1,"Le % était de..")
Output(8,16,C)
Goto F
End

If X=3:Then
EffÉcran
Disp "Calcul de Pourcentage (%)"
Disp "--------------------------"
Input "Prix Total.....",T
Input "Différence.....",P

100/T*P→C
T-P→W

Output(6,1,"Le % était de..")
Output(6,16,C)
Output(8,1,"Prix Payé......")
Output(8,16,W)

Goto F
End

If X=4:Then
EffÉcran
Disp "Calcul de Pourcentage (%)"
Disp "--------------------------"
Input "Différence.....",P
Input "Prix Payé......",W

W+P→T
100/T*P→C

Output(6,1,"Prix Total......")
Output(6,16,T)
Output(8,1,"Le % était de...")
Output(8,16,C)
Goto F
End

If X=5:Then
EffÉcran
Disp "Calcul de Pourcentage (%)"
Disp "--------------------------"
Input "Pourcentage....",C
Input "Différence.....",P

P*100/C→T
T-P→W

Output(6,1,"Prix Total.....")
Output(6,16,T)
Output(8,1,"Prix Payé......")
Output(8,16,W)
Goto F
End

If X=6:Then
EffÉcran
Disp "Calcul de Pourcentage (%)"
Disp "--------------------------"
Input "Pourcentage....",C
Input "Prix Payé......",W

C/(100-C)*W→P
arrondir(P,2)→P
W+P→T

Output(6,1,"Différence.....")
Output(6,16,P)
Output(8,1,"Prix Total.....")
Output(8,16,T)
End

Lbl F
Pause 
EffÉcran