j ai ecrit quelques programmes pour Ti82 et 83, des programmes qui sont faciles a taper et qui rendent bien service, par exemple : calculer des trinomes, tracer des derivés et d autres petits trucs comme ca... alors si ca interesse qqun, je peut en mettre qqun sur ce topic...

tte gene pas vas y

Salut moi je veux bien pour les dérivés.
Merci A+

moi je ve bien aussi : p

ouais ca m´interesse moi egalement ! !!!

bon ben je poste le programme ce week end

on attend toujours !

moi j´ai écris un programme qui résout les équations de forme :

1) ax + b = cx + d
où a , b , c , d sont des constantes et x l´inconnu

2)ax² + bx + c = 0
où a,b,c sont des constantes et x l´inconnu.

pour la 2eme, ça donne la factorisation et les 2 solutions.

EQSOLVER

:ClrHome
:Menu("DEGRE?","UN",1,"DEUX",2)
:Lbl 1
:ClrHome
:Disp "AX+B=CX+D","(A-C)!=0"
:Prompt A,B,C,D
(D-B)/(A-C))->X
:Disp "X="
:If int(X)=X
:Then
:Disp X
:Else
:Disp X>Frac
:End
:Stop
:Lbl 2
:ClrHome
:Disp "AX²+BX+C=0","A!=0"
:Prompt A,B,C
:V(A)->D
B/2)/D->E
:1->F
:If EE=C:2>F
:If F=1
:Then
:C-EE->G
:If G>O
:Then
:Disp "NO SOLUTION"
:Stop
:End
(-E+V(abs(G)))/D)->X
(-E-V(abs(G)))/D)->Y
:Else
-E/D)->X
E/D)->Y
:End
:Disp "X="
:If int(X)=X
:Then
:Disp X
:Else
:Disp X>Frac
:End
:If int(Y)=Y
:Then
:Disp Y
:Else
:Disp Y>Frac
:End
:Pause
:ClrHome
:Output(1,1,"AX+B)²+C=0"
:Pause
:Disp "","A:",D>Frac,"B:",E>Frac,"C:",G>Frac
:Pause
:Stop

______________

a savoir que

!= veut dire "différent de

Frac est en une seule instruction (page 1 math, 1ere)

-> ne se traduira pas bien dans un logiciel de transfert, il faut mettre "ä" je crois mais c´est pas sur à la place
V veut dire racine carré

____