Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Ven 11 Jan 2013, 17:44
Tu veux juste le partager ou de l'aide à le développer ?
Précise tes attentes et quelques commentaires.
Les parenthèses sont innutiles pour ces If.
Ne pas fermer les guillemets et les parenthèses à droite reste fonctionnel.
Utilise un calcul dans les coordonnées plutôt que ces tests et outputs.
:Output(5,10-H,R)
---------------------- 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)
Autorisation : Membre
Nb de messages : 3
Inscrit le : Ven 11 Jan 2013, 17:09
Posté le : Ven 11 Jan 2013, 18:32
Je cherche des améliorations pour mon programme parce que je suis un débutant, j'ai fait ce programme avec le peu de connaissance que j'ai en programmation.
Et donc je comprend pas ce que veux dire par:
"Utilise un calcul dans les coordonnées plutôt que ces tests et outputs.
:Output(5,10-H,R)"
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Ven 11 Jan 2013, 19:50
Je veux dire que tu peux utiliser l'instruction que j'ai fourni à la place de tes instructions d'affichage.
Tu peux écrire plus simplement la saisie avec Prompt au lieu de Input si tu te contentes d'afficher le vrai nom de la variable.
Je te propose maintenant de déplacer le Goto et de la soumettre à un test.
Ainsi il suffit de placer après lui les instruction pour N=0.
Ensuite on voit que la boucle peut s'écrire avec un While au lieu du Goto.
Code
:EffEcr
:Disp "BASE 10->BASE 2"
:Prompt N // à la place du Input
:0->H
:Lbl Z // remplace par : While N
:partEnt(N/2->Q
:N-2*Q->R
:Q->N
:H+1->H
:Output(5,10-H,R) // voici ce que donne ma simplification
:If N // si N non nul //remplace par : End
:Goto Z //supprimme
:Output(8,14,"FIN")
:Pause
---------------------- 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)