SOS Probleme Programme ti 82 stat.fr

Résolu
SuperMegaMaiden Messages postés 30 Date d'inscription   Statut Membre Dernière intervention   -  
 Cengokill -
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 :)


3 réponses

charlesjean
 
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
1
SuperMegaMaiden Messages postés 30 Date d'inscription   Statut Membre Dernière intervention  
 
Repondez s'il vous plait ca me bloque vraiment dans mon aprentissage de la programation
0
Cengokill
 
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
0