Forum TI-Planet.org

Bonjour/Bonsoir,

Je suis en Licence commerce et vente industriel et je souhaite mettre dans ma TI-83 premium CE, n'ayant pas trouvé sur le site des programmes pour les calculs de remises, calcul commercial,etc (peut-être mal cherché) je dois donc les faire personnellement.

je voudrai faire un programme qui me donne soit le pourcentage de remise en fonction du prix brut et du prix de remise soit le prix en fonction du pourcentage et du prix brut mais j'arrive pas a le finir, quand je le teste je tombe sur zéro alors qu'avec mon exemple je devrai tombé sur un pourcentage de 8% et une somme équivalente de 60€.

voici mon programme, si vous pouviez me dire ce qui ne va pas voire comment je pourrai peut-être l'améliorer :

Code: Select all

Disp "calcul de remise"
Disp "Prix brut"
Input A
Disp "% de remise"
Input B
Disp "prix de remise"
Input C
If B=0
Then
((C*100)/A)=N
Disp "remise en %"
Disp N
Else
If C=0
Then
((A*B)/100)=M
Disp "remise en euro"
Disp M
End

Merci d'avance, je compte sur vous

salut,

((C*100)/A)=N c'es pas = mais →
pareil pour ((A*B)/100)=M

Bonjour.

Pour les affectations ce n'est pas = mais → à saisir avec la touche :

Code: Select all

Disp "calcul de remise"
Input "Prix brut?",A
Input "% de remise?",B
Input "prix de remise?",C
If B=0
Then
Disp "remise en %",100C/A
Else
Disp "remise en euro",AB/100
End

Bonjour, avec mon programme je n'ai que l'erreur suivante avec le Lbt 2 et le 3 et j'aimerais savoir pourquoi ... voici l'erreur :

images/forum_uploads/191678_1539377120_5bc107e0527c4.png

et mon programme :

Code: Select all

Menu("This is worth it","Le tableau 3 ans",1,"Le tableau 4 ans",2,"Le tableau 2 ans",3
DelVar T
Lbl 1
DelVar T
Input "Capital de début = ",A
Input "Taux d'emprun = ",B
Disp "Interets N+0",A*(B/100)
Input "Si tu veux continuer met 1",T
If T=1:Then
Disp "Interets N+1",((A/3)*2)*(B/100)
Input "Si tu veux continuer met 1",T
If T=1:Then
Disp "Interets N+2",A/3*(B/100)
Stop
If T≠1:Then
Stop
DelVar T
Lbt 2
DelVar T
Input "Capital de début = ",A
Input "Taux d'emprun = ",B
Disp "Interets N+0",A*(B/100)
Input "Si tu veux continuer met 1",T
If T=1:Then
Disp "Interets N+1",((A/4)*3)*(B/100)
Input "Si tu veux continuer met 1",T
If T=1:Then
Disp "Interets N+2",((A/4)*2)*(B/100)
Input "Si tu veux continuer met 1",T
If T=1:Then
Disp "Interets N+3",(A/4)*(B/100)
Stop
If T≠1:Then
Stop
DelVar T
Lbt 3
DelVar T
Input "Capital de début = ",A
Input "Taux d'emprun = ",B
Disp "Interets N+0",A*(B/100)
Input "Si tu veux continuer met 1",T
If T=1:Then
Disp "Interets N+1",(A/2)*(B/100)
Stop
If T≠1:Then
Stop

Peut-être que c'est tout simplement parce que tu as bien mis Lbl 1, mais Lbt 2 et Lbt 3.
Corrige donc en Lbl 2 et Lbl 3.

Pourquoi

Code: Select all

If T≠1:Then
Stop

Pas besoin de Then si c'est juste une ligne de code qui suit If