Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 7761
Réponses : 29
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Tableau d'avancement - Chimie seconde

Reinhart le 10/05/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
Métalocif le 11/05/2010 à 16:49
Déjà commencer prend deux M... Mis à part cette fôte d'Horteaugraf(montrez pas ça à ma prof de français... clown.gif) , ça m'a l'air bon...Programme fort utile que je recopierais bien si je manquais pas de mémoire maxiangry.gif
Ryuu le 11/05/2010 à 21:13
Bonjour,
Excusez moi, mais je ne comprends pas les caractères dans les lignes
Code
:""ü ( ) Y
Sangohan38 le 11/05/2010 à 21:14
Ce symbole est celui de la touche -> c'est-à-dire la touche sto.

Sangohan38
Ryuu le 11/05/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 le 12/05/2010 à 00: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.
Ryuu le 12/05/2010 à 21:39
Ok, merci beaucoup… minied.gif minied.gif
Ryuu le 13/05/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 le 13/05/2010 à 16:07
Essaye avec le moins de la négativité.

Sangohan38
Ryuu le 14/05/2010 à 16:34
Ça à l'air de marcher maintenant.
Merci
Persalteas le 18/05/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 le 18/05/2010 à 21:28
C'est Horizontal. Cest totalement vrai mais j'ai l'habitude des lignes.
Persalteas le 19/05/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 le 30/11/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 le 30/11/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.
Kewin33 le 01/12/2010 à 17:27
C bon j'ai réussi à corriger elle venait d'une erreur de frappe
programath le 27/02/2011 à 15:21
"úL†"
Après le L on le trouve ou ce symbole ?
linkakro le 10/03/2011 à 22:12
C'est un des caractères (UTF-8 ?) qui ne passent pas : l'indice 6 de L6
maestroarte le 11/03/2011 à 09: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 le 11/03/2011 à 12:55
Ce Á est tout simplement la touche theta obtenue en faisant ALPHA+3.

Sangohan38
ByUpeka le 17/06/2013 à 16:41
Bonjour,

Je ne comprends pas ces termes ci, pourriez vous m'aider^^

Code

:""ü ( ) Y
:""ü ( ) Y‚
:""ü ( ) Yƒ
:""ü ( ) Y„
:""ü ( ) Y…
:""ü ( ) Y†
:""ü ( ) Y‡
:""ü ( ) Yˆ
:""ü ( ) Y‰
:""ü ( ) Y€
:
:Xscl
:L†
:Fix 2
linkakro le 17/06/2013 à 20:01
Caractères spéciaux.
Ce sont les fonctions Y0 à Y9 puis L6.
https://tout82.pages-perso.fre[...].php?sujet=2502
ByUpeka le 17/06/2013 à 20:09
linkakro a écrit :
Caractères spéciaux.
Ce sont les fonctions Y0 à Y9 puis L6.
https://tout82.pages-perso.fre[...].php?sujet=2502


Merci beaucoup happy.gif
ByUpeka le 17/06/2013 à 20:10
linkakro a écrit :
Caractères spéciaux.
Ce sont les fonctions Y0 à Y9 puis L6.
https://tout82.pages-perso.fre[...].php?sujet=2502


Par contre je n'y comprends rien concernant ce que je dois traduire^^'
linkakro le 17/06/2013 à 22:01
Code
:""->Y1
:""->Y2
:""->Y3
:""->Y4
:""->Y5
:""->Y6
:""->Y7
:""->Y8
:""->Y9
:""->Y0
:Xscl
:L6
:Fix 2
La table que j'ai donné en lien précédemment ne montre pas tous les mots, ceux qui se terminent pareil sont à déduire. J'ai donné des exemples complémentaires dans la plupart des cas.
Laurera le 18/08/2013 à 15:55
Bonjour,
Excusez moi, j'ai chercher dans toute la calculatrice et je ne trouve pas le paramètre Fix du programme.

Laurera
m@thieu41 le 18/08/2013 à 19:40
Quand tu es dans l'édition d'un prgm:
[mode] à coté de "Flott" tu as des nombres de 0 à 9. Sélectionne le nombre X pour "Fixe X".
Donc ici pour fixe 2 tu choisis le 2 à coté du flott winkle.gif
Alber reporter le 25/05/2015 à 13:08
Bonjour, j'écrit ici 2 ans après car j'ai un probleme dans la ligne
:Text(2,9+(ST),"R"

Je tombe sur une erreur syntax pourtant j'ai bien recopié sad.gif
Alber reporter le 25/05/2015 à 14:44
C'est une erreur DOMAIN pas Syntax
Mingerton le 26/05/2015 à 16:49
Quelle ligne de quel code ? Ce sujet ne contient pas de code.
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.