\start83\
\comment=Programme fichier dat du 06/22/06, 20:20
\name=DROITE
\file=DROITE.TXT
ClrHome
Disp "EQUAT DROITE"
Disp "COORD 1ER POINT"
Prompt X,Y
Disp "COORD 2EME POINT"
Prompt Z,T
ClrHome
T-Y\->\A
X-Z\->\B
YZ-XT\->\C
Disp "AX+BY+C=0"
Disp "A=",A\>\Frac
Disp "B=",B\>\Frac
Disp "C=",C\>\Frac
Pause 
If abs(B)>0
Then
(T-Y)/(Z-X)\->\M
Y-MX\->\P
Disp "Y=MX+P"
Disp "M=",M\>\Frac
Disp "P=",P\>\Frac
Else
Disp "CAS PART D':X=K"
Disp "K=",X
End

\stop83\

