SOS Probleme Programme ti 82 stat.fr [Résolu/Fermé]

Signaler
Messages postés
30
Date d'inscription
mardi 18 septembre 2012
Statut
Membre
Dernière intervention
4 septembre 2015
-
 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

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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
30
Date d'inscription
mardi 18 septembre 2012
Statut
Membre
Dernière intervention
4 septembre 2015

Repondez s'il vous plait ca me bloque vraiment dans mon aprentissage de la programation
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