На плоскости заданы 2 точки A и B ( их координаты вводятся с клавиатуры ). Программа должна вывести на экран слово TRUE, если обе точки находятся в одной четверти плоскости ( в одной квандранте ) и вывести слово FALSE во всех о...
На плоскости заданы 2 точки A и B ( их координаты вводятся с клавиатуры ). Программа должна вывести на экран слово TRUE, если обе точки находятся в одной четверти плоскости ( в одной квандранте ) и вывести слово FALSE во всех остальных случаях! программу составить в паскаль абц
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы