Программирование на Delphi7
Помогите, пожалуйста, решить с помощью программы. Задание: Задана точка с координатами на плоскости, определить ее принадлежность к координатным четвертям, осям и началу координат
По дате
По рейтингу
1234567891011
case ord(x > 0) - ord(x < 0) + 3 * (ord(y > 0) - ord(y < 0)) of
-4: writeln('III');
-3: writeln('OY');
-2: writeln('IV');
-1: writeln('OX');
0: writeln('0');
1: writeln('OX');
2: writeln('II');
3: writeln('OY');
4: writeln('I')
end