SOS Probleme Programme ti 82 stat.frRésolu/Fermé

Question

Bonjour,  
Je viens d'avoir la ti 82 stat.fr et je me suis  intéréssé au progammes... j'en ai donc fait un pour essayer, car je n'es jamais fait de programme. 
Le but est de dire si vous etes une fille ou un garcon, et la calculatrice fait un dessin representant un garcon ou une fille ( le truc classic: les bonhommes en baton, avec une jupe pour les filles...) Cependant, quoique je fasse, la calculatrice me met une jupe pour les deux cas. voici ce que j'ai rentré dans la calculette: (il faut savoir que c'est la premiere fois que je fais un programme seul, c'est donc mon 1ER...) 

:Disp "FILLES, TAPEZ 1" 
:Input ",GARCONS 2 ",A 
:if A=1 
:Cercle(0,0,1) 
:Ligne(0,-1,1,-2) 
:Ligne(0,-1,-1,-2) 
:Ligne(0,-1,0,-3) 
:Ligne(0,-3,1,-5) 
:Ligne(0,-3,-1,-5) 
:Ligne(-1,-3,1,-3) 
:Ligne(0,-2,1,-3) 
:Ligne(0,-2,-1,-3) 
:If A=2 
:Cercle(0,0,1) 
:Ligne(0,-1,1,-2) 
:Ligne(0,-1,-1,-2) 
:Ligne(0,-1,0,-3) 
:Ligne(0,-3,1,-5) 
:Ligne(0,-3,-1,-5) 
: 

Volia! Pouvez vous m'expliquer pourquoi elle me met toujours la jupe, Et me corriger... 
Merci de votre reponse :) 


Configuration: Windows 7 / Chrome 21.0.1180.89

SuperMegaMaiden · Answer

Repondez s'il vous plait ca me bloque vraiment dans mon aprentissage de la programation

charlesjean · Answer

essaie ainsi :  
:Disp "FILLES, TAPEZ 1"  
:Input ",GARCONS 2 ",A  
:if A=1  
:then  
:Cercle(0,0,1)  
:Ligne(0,-1,1,-2)  
:Ligne(0,-1,-1,-2)  
:Ligne(0,-1,0,-3)  
:Ligne(0,-3,1,-5)  
:Ligne(0,-3,-1,-5)  
:Ligne(-1,-3,1,-3)  
:Ligne(0,-2,1,-3)  
:Ligne(0,-2,-1,-3)  
:end  
:If A=2  
:then  
:Cercle(0,0,1)  
:Ligne(0,-1,1,-2)  
:Ligne(0,-1,-1,-2)  
:Ligne(0,-1,0,-3)  
:Ligne(0,-3,1,-5)  
:Ligne(0,-3,-1,-5)   
:end  

ou comme ça pour économiser  des octets:  
:Disp "FILLES, TAPEZ 0"  
:Input ",GARCONS 1 ",A  
:if A  
:then  
:Cercle(0,0,1)  
:Ligne(0,-1,1,-2)  
:Ligne(0,-1,-1,-2)  
:Ligne(0,-1,0,-3)  
:Ligne(0,-3,1,-5)  
:Ligne(0,-3,-1,-5)  
:Ligne(-1,-3,1,-3)  
:Ligne(0,-2,1,-3)  
:Ligne(0,-2,-1,-3)  
:Else  
:Cercle(0,0,1)  
:Ligne(0,-1,1,-2)  
:Ligne(0,-1,-1,-2)  
:Ligne(0,-1,0,-3)  
:Ligne(0,-3,1,-5)  
:Ligne(0,-3,-1,-5)   
:end

courage dans la suite

Cengokill · Answer

Il faut penser à EFFACER LE DESSIN à la fin sinon ça fausse les dessins, donc essaies ainsi : essaie ainsi : 
:Disp "FILLES, TAPEZ 1" 
:Input ",GARCONS 2 ",A 
:if A=1 
:then 
:EffDessin
:AxesNaff
:Cercle(0,0,1) 
:Ligne(0,-1,1,-2) 
:Ligne(0,-1,-1,-2) 
:Ligne(0,-1,0,-3) 
:Ligne(0,-3,1,-5) 
:Ligne(0,-3,-1,-5) 
:Ligne(-1,-3,1,-3) 
:Ligne(0,-2,1,-3) 
:Ligne(0,-2,-1,-3) 
:Pause
:EffDessin
:end 
:If A=2 
:then 
:EffDessin
:AxesNaff
:Cercle(0,0,1) 
:Ligne(0,-1,1,-2) 
:Ligne(0,-1,-1,-2) 
:Ligne(0,-1,0,-3) 
:Ligne(0,-3,1,-5) 
:Ligne(0,-3,-1,-5) 
:Pause
:EffDessin
:end

SOS Probleme Programme ti 82 stat.fr

3 réponses

Discussions similaires

Newsletters