var x,y : integer; begin readln (x,y); if (x=0) or (y=0) then begin if x = 0 then writeln (‘Точка лежит на оси y’); if y = 0 then writeln (‘Точка лежит на оси x’)’ end else begin if (x>0) and (y>0) then writeln (‘Точка находится в первой четверти’); if (x<0) and (y>0) then writeln (‘Точка находится во второй четверти’); if (x<0) and (y<0) then writeln (‘Точка находится в третей четверти’); if (x>0) and (y<0) then writeln (‘Точка находится в четвертой четверти’); end; end.
// 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 четверти
2.2 Координатные четверти. «Поколение Python»: курс для продвинутых. Курс Stepik
Источник: znanija.site
Написать программу которая определяет к какой четверти плоскости
August 2022 1 8 Report
Написать программу, которая определяет, к какой четверти плоскости принадлежит точка с координатами х, у? Паскаль
Answers
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 четверти
Источник: scholar.tips
Написать программу которая определяет к какой четверти плоскости
Написать программу, которая определяет, к какой четверти плоскости принадлежит точка с координатами х, у? Паскаль
Ответ проверен экспертом
1 (2 оценки)
triolana 5 лет назад
Светило науки — 553134 ответа — 388270 раз оказано помощи
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
23 Задача: В какой координатной четверти находится точка?
// Внимание! Если программа не работает, обновите версию!
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 четверти
Источник: vashurok.com