Заданы координаты точки (x,y) в прямоугольной системе координат. Определить в какой четверти находится точка.

Заданы координаты точки (x,y) в прямоугольной системе координат. Определить в какой четверти находится точка.

Program kp;

Var x,y:real;

begin

writeln('Введите координаты точки:');

write('x= ');readln(x);

write('y= ');readln(y);

if (x0) and (y0) then writeln('Точка находится в первой четверти');

if (x0) then writeln('Точка находится во второй четверти');

if (x

if (x0) and (y

if (x=0) or (y=0) then writeln('Точка находится на оси координат');

end.

Результаты выполнения программы

Введите координаты точки:

x= 3

y= 5

Точка находится в первой четверти

Введите координаты точки:

x= -3

y= 5

Точка находится во второй четверти

Введите координаты точки:

x= -3

y= -5

Точка находится в третьей четверти

Введите координаты точки:

x= 3

y= -5

Точка находится в четвертой четверти

Введите координаты точки:

x= 0

y= 5

Точка находится на оси координат