Создать программу, которая определяет, используя введенные координаты,принадлежит ли точка кругу,ограниченному единичной окружностью?

Echo12 Echo12    1   08.06.2019 11:20    2

Ответы
valentina05ru valentina05ru  07.07.2020 16:54
Var
  x, y: real;

begin
  writeln('Введите координаты точки');
  readln(x, y);
  write('Точка с координатами (', x, ', ', y, ') ');
  if sqr(x) + sqr(y) > 1 then write('не ');
  writeln('принадлежит области, ограниченной окружностью единичного радиуса')
end.

Пример выполнения в среде PascalABC.NET:

Введите координаты точки
0.2
0.4
Точка с координатами (0.2, 0.4) принадлежит области, ограниченной окружностью единичного радиуса

Введите координаты точки
-0.4
2
Точка с координатами (-0.4, 2) не принадлежит области, ограниченной окружностью единичного радиуса

Создать программу, которая определяет, используя введенные координаты,принадлежит ли точка кругу,огр
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика