Mathématiques

Question

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éponse

  • 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


  • 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 

Autres questions