Poster un nouveau sujet Poster une réponse
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   Citer 

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 happy.gif

 Adresse email Haut de page Bas de page 
 
syma



Autorisation : Membre
Nb de messages : 4
Inscrit le : Dim 14 Oct 2012, 12:56
Posté le : Dim 14 Oct 2012, 14:57   Citer 

Erreur: il suffit juste de lettre Then après If et c'est bon
happy.gif

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 14 Oct 2012, 20:19   Citer 


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
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2024 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink