Voilà mon Super Mega Ultra Hyper Extra Programme de Trinômes que vous attendiez tous !!!!!^^

Il fait (franchement!) TOUT !!!!

Merci de l'adopter et de me dire ce que vous en pensez !!

BASIC Code a écrit:

:Lbl 1
:DelVar S
:DelVar T
:ClrHome
:Disp " ax²+bx+c","
:Input "a= ",A
:Output(1,5-(A<0)-(A>9),A
:If A=1
:Output(1,5,"
:Input "b= ",B
:Output(1,9-(B<0),B
:If B<0:Output(1,8,"-
:If B>9 or B<‾9:Output(1,11,"x+c
:Input "c= ",C
:Output(1,12+(B>9)+(B<‾9)-(C<0),C
:If C<0:Output(1,11+(B>9),"-
:B²-4AC→D
:Output(7,1,"Δ= b²-4ac
:Output(8,1,"Δ=
:Output(8,4,D
:Pause
:ClrHome
:Output(1,1,"a (x+(b/2a))² - (D/4a)
:Output(4,1,A
:Output(4,3,"( x + / )² - ( / )
:Output(4,9,B
:Output(4,13,2A
:Output(5,6,D
:Output(5,11,4A
:
:Output(7,1,"a (x+ )²-
:Output(7,6,B/(2A
:Output(7,11,D/(4A
:Pause
:Menu("TRACER?","OUI",TR,"NON",00
:Lbl TR
:StoreGDB 1
:ClrDraw:GridOff:Degree:Func:AxesOn:ZoomFit
:"AX²+2X+C→Y1
:Trace
:RecallGDB 1
:Lbl 00
:"→Y1:"→Y2
:Menu(" C'EST QUOI ? ","EQUATION",EQ,"INEQUATION",IN,"",00,"QUITTER",Q
:Lbl IN
:ClrHome
:Output(1,9,0
:Output(3,1,"> ≥ < OU ≤ !
:Input "Ordre? ",Str1
:If D>0:Goto IP
:If D=0:Goto IZ
:If D<0 and (A<0 and Str1="<") or (A>0 and Str1=">"):Goto I2
:
:Lbl IZ
:ClrHome
:
:If (A<0 and Str1="≤") or (A>0 and Str1="≥")
:Disp "S = R
:
:If (A<0 and Str1="≥") or (A>0 and Str1="≤") or (A<0 and Str1="<") or (A>0 and Str1=">")
:Disp "S = { ‾B/2A }",‾B/(2A
:If (A>0 and Str1="<") or (A<0 and Str1=">
:Disp "Pas de solutions
:Pause
:Goto Q
:
:Lbl IP
:ClrHome
:Output(1,1,"Meme signe que Aa l'ext. des racines.
:Pause
:Goto Q
:
:Lbl I2
:ClrHome
:Disp "S= R
:Pause
:Goto Q
:
:Lbl EQ
:If D>0:Goto PO
:If D<0:Goto NE
:If not(D:Goto NU
:Lbl PO
:ZStandard
:AxesOff
:ClrDraw
:Text(1,1,"Δ>0 : FACTORISATION:
:If A>9 or A<0
:Then
:Text(15,2,"a
:Else
:Text(15,2,A
:End
:Text(15,6,"(x+"," - )(x+ + )
:Line(‾3.2,4,‾.4,4
:Line(‾6.3,4,‾5,4
:Line(3.2,4,4.5,4
:Line(5.8,4,8.7,4
:For(θ,20,64,44
:Text(12,θ-2(B>9)-2(B<0),B
:Text(20,θ-2((2A)>9)-2((2A)<0),2A
:End
:For(θ,31,74,43
:Text(12,θ,"√(Δ)
:Text(20,θ+6,2abs(A
:End
:Text(38,1,"2 RACINES:
(‾B-√(D))/(2A→S
(‾B+√(D))/(2A→T
:Text(46,1,"x'= (‾b-√(Δ))/2a = ",S
:Text(54,1,"x''= (‾b+√(Δ))/2a = ",T
:Pause
:ClrDraw
:Goto Q
:Lbl NE
:ClrHome
:Output(1,1,"Δ<0 donc :
:Output(3,1,"-> Pas de factorisation possible
:Output(6,1,"-> Pas de racine
:Pause
:Goto Q
:Lbl NU
:ClrHome
:Output(1,1,"Δ=0 donc :
:Output(3,1,"1 seule solution
:Output(5,1,"‾b/2a =
:Output(5,9,‾B/2A
:Pause
:Lbl Q
:ClrDraw
:ClrHome
:Output(8,2,"ADRIWEB 2007
:Disp D►Frac,"
:If S and T
:Then
:Disp S►Frac,T►Frac
:Output(3,1,"RACINES:
:End
:Output(1,1,"DISCR=

Generated by SourceCoder, © 2005 Cemetech

(C'était long, à taper, tout ça, sur la calc ^^)

Merci de l'adopter et de me dire ce que vous en pensez:=): !!



Pour Tama (et pour Tous ^^) Voici un screenshot !

bâââââââh tu pouvais pas mettre une capture d'écran au lieu de mettre le code ? :p

c'est fait ^^

pas mal :)

merci !

lol j'aime bien ton sondage ça va de "bien" à "parfait"

ah zut fallait voter pour "vraiment excellent! bravo!" ça aurait dépassé et ça aurait fait *ahem*

?


pi bref, j'ai vu le programme Solver5 ... donc bon ... ça ma découragé ^^

meuh non il est très bien ton programme ^^

Voila encore un vote et on a un poing ferme.

Ok je sors.

Utile parfait et excellent, Bravo !

parce que je le voudrai bien pour l'examiner pour Gigamath

juste ? il fais les racines complexes conjugées pour les équation du 2e degré quand delta<0 ???

non, il a pas encore appris ça Adri ^^

a merde

a oui oups il a 15 ans dsl

euh tma t'est parti !!

lol les TI, pas étonnant que t'en ai 5, j'en ai 4 alors moi

trèèèès loin alors

magnifique programme, faut que je finisse de l'adapter à ma V200 mais j'ai regarder le code. J'AI PRESQUE TOUT COMPRIS (enfin j'ai compris les grandes lignes surtout ). Bravo, sa me donne des idées pour les programmes que j'ai fait moi même, je vais rajouté de nouvelle fonction dessus en m'inspirant de ton programme. Bravo

et bien merci beaucoup ^^

:)

j'oublierais pas de mettre que c'est inspiré de ton programme.

Bon bah Adri ton programme a au moins fait un heureux

oh que c'est gentil ^^

mais yen a plein des programes comme ça, tu peux regarder sur

http://www.ticalc.org/pub/83plus/basic/math

oép mais ils sont pas aussi biens :p