program Project1;
var
LX1, LY1, LX2, LY2, X1, Y1, X2, Y2, A, B, C, Res1, Res2 : Extended;
S : String;
begin
repeat
Writeln('Задайте координаты первой точки на прямой:');
Write('LX1 = ');
Readln(LX1);
Write('LY1 = ');
Readln(LY1);
Writeln('Задайте координаты второй точки на прямой:');
Write('LX2 = ');
Readln(LX2);
Write('LY2 = ');
Readln(LY2);
Writeln('Задайте координаты первой исследуемой точки:');
Write('X1 = ');
Readln(X1);
Write('Y1 = ');
Readln(Y1);
Writeln('Задайте координаты второй исследуемой точки:');
Write('X2 = ');
Readln(X2);
Write('Y2 = ');
Readln(Y2);
(*Вычисляем коэффициэнты уравнения прямой: AX + BY + C = 0.*)
A := LY1 - LY2;
B := LX2 - LX1;
C := (LX1 * LY2) - (LX2 * LY1);
(*Вычисляем значение левой части уравнения прямой при подстановке
координат точек.*)
Res1 := A * X1 + B * Y1 + C;
Res2 := A * X2 + B * Y2 + C;
(*Ответ. Если значения Res1 и Res2 одинакового знака - значит точки лежат
по одну сторону от прямой. Если разного - то по разные стороны от прямой.*)
if Res1 * Res2 < 0 then
Writeln('Точки расположены по разные стороны относительно прямой.')
else if Res1 * Res2 > 0 then
Writeln('Точки расположены по одну сторону относительно прямой.')
else
Writeln('Одна или обе точки лежат на прямой.')
;
Writeln('Повторить - Enter, выход - любой символ + Enter.');
Readln(S);
until S <> '';
end.
Похожие записи/страницы:
- Описать процедуру Dist(Px,Py,Ax,Ay,Bx,By,D), находящую расстояние D от точки P до прямой AB по формуле D = 2SPAB…
- Напечатать координаты точки пересечения этих прямых, либо сообщить, что эти прямые совпадают, не пересекаются…
- Заданы координаты двух точек (x1;y1) и (x2;y2). Определить лежат ли они на одной окружности с центром в начале…
- Найти расстояние между двумя точками с заданными координатами (x1, y1) и (x2, y2) на плоскости - Pascal(Паскаль)
- Написать программу, которая определяет – какая из двух точек, заданных на плоскости своими координатами,…
- Даны три точки на плоскости. Определить, какая из них ближе к началу координат - Pascal(Паскаль)
- Для данной прямой составить уравнение перпендикулярной ей прямой, проходящей через указанную точку. Для прямой…
- Заданы координаты двух точек на плоскости. Составьте программу, определяющую, какая из точек удалена от начала…