Есть задачка: "На плоскости задана прямоугольная система координат с осями 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 нужно делать? Или как? |