22 lines
306 B
Text
22 lines
306 B
Text
PROGRAM:DPAAPAAL
|
|
Disp "DISTANCE BETWEEN A POINT"
|
|
Disp "AND A LINE"
|
|
Pause
|
|
Disp ""
|
|
Dips "LINE: AX+BY+C"
|
|
Disp "POINT: (X,Y)"
|
|
Disp "D=abs(AX+BY+C)/sqrt(A^2+B^2)"
|
|
Pause
|
|
Disp ""
|
|
Disp "A"
|
|
Input A
|
|
Disp "B"
|
|
Input B
|
|
Disp "C"
|
|
Input C
|
|
Disp "X"
|
|
Input X
|
|
Disp "Y"
|
|
Input Y
|
|
abs(AX+BY+C)/sqrt(A^2+B^2)->D
|
|
Disp "DISTANCE=",D
|