X MAX |
Auteur |
Message |
Rézus
Autorisation : Membre
Nb de messages : 853
Inscrit le : Sam 20 Jui 2009, 20:35
|
Posté le : Mer 15 Juil 2009, 11:10
|
|
|
Pour faire un peu plus dans le serieux voila un programme pour calculer X MAX (216 octets)
Code | :ClrHome
:Disp "SOIT A ET B DEUX","REACTIFS.",""
:Input "NA=",A
:Input "NB=",B
:Input "COEF A=",D
:Input "COEF B=",E
:A/D->I
:B/E->J
:If I=J
:Disp "XMAX=",I,"LA REACTION EST","STOECHIOMETRIQUE
:If I>J
:Disp "XMAX=",J,"B EST LIMITANT
:If I<J
:Disp "XMAX=",I,"A EST LIMITANT
|
|
|
|
|
Sangohan38
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Mer 15 Juil 2009, 12:13
|
|
|
Ma version du programme sans doute plus court:
Code | :ClrHome
:Disp "SOIT A ET B DEUX","REACTIFS",""
:Input "NA:",A
:Input "NB:",B
:Input "COEFF A:",D
:Input "COEFF B:",E
ClrHome
A/D->I
B/E->J
If I<J:Disp "XMAX=",I,"A EST LIMITANT"
If I>J:Disp "XMAX=",J,"B EST LIMITANT
If I=J:Disp "XMAX=",I,"LA REACTION EST","STOECHIOMETRIQUE"
Pause
ClrHome |
Sinon, j'ai remarqué que sur tes programmes, tu met des ClrDraw au lieu de mettre des ClrHome (EffEcr en français). Ce n'est pas la même chose car le premier efface le graph alors que le second nettoie l'écran principal.
Sangohan38
|
|
|
|
Rézus
Autorisation : Membre
Nb de messages : 853
Inscrit le : Sam 20 Jui 2009, 20:35
|
Posté le : Mer 15 Juil 2009, 13:46
|
|
|
Ta version fait huit octets de plus que la mienne dsl.
T'as oublié le guillemet devant le B a la ligne Output(3,1,B mais celui qui est a la fin de la deuxième ligne est inutile,ainsi que celui derrière le " EST LIMITANT"
Par contre pour le ClrDraw t'as raison, ma calto est en francé jme suis trompé dans la traduction,je corrige tout.
|
|
|
|
Google_AdSense
|
Publicité
|
|
|
|
|
Sangohan38
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Mer 15 Juil 2009, 14:29
|
|
|
Voila j'ai modifié les erreurs et raccourcis un peu le code.
Sangohan38
|
|
|
|
Rézus
Autorisation : Membre
Nb de messages : 853
Inscrit le : Sam 20 Jui 2009, 20:35
|
Posté le : Mer 15 Juil 2009, 14:49
|
|
|
Disp "XMAX=",I,"A EST LIMITANT
ça compte pour une seule instruction ?
Forcément dans ce cas...lol
d'accord,je corrige.
Par experience le pause et le ClrHome de fin sont inutiles,mieux vaut ne pas les mettre,ça permet de continuer a faire des calculs avec le résultat sous les yeux.
|
|
|
|
Google_AdSense
|
Publicité
|
|
|
|
|
Sangohan38
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Mer 15 Juil 2009, 17:11
|
|
|
C'est pour faire un programme qui a une fin et qui laisse un écran vide.
D'ailleur, je rajoute en génral un Ouptut(1,1," " pour ne pas afficher la fin du programme.
Sangohan38
|
|
|
|
Google_AdSense
|
Publicité
|
|
|
|
|
Rézus
Autorisation : Membre
Nb de messages : 853
Inscrit le : Sam 20 Jui 2009, 20:35
|
Posté le : Mer 15 Juil 2009, 17:16
|
|
|
C'est plus esthétique mais en DS c'est pas pratique.
Dans le même genre j'ai un copain qui avait mis créé par...interdit a la copie au début d'un programme de cours mais celui qui en a besoin vite en DS ben ça y s'en fout,autant le mettre à la fin où ça gène pas.
|
|
|
|