Предмет: Информатика, автор: 2016dreamer2016

Хеееееееелп
Написать программу, которая определит принадлежит ли заштрихованной области (рисунок) точка с координатами X,Y

Приложения:

2016dreamer2016: Для старой версии работает:
var x,y:Real;
begin
writeln ('Введите через пробел координты x и y точки:');
readln (x, y);
if (x>0) and (x*x+y*y<25) and (x*x+y*y>9)
then Writeln('Принадлежит')
else Writeln('Не принадлежит')
end.

Ответы

Автор ответа: Аноним
1
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var (x,y):=ReadReal2('Введите через пробел координты x и y точки:');
  if (x>0) and (x*x+y*y<25) and (x*x+y*y>9) then Writeln('Принадлежит')
  else Writeln('Не принадлежит')
end.
Приложения:

AlexanderMikhailov: Она же принадлежит
AlexanderMikhailov: Исходя из вашей логики точка с "десятичной" координатой не может быть
AlexanderMikhailov: Это вы обманываете народ
AlexanderMikhailov: Вы просто поняли свою ошибку и теперь решили включить режим оправдания
AlexanderMikhailov: "круга радиуса 5"?
AlexanderMikhailov: О чём вы говорите?
AlexanderMikhailov: В общем, я долб. Если вы имеете в виду, что границы заштрихованной области не принадлежат это области, то да, вы правы.
Похожие вопросы
Предмет: Қазақ тiлi, автор: arystan26
Предмет: Математика, автор: ulanahajbullina089