Bonjours,
Je vais aujourd'hui vous presentez mon tout premier programme, je me debrouille pas encore trés bien, je vais donc le posté ici pour que vous puissiez en juger par vous même et m'aidiez a l'améliorer :)

Il concerne le Delta Discriminant ! C'est quoi ? quelque rappel de la 1 er S peut etre ? ;) !

En gros :

Lorsqu'on a une équation de second degrés (polynôme de second degré) de ce type :

ax²+bx+c = 0

alors on peut appliqué le Delta discriminant (signe : triangle (lettre grec Delta ) )

Delta = b²-4ac

Ensuite trois possibilité :

Delta > 0 , deux solution => x1 = (-b +racine carré de delta) / (2a)

x2 = (-b -racine carré de delta) / (2a)

Delta = 0 , une solution double => x = -b / 2a

Delta < 0 , pas de solution !

Voila maintenant on peut attaquer la parti programmation donc je vous présente mon travail :

Code:

1 : ClrHome 2 : Disp "AX^2+BX+C = 0" 3 : Prompt A 4 : If A = 0 5 : Then 6 : Disp "IMPOSSIBLE" 7 : Stop 8 : End 9 : Prompt B 10 : Prompt C 11 : ClrHome 12 : Disp "DELTA:" 13 : Disp "B^2-4AC" 14 : (B^2)-(4AC) -> D 15 : Disp "Delta=" 16 : Disp D 17 : If D>0 18 : Then 19 : Disp "2 SOLUTIONS" 20 : Output(1,1," // effacer le : done. 21 : 0 -> Z 22 : Disp " " // sautez une ligne 23 : Input "0 : SUIVANT",Z 24 : ClrHome 25 : Disp "X1=(-B+√D)/(2A) 26 : Disp "X2=(-B-√D)/(2A) 27 : (-B+√D)/(2A) -> I 28 : (-B-√D)/(2A) -> J 29 : Disp " " 30 : Disp "X1=",I 31 : Disp "X2=",J 32 : End 33 : 34 : If D<0 35 : Then 36 : Disp "0 SOLUTION." 37 : End 38 : 39 : If D=0 40 : Then 41 : Disp "1 SOLUTION" 42 : Disp "DOUBLE" 43 : Disp " " 44 : OutPut (1,1," 45 : 0 -> Z 46 : Input "0:SUIVANT",Z 47 : ClrHome 48 : Disp "X=(-B)/(2A)" 49 : (-B)/(2A) -> K 50 : Disp "X=",K 51: End

Voila ! donc vous avez certainement relever :

45 : 0 -> Z
46 : Input "0:SUIVANT",Z

Ces deux lignes me pose certainement le plus gros soucis ^^ !

En effet j'aimerai que l'utilisateur en appuyant simplement sur ENTER passe a la suite ... j'ai essayé plusieur methode en vain ... je fait donc appel a vous ! j'aimerai que quand on arrive a cette ligne , l'utilisateur puisse, au lieu de taper 0 puis ENTER , taper simplement ENTER pour passez a la suite !! merci ^^


Deuxieme chose : Les majuscules ... j'aimerai avoir le mode minuscule mais impossible de branchez ma calculette a l'ordi faute de vista ... j'ai tout essayé , de TI Connect en passant par TI graph link (qui ne s'installe meme pas c'est dire que je peut faire les prog que sur la calculette) a TiLP ... rien ne marche ^^

Donc si vous avez une solution aidez moi a résoudre ce probleme , je cherche aussi un programme pour programmez le language TI basic autre que TI graph link !! merci

Utilise la fonction pause()
Entre parenthèse, tu peux mettre de l'écriture, comme un simple disp():

au lieu de :

Code:

disp("0:SUIVANT pause(

tu peux faire

Code:

pause("0: SUIVANT

edit: je ne sais pas si ça t'intéresse, mais tu peux optimiser ton code avec quelques petits trucs simples: compresser plusieurs disp en un seul en séparant avec une virgule, enlever des parenthèses. Mais c'est sûr que c'est moins lisible après.

Même chose pour les "Prompt", tu peux écrire

Code:

Prompt B,C

à la place de

Code:

Prompt B Prompt C

A part ça, j'espère que ce programme est uniquement destiné à t'apprendre à programmer sur ta calculatrice ... car sinon des dizaines de programmes faisant la même chose et même bien plus existent déjà.

Pour ton problème de minuscules et tes problème de transfert, je te conseille vivement de faire des recherches sur le forum ainsi que dans les Tutos qui sont sur la page d'accueil, tu trouveras certainement ta réponse.

Enfin, pour ta dernière question, elle est incompréhensible : le TI Basic est un langage... et le TI Graph Link, comme son nom l'indique, est un câble (souvent agrémenté d'un logiciel de transfert) servant à relier l'ordinateur et la calculatrice. Il n'y a aucun rapport entre les 2 !

Je sais qu'il y en a pas mal moi même j'en utilise un ^^ mais comme je ne savais pas par quoi commencer et qu'en ce moment on etudie sa ... ben sa me tenter ;) !! sinon merci, j'essaie desuite pour pause( , seulement une petite question (enfin je verrais bien) mais peut ont mettre pause( sans rien derriere ? ^^ voila :) et merci pour les petites aide !!

Un autre probleme vien, j'aimerais affiché X1 = (-b+racin carré de delta) / 2a en chiffre ... pas avoir la solution directement ... pense tu que cela est possible ? si oui comment ? merci ^^

EDIT : ok pour pause c'est géniale merci ;)

regarde mon programme EQUATION il fait ça, mais c'est assez compliqué à gérer sur 83+, normalement je sors un nouveau programme pour ceci sous peu (début 2010) surprise....

Oui, calcule combien de place prend chaque nombre, et insére les nombres au milieu avec output(). Bon j'suis pas très clair, donc exemple:

(_ = un espace)

Code:

Output(1,3,"=(-__+__)/2*__ //le output va à la ligne de lui même Output(1,1,X1 Output(1,6,b Output(2,2,[racine carrée de delta] Output(2,6,a

ok mais cela va m'affiché les lettre a , b etc ... pense tu qu'on peut les remplacé par les valeurs ? :s ...

Oui. Comme dans l'exemple, tu mets la variable sans guillemets. Ca affiche sa valeur.

xD Syfo

RoMz34 -> De rien, mais tu verras que le mode graphique est plus compliqué. Il faut compter les coordonnées en pixels et préparer l'écran (ClearDraw, FnOff, PlottsOff) mais au final, tu auras plus de possibilités.

Astuce : afficher des grandes lettres en mode graphique (pas forcément utile au vu de la taille prise) :

Code:

:Text(-1,y,x,"montexte

où y et x sont les coordonnées en pixels. Note que le y est mis avant le x lorsqu'il s'agit de pixels.

_________________

Alors j'ai essayé un petit programme test :

Code:

1: Prompt A,B,C 2: Text(0,0,"X1=(-",B,"+sqrt(",D,"/(2*",A,")")

Sa donne bien ce que tu a dit ... mais le probléme c'est que s'a m'affiche aussi l'absice est l'ordonée et en petit ^^ sa tu a répondu je vais essayé de voir :) ! merci

Ajoutes CoordOff qui est dans le menu FORMAT ([2nd][ZOOM]) si les coordonnées te gênent.

Ca ne marche pas pour moi :s ... je met bien cordOff , avant ou aprés rien ne marche :s