Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Tableau d'avancement - Chimie seconde

Page: 1, 2 >>

Tableau d'avancement - Chimie seconde

Auteur

Message

Reinhart

Autorisation : Membre
Nb de messages : 37
Inscrit le : Lun 16 Nov 2009, 18:58

Posté le : Lun 10 Mai 2010, 21:49

Voila un programme de tableau d'avancement d'une réaction chimique qui prend en compte le nombre de reactifs et de produits, le nombre de mole et le coefficient des reactifs/produits.
Qu'en pensez vous ?

Code

Lbl A
:Menu("TABL.D'AVANCEMENT","COMENCER",1,"Stop",Z
:Lbl Z
:ClrHome
:ClrDraw
:Stop
:Goto A
:Lbl 1
:""ü

Y
:""ü

Y‚
:""ü

Yƒ
:""ü

Y„
:""ü

Y…
:""ü

Y†
:""ü

Y‡
:""ü

Yˆ
:""ü

Y‰
:""ü

Y€
:Fix 2
:100000ü

W
:30ü

dim L†
:8ü

dim L…
:ClrHome
:Input "NB DE REACTIF ? ",Á
:Input "NB DE PRODUITS ?",Z
:For(A,1,Á
:ClrHome
:Output(5,3,"REACTIF "
:Output(5,12,A
:Input "COEF ?",D
:Input "MOL ?",E
:Dü

L†(A)
:Eü

L†(A+Á)
:End
:For(A,1,Z
:ClrHome
:Output(5,5,"PRODUIT"
:Output(5,13,A
:Input "COEF ? ",H
:
:Hü

L…(A)
:End
:ClrHome
:For(B,1,Á
:(L†(B+Á))/(L†(B))
:If Ans÷

W:Then:Ansü

W:Bü

U:End
:End
:
:Output(1,1,"REACT. LIMITANT:"
:Output(2,2,"REACTIF "
:Output(2,10,U
:Output(3,1,"XMAX="
:Output(3,9,W
:Pause
:
:ClrDraw
:1ü

Xmin
:95ü

Xmax
:0ü

Xscl
:1ü

Ymin
:63ü

Ymax
:0ü

Yscl
:Line(1,63,1,1
:Line(95,63,95,1
:Line(1,55,95,55
:Line(8,63,8,1
:Line(1,1,95,1
:Line(1,18,95,18
:Line(1,36,95,36
:Line(1,63,95,63
:Text(15,2,"0"
:Text(30,2,"X"
:Text(47,2,"X"
:Text(54,1,"M"
:int (87/(Á+Z))ü

S
:For(T,1,S
:Line(8+TS,63,8+TS,1
:End
:For(T,0,Á-1
:Text(2,9+(ST),"R"
:Text(2,14+(ST),T+1
:End
:For(X,0,Z-1
:Text(2,9+(ST)+(SX),"P"
:Text(2,14+(ST)+(SX),X+1
:End
:For(X,0,Á-1
:Text(15,9+(SX),L†(X+1+Á)
:End
:For(T,0,Z-1
:Text(15,(9+(SX))+ST,"0"
:End
:For(X,0,Á-1
:Text(33,(9+(SX)+10),"X"
:Text(33,(9+(SX)),ú

L†(X+1)
:End
:For(T,0,Z-1
:Text(33,(9+(SX)+ST)+5,"X"
:Text(33,(9+(SX)+ST),L…(T+1)
:End
:For(X,0,Á-1
:Text(50,9+(SX),(L†(X+1+Á))-(L†(X+1)*W)
:End
:For(T,0,Z-1
:Text(50,9+(SX)+ST,(W*L…(T+1))
:End
:Pause
:ClrDraw
:ClrHome
:Goto A

----------------------
Eleve a Supinfo, programmeur C/C#/C++/Java/Assembleur
Delphi/et tout les langages Web.

Programmeur de Ti Basic sur demande, adresse msn : St3ph_daft@hotmail.fr

Métalocif

Autorisation : Membre
Nb de messages : 92
Inscrit le : Lun 10 Mai 2010, 19:24

Posté le : Mar 11 Mai 2010, 16:49

Déjà commencer prend deux M... Mis à part cette fôte d'Horteaugraf(montrez pas ça à ma prof de français...

) , ça m'a l'air bon...Programme fort utile que je recopierais bien si je manquais pas de mémoire

----------------------
"On ne ment jamais autant qu'avant les élections, pendant la guerre et après la chasse." Clémenceau

Ryuu

Autorisation : Membre
Nb de messages : 58
Inscrit le : Mer 07 Oct 2009, 20:44

Posté le : Mar 11 Mai 2010, 21:13

Bonjour,
Excusez moi, mais je ne comprends pas les caractères dans les lignes

Code

:""ü

Sangohan38

Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Mar 11 Mai 2010, 21:14

Ce symbole est celui de la touche -> c'est-à-dire la touche sto.

Sangohan38

Ryuu

Autorisation : Membre
Nb de messages : 58
Inscrit le : Mer 07 Oct 2009, 20:44

Posté le : Mar 11 Mai 2010, 21:19

Merci, mais ce n'est pas de celui-là dont je parle. Je pensais à ceux qui sont après le "Y".

linkakro

Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25

Posté le : Mer 12 Mai 2010, 0:33

Ce sont des chiffres en indice. Par exemple Y1 (la variable de la fonction cartésienne 1)
---
La présentation est belle. C'est un bon travail.

Pour plus simple(?) et plus léger Regardez aussi le miens. Comme vous le constaterez je me suis passé de choses superflues. Il est illimité en quantité de données.
EDIT: Toutefois le mien ne sert pas aux noobs qui n'arrivent déjà pas à remplir les expressions littérales.

----------------------
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)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store

Ryuu

Autorisation : Membre
Nb de messages : 58
Inscrit le : Mer 07 Oct 2009, 20:44

Posté le : Mer 12 Mai 2010, 21:39

Ok, merci beaucoup…

Ryuu

Autorisation : Membre
Nb de messages : 58
Inscrit le : Mer 07 Oct 2009, 20:44

Posté le : Jeu 13 Mai 2010, 15:49

Bonjour,
J'ai encore un autre problème :

Code

:Text(33,(9+(SX)),ú

L†(X+1)

Je ne sais pas à quoi correspond le caractère "ù".

Sangohan38

Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Jeu 13 Mai 2010, 16:07

Essaye avec le moins de la négativité.

Sangohan38

Ryuu

Autorisation : Membre
Nb de messages : 58
Inscrit le : Mer 07 Oct 2009, 20:44

Posté le : Ven 14 Mai 2010, 16:34

Ça à l'air de marcher maintenant.
Merci

Persalteas

Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09

Posté le : Mar 18 Mai 2010, 21:15

cool ton prog, il est joli et il fonctionne.

pourquoi tu as mis plusieurs boucles For( avec les mêmes caractéristiques?
C'est pour que le tableau s'affiche dans l'ordre?

sinon les lignes

Code

:Line(1,55,95,55

puis

:Line(1,1,95,1
:Line(1,18,95,18
:Line(1,36,95,36
:Line(1,63,95,63

peuvent être remplacées par

Code

:Horizontale 55

et

:Horizontale 1
:Horizontale 18
:Horizontale 36
:Horizontale 63

remarque je sais pas comment s'appelle la fonction Horizontale en anglais mais ça devrais pas être trop dur à trouver.

Reinhart

Autorisation : Membre
Nb de messages : 37
Inscrit le : Lun 16 Nov 2009, 18:58

Posté le : Mar 18 Mai 2010, 21:28

C'est Horizontal. Cest totalement vrai mais j'ai l'habitude des lignes.

----------------------
Eleve a Supinfo, programmeur C/C#/C++/Java/Assembleur
Delphi/et tout les langages Web.

Programmeur de Ti Basic sur demande, adresse msn : St3ph_daft@hotmail.fr

Persalteas

Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09

Posté le : Mer 19 Mai 2010, 15:15

d'ailleurs on peut aussi remplacer les auttres Ligne( (celles que j'ai pas déjà citées) par "Verticale", en français. (Vertical en anglais?)

Kewin33
Invité

Posté le : Mar 30 Nov 2010, 19:02

If Ans÷W:Then:AnsüW:BüU:End
Salut Merci pour ce programme mais j'ai un problème au niveau de la ligne
ça me met erreur de type donnée
Merci pour ton aide

linkakro

Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25

Posté le : Mar 30 Nov 2010, 19:57

Teste Ans après l'erreur et dis nous ce qu'elle contient. De toute évidence elle ne contient pas un simple nombre.

----------------------
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)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store

Kewin33
Invité

Posté le : Mer 01 Déc 2010, 17:27

C bon j'ai réussi à corriger elle venait d'une erreur de frappe

programath

Autorisation : Membre
Nb de messages : 36
Inscrit le : Jeu 24 Fév 2011, 21:45

Posté le : Dim 27 Fév 2011, 15:21

"úL†"
Après le L on le trouve ou ce symbole ?

linkakro

Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25

Posté le : Jeu 10 Mar 2011, 22:12

C'est un des caractères (UTF-8 ?) qui ne passent pas : l'indice 6 de L6

----------------------
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)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store

maestroarte

Autorisation : Membre
Nb de messages : 16
Inscrit le : Lun 21 Fév 2011, 15:29

Posté le : Ven 11 Mar 2011, 9:10

Bonjour,

Code

:Input "NB DE REACTIF ? ",Á

Le "A" avec l'accent aigu n'est pas le meme que le "A" normal?
Si la réponse est non (je prévois à l'avance :p), ou le trouve t-on? Car il n'est pas présent dans "Catalog" (enfin il me semble...^^)
Maestro

Sangohan38

Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Ven 11 Mar 2011, 12:55

Ce Á est tout simplement la touche theta obtenue en faisant ALPHA+3.

Sangohan38

Page: 1, 2 >>

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Tableau d'avancement - Chimie seconde

Flux RSS