Выяснить, верно ли, что точки (x1 , y1) и (x2 , y2) принадлежат разным полуплоскостям.

@metis37 · Регистрация: 28.01.2012

Author24 — интернет-сервис помощи студентам

Даны действительные числа x1, y1 , x2 , y2 , a, b, c (a и b одновременно не равны нулю). Известно, что точки (x1 , y1) и (x2 , y2) не лежат на прямой l , заданной уравнением ax + by + c = 0. Прямая l разбивает координатную плоскость на две полуплоскости. Выяснить, верно ли, что точки (x1 , y1) и (x2 , y2) принадлежат разным полуплоскостям.
Pascal

@Puporev · 28.01.2012, 21:53

То что закомментировано, для этой задачи не нужно, но может пригодиться для другой.

Pascal

uses crt;
var x1,y1,x2,y2,a,b,c,k1,k2:real;
begin
clrscr;
writeln('Введите координаты точки 1');
readln(x1,y1);
writeln('Введите координаты точки 2');
readln(x2,y2);
repeat
writeln('Введите коэффициенты уравнения прямой a,b,c');
readln(a,b,c);
until(a<>0)or(b<>0);
k1:=a*x1+b*y1+c;
k2:=a*x2+b*y2+c ;
{if (k1=0)and(k2=0) then write('Обе точки лежат на данной прямой')
else if (k1=0)and(k2<>0) then write('Точка АВ лежит на данной прямой')
else if (k1<>0)and(k2=0) then write('Точка CD лежит на данной прямой')
else
 begin }
  if k1*k2<0 then write('Точки лежат по разные стороны от прямой')
  else write('Точки лежат по одну сторону от прямой');
 {end;}
readln
end.

@metis37 0 / 0 / 0 Регистрация: 28.01.2012 Сообщений: 8
		1
	Выяснить, верно ли, что точки (x1 , y1) и (x2 , y2) принадлежат разным полуплоскостям. 28.01.2012, 21:27. Показов 1983. Ответов 1 Метки нет (Все метки) Даны действительные числа x1, y1 , x2 , y2 , a, b, c (a и b одновременно не равны нулю). Известно, что точки (x1 , y1) и (x2 , y2) не лежат на прямой l , заданной уравнением ax + by + c = 0. Прямая l разбивает координатную плоскость на две полуплоскости. Выяснить, верно ли, что точки (x1 , y1) и (x2 , y2) принадлежат разным полуплоскостям. Pascal 0

	28.01.2012, 21:53

Выяснить, верно ли, что точки (x1 , y1) и (x2 , y2) принадлежат разным полуплоскостям.

Решение