На плоскости заданы 2 точки A и B ( их координаты вводятся с клавиатуры ). Программа должна вывести на экран слово TRUE, если обе точки находятся в одной четверти плоскости ( в одной квандранте ) и вывести слово FALSE во всех остальных случаях! программу составить в паскаль абц

1

Ответы и объяснения

Лучший Ответ!
2014-02-13T17:00:47+00:00
Var x1, x2, y1, y2: integer;
O: boolean;
begin       
write('X1: ');       
readln(x1);       
write('Y1: ');       
readln(y1);       
write('X2: ');       
readln(x2);       
write('Y2: ');       
readln(y2);       
if (x1 < 0) and (x2 < 0) and (y1 < 0) and (y2 < 0) then O:=true;       
if (x1 < 0) and (x2 < 0) and (y1 > 0) and (y2 > 0) then O:=true;       
if (x1 > 0) and (x2 > 0) and (y1 > 0) and (y2 > 0) then O:=true;       
if (x1 > 0) and (x2 > 0) and (y1 < 0) and (y2 < 0) then O:=true;       
if O = true then write('TRUE')       
else write('FALSE');
end.