Как решить задачу в Pascal про квадранты?

Question

[Xen_OS]

Есть задачка: "На плоскости задана прямоугольная система координат с осями X и Y, которая делит плоскость на 4 квадранта. Составить программу, которая вводит координаты точки (x,y) и сообщает, в каком квадранте (четверти) или на какой оси расположена точка."

Я вот что сочинил, но условие задачи не до конца выполнил, да и коряво вообще вышло:

program kvadrant;
var
  x,y:real;
begin
  writeln('Введите координаты x и y'); readln(x,y);
  if (x>0) and (y>0) then writeln('1й квадрант')
    else if (x<0) and(y>0) then writeln('2й квадрант')
      else if (x<0) and (y<0) then writeln('3й квадрант')
  else writeln('4й квадрант');
end.

Думаю, тут через case нужно делать? Или как?

Answer 1

[Dmitry]

Switch case можно, конечно, привязать, но выглядеть не ахти будет. Вместо эталона - true, вместо значений - требуемые логические выражения.
Я бы предложил перекомпоновать условия - зачем два раза сравнивать, что x>0 или y>0, если это можно сделать один раз

Comments

[Xen_OS]

Можно пример кода? Или алгоритм решения? Если не затруднит, конечно... Я сейчас только начал учить паскаль: условные операторы, оператор выбора. Мне сложно так просто взять и перекомпоновать условия.

Answer 2

[avalak]

туц