Даны действительные числа a,b,c,d,s,t,u( s и t одновременно не равны нулю ) известно что точки
(a,b) и (c,d) не лежать на прямой l заданной уравнением sx+ty+u=0. Прямая l разбивает коорд. плоскость на две полуплоскости. Выяснить верно ли что точки (a,b) и (c,d) принадлежат разным полуплоскостям.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var
x,y : integer;
a,b,c,d,s,t,u : real;
begin
clrscr;
Write('введите a,b,c,d,s,t,u');
Readln(a,b,c,d,s,t,u);
x:=-1;
y:=2;
if (s=0) and (t=0) then exit else
if (s*a+t*b+u<>0) and (s*c+t*d+u<>0) then
if ((a>x) and (b>y) and (c
then Writeln('Лежат на разных полуплоскостях')
else Writeln('Не лежат на разных полуплоскостях')
else exit;
readln;
end.
⇢