Написать программу, которая определяет, к какой четверти плоскости принадлежит точка с координатами х, у? Паскаль
Answers & Comments
temk2005// PascalABC.NET 3.3, сборка 1634 от 14.02.2018 // Внимание! Если программа не работает, обновите версию!
begin var (x,y):=ReadReal2('Введите координаты точки x и y:'); if x=0 then begin if y=0 then Writeln('Точка лежит в начале координат') else Writeln('Точка лежит на оси ординат (y)'); exit end else if y=0 then begin Writeln('Точка лежит на оси абсцисс (х)'); exit end; if x>0 then if y>0 then Writeln('Точка принадлежит I четверти') else Writeln('Точка принадлежит IV четверти') else if y>0 then Writeln('Точка принадлежит II четверти') else Writeln('Точка принадлежит III четверти') end.
Пример Введите координаты точки x и y: 12.4 -7 Точка принадлежит IV четверти
Answers & Comments
// Внимание! Если программа не работает, обновите версию!
begin
var (x,y):=ReadReal2('Введите координаты точки x и y:');
if x=0 then begin
if y=0 then Writeln('Точка лежит в начале координат')
else Writeln('Точка лежит на оси ординат (y)');
exit
end
else
if y=0 then begin
Writeln('Точка лежит на оси абсцисс (х)');
exit
end;
if x>0 then
if y>0 then Writeln('Точка принадлежит I четверти')
else Writeln('Точка принадлежит IV четверти')
else
if y>0 then Writeln('Точка принадлежит II четверти')
else Writeln('Точка принадлежит III четверти')
end.
Пример
Введите координаты точки x и y: 12.4 -7
Точка принадлежит IV четверти