Programmation Trinôme

→ **MyCalcs** profile · by **Dave** » 26 Oct 2007, 21:03

bonjour, je suis en 1°S, et en cours de maths aujourd'hui, on a essayé de faire un programme pour les fonctions trinomes, ceci donne le programme suivant:

Code: Select all: :trinome() :Prgm :Disp "A" : Imput A :Disp "B" : Imput B :Disp "C" : Imput C :B^2-4AC[STO]D :D :-B/2A[STO]S :Disp "DELTA" :Disp D :If D0 :Then :Disp "2 Solutions" :(-B-√(D))/(2A)[STO]U :(-B+√(D))/(2A)[STO]V :Disp "x1=" :Disp U :Disp "x2=" :Disp V :Else :If D=0 :Then :Disp "1 Solution" :Disp S :Else :Disp "Pas de solutions" :EndPrgm

J'ai une Ti-89, et mon proffesseur de mathématique ne sais pas s'en servir lol, et bizarement le programme ci-dessus ne marche pas....
Es-ce que quelqu'un saurait où es le problème?

→ **MyCalcs** profile · by **tama** » 26 Oct 2007, 21:24

[pub]
J'en avais fait un mais c'était pour 83+/84+ ^^
D'ailleurs ptet que je vais l'améliorer pour mettre les complexes

[/pub]

Sinon à part le problème qu'a annoncé Mic y a "Imput" au lieu de "Input" c'est normal ?

→ **MyCalcs** profile · by **tama** » 26 Oct 2007, 21:29

et il manque aussi un (des?) EndIf

→ **MyCalcs** profile · by **Dave** » 26 Oct 2007, 21:29

Génial ça marche merci bcp bcp!!!!!!!!!!!!!
^^

Bon faut que je change de prof de math ^^

→ **MyCalcs** profile · by **tama** » 26 Oct 2007, 21:30

lol

bah bonne chance alors

(on a posté en même temps)

→ **MyCalcs** profile · by **Dave** » 26 Oct 2007, 21:30

C'est à dire il manque des EndIf? Où ça?

PS: oui, c'est des Input, je me suis trompé en recopiant ^^

→ **MyCalcs** profile · by **Dave** » 26 Oct 2007, 21:45

Comment ont ils osés??? ^^

Sinon pour en revenir au sujet, quand j'essaie de mettre une phrase avant Then comme ça :

Code: Select all: trinome(a,b,c) Prgm Local d b^2-4*a*c-d If d=0: Disp -b/(2*a) If d0: Disp "Pas de solutions réelles" If d0 Disp "2 Solutions" then Disp (-b-√(d))/(2*a) Disp (-b+√(d))/(2*a) EndIf EndPrgm

Ma calculatrice me mets qu'il y as une erreur, pourquoi ça?

→ **MyCalcs** profile · by **tama** » 26 Oct 2007, 21:48

C'est If condition Then ce qu'il faut faire EndIf
ou sinon If condition ce qu'il faut faire (s'il n'y a qu'une seule instruction à faire)

Ici la TI interprète :
Si d est supérieur à 0
Afficher "2 solutions"
Alors

Et là y a problème pour le Alors, parce que y a pas de If

Donc il faut mettre le Disp "2 solutions" après le "then"