Bonjour; J'ai un Dm à faire pendant les vacances et pouvez vous m'aidez pour le faire s'il vous plait ! " Soit un système d''équation : Ax + By +C = 0 Dx + Ey +F = 0
A,B,C,D,E et F étant des nombres quelconques
je dois faire un programme pour savoir si c'est deux droites sont parallèles mais comment écrire dans un programme sur ma calculatrice une texas Ti-82 Stats fr
qu'il faut mettre sous la forme y=(ax+c)-b

dîtes moi s'il vous cela fait dejà une semaine que j'essaye et je n'y arrive pas

2

Réponses

Meilleure réponse !
  • Utilisateur Brainly
2014-03-13T19:51:36+01:00
Ax + By +C = 0                                                                                                               Dx + Ey +F = 0

Program TI 82 stat.fr / TI 83 + :


:EffEcr
:Lbl 00
:Menu("SYSTEME D'EQUATION","2 INCONNUES",01,"3 INCONNUES",02,"EQUATION 2 DEGRE",03,"QUITTER",04)
:Lbl 04
:Stop
:EffEcr
:End
:Lbl 01
:Output(1,1,"SYSTEME EQUATION")
:Output(2,5,"{AX+BY=C")
:Output(3,5,"{DX+EY=F")
:Disp "","","",""
:Input "A=",A
:Input "B=",B
:Input "C=",C
:Input "D=",D
:Input "E=",E
:Input "F=",F
:(A*F-D*C)/(A*E-B*D)->Y
:(C*E-F*B)/(A*E-B*D)->X
:EffEcr
:Output(1,1,"SOLUTION:")
:Output(3,1,"X=")
:Output(5,1,"Y=")
:Output(5,3,Y)
:Output(3,3,X)
:Pause
:EffEcr
:Goto 00
:Lbl 02
:Output(1,1,"SYSTÈME D'EQUATION")
:Output(2,3,"{AX+BY+CZ=J")
:Output(3,3,"{DX+EY+FZ=K")
:Output(4,3,"{GX+HY+IZ=L")
:Disp "","","","",""
:Input "A=",A
:Input "B=",B
:Input "C=",C
:Input "D=",D
:Input "E=",E
:Input "F=",F
:Input "G=",G
:Input "H=",H
:Input "I=",I
:Input "J=",J
:Input "K=",K
:Input "L=",L
:EffEcr
:Output(1,1,"SOLUTION:")
:A*E*I+B*F*G+C*D*H-G*E*C-H*F*A-I*D*B->D
:J*E*I+B*F*L+C*K*H-L*E*C-H*F*J-I*K*B->θ
:θ/D->X
:A*K*I+J*F*G+C*D*L-G*K*C-L*F*A-I*D*J->W
:W/D->Y
:A*E*L+B*K*G+J*D*H-G*E*J-H*K*A-L*D*B->V
:V/D->Z
:Output(3,1,"X=")
:Output(4,1,"Y=")
:Output(5,1,"Z=")
:Output(3,3,X)
:Output(4,3,Y)
:Output(5,3,Z)
:Pause
:EffEcr
:Goto 00
:Lbl 03
:EffEcr
:Output(1,4,"AX²+BX+C")
::Input "A=",A
:Input "B=",B
:Input "C=",C
:EffEcr
:Output(1,4,"AX²+BX+C")
:B*B-4*A*C->D
:Output(3,1,"DISCRI.:")
:Output(3,9,D)
:If D>0
:Then
:(-B-D^1/2)/2*A->x
:(-B+D^1/2)/2*A->Y
:Output(5,1,"X'=")
:Output(7,1,"X''=")
:Output(5,4,X)
:Output(7,5,Y)
:Else
:If D=0
:Then
:-B/2*A->X
:Output(3,1,"X=Y=")
:Output(3,5,X)
:Else
:If D<0
:Then
:Output(5,1,"PAS DE SOLUTION")
:End
:End
:End
:Pause
:EffEcr
:Goto 00


T'es sur que c'est ça car c'est compliqué et il y a des chiffres alors que dans mon système yen a pas et c'est long ??
2014-03-13T19:53:28+01:00
Bonjour bas voila 
Ax + By +C = 0                                                                                                               Dx + Ey +F = 0 

Program TI 82 stat.fr / TI 83 + :


:EffEcr
:Lbl 00
:Menu("SYSTEME D'EQUATION","2 INCONNUES",01,"3 INCONNUES",02,"EQUATION 2 DEGRE",03,"QUITTER",04)
:Lbl 04
:Stop
:EffEcr
:End
:Lbl 01
:Output(1,1,"SYSTEME EQUATION")
:Output(2,5,"{AX+BY=C")
:Output(3,5,"{DX+EY=F")
:Disp "","","",""
:Input "A=",A
:Input "B=",B
:Input "C=",C
:Input "D=",D
:Input "E=",E
:Input "F=",F
:(A*F-D*C)/(A*E-B*D)->Y
:(C*E-F*B)/(A*E-B*D)->X
:EffEcr
:Output(1,1,"SOLUTION:")
:Output(3,1,"X=")
:Output(5,1,"Y=")
:Output(5,3,Y)
:Output(3,3,X)
:Pause
:EffEcr
:Goto 00
:Lbl 02
:Output(1,1,"SYSTÈME D'EQUATION")
:Output(2,3,"{AX+BY+CZ=J")
:Output(3,3,"{DX+EY+FZ=K")
:Output(4,3,"{GX+HY+IZ=L")
:Disp "","","","",""
:Input "A=",A
:Input "B=",B
:Input "C=",C
:Input "D=",D
:Input "E=",E
:Input "F=",F
:Input "G=",G
:Input "H=",H
:Input "I=",I
:Input "J=",J
:Input "K=",K
:Input "L=",L
:EffEcr
:Output(1,1,"SOLUTION:")
:A*E*I+B*F*G+C*D*H-G*E*C-H*F*A-I*D*B->D
:J*E*I+B*F*L+C*K*H-L*E*C-H*F*J-I*K*B->&#952;
:&#952;/D->X
:A*K*I+J*F*G+C*D*L-G*K*C-L*F*A-I*D*J->W
:W/D->Y
:A*E*L+B*K*G+J*D*H-G*E*J-H*K*A-L*D*B->V
:V/D->Z
:Output(3,1,"X=")
:Output(4,1,"Y=")
:Output(5,1,"Z=")
:Output(3,3,X)
:Output(4,3,Y)
:Output(5,3,Z)
:Pause
:EffEcr
:Goto 00
:Lbl 03
:EffEcr
:Output(1,4,"AX²+BX+C")
::Input "A=",A
:Input "B=",B
:Input "C=",C
:EffEcr
:Output(1,4,"AX²+BX+C")
:B*B-4*A*C->D
:Output(3,1,"DISCRI.:")
:Output(3,9,D)
:If D>0
:Then
:(-B-D^1/2)/2*A->x
:(-B+D^1/2)/2*A->Y
:Output(5,1,"X'=")
:Output(7,1,"X''=")
:Output(5,4,X)
:Output(7,5,Y)
:Else
:If D=0
:Then
:-B/2*A->X
:Output(3,1,"X=Y=")
:Output(3,5,X)
:Else
:If D<0
:Then
:Output(5,1,"PAS DE SOLUTION")
:End
:End
:End
:Pause 
:EffEcr