Pascal. Логический тип данных

Проверить истинность высказывания: «Данные числа x, y являются координатами точки, лежащей во второй координатной четверти».

Требуется вывести логическое значение True, если приведённое высказывание для предложенных исходных данных является истинным, и значение False в противном случае.

Во второй координатной четверти точка имеет следующие координаты:

• координата x — отрицательная (x < 0);

• координата y — положительная (y > 0).

Значит, высказывание «Данные числа x, y являются координатами точки, лежащей во второй координатной четверти» будет истинным только тогда, когда одновременно выполняются оба условия:

x < 0 и y > 0

В Pascal для проверки нескольких условий используется логический оператор and. Результат такого выражения уже является логическим значением (True или False).

Программа:

pascal




program CoordinateQuarter;
var
  x, y: integer;
  result: boolean;
begin
  readln(x, y);
  result := (x < 0) and (y > 0);
  writeln(result);
end.

Пояснение:

1. Считываются координаты точки x и y.

2. Проверяется условие:

   • x < 0 — точка находится левее оси Y;

   • y > 0 — точка находится выше оси X.

3. Если оба условия истинны, переменная result получает значение True.

4. Во всех остальных случаях выводится False.

Примеры:

Ввод:

-3 5

Вывод:

True

Точка с координатами (-3; 5) находится во второй четверти.

Ввод:

4 2

Вывод:

False

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