Programme maths es |
Auteur |
Message |
syma
Autorisation : Membre
Nb de messages : 4
Inscrit le : Dim 14 Oct 2012, 12:56
|
Posté le : Dim 14 Oct 2012, 13:16
|
|
|
Salut j'ai un petit problème sur mon programme , svp aidez moi:)
Program:MATHS
:EffEcr
:Input "Valeur ?",A
:Input "Valeur ?",B
:Disp "Resultat :
:If A<0
:Then 1-(A/100)
:Else (A/100)+1
:If B<0
:Then 1-(B/100)
:Else (B/100)+1
:End
Les calculs d'origines seuls sont pour une augmentation( par exemple 40%) : (40/100)+1
Et pour une diminution de 40% : 1-(40/100)
Je veu juste rassemblez c'est 2 calcul en un seul programme
Merci d'avance
|
|
|
|
syma
Autorisation : Membre
Nb de messages : 4
Inscrit le : Dim 14 Oct 2012, 12:56
|
Posté le : Dim 14 Oct 2012, 14:57
|
|
|
Erreur: il suffit juste de lettre Then après If et c'est bon
|
|
|
|
linkakro
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Dim 14 Oct 2012, 20:19
|
|
|
Code | :EffEcr
:Input "Valeur ?",A
:Input "Valeur ?",B
:Disp "Resultat :
:If A<0
:Then
:Disp 1-(A/100
:Else
:Disp 1+(A/100
:If B<0
:Then
:Disp 1-(B/100
:Else
:Disp 1+(B/100
:End |
Si tu veux pouvoir saisir un A négatif pour représenter une diminution, uilise simplement :
Code | :EffEcr
:Input "Valeur ?",A
:Input "Valeur ?",B
:Disp "Resultat :
:Disp 1+(A/100
:1+(B/100 |
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store |
|
|
|