На плоскости заданы 2 точки A и B ( их координаты вводятся с клавиатуры ). Программа должна вывести на экран слово TRUE, если обе точки находятся в одной четверти плоскости ( в одной квандранте ) и вывести слово FALSE во всех остальных случаях! программу составить в паскаль абц
На плоскости заданы 2 точки A и B ( их координаты вводятся с клавиатуры ). Программа должна вывести на экран слово TRUE, если обе точки находятся в одной четверти плоскости ( в одной квандранте ) и вывести слово FALSE во всех остальных случаях! программу составить в паскаль абц
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program CheckQuadrant;
var
x1, y1, x2, y2: Integer;
begin
// Ввод координат точек A и B
Write('Введите координаты точки A (x y): ');
ReadLn(x1, y1);
Write('Введите координаты точки B (x y): ');
ReadLn(x2, y2);
// Проверка на то, находятся ли точки в одной четверти
if (x1 x2 > 0) and (y1 y2 > 0) then
WriteLn('TRUE')
else
WriteLn('FALSE');
end.