Принадлежит ли точка закрашенной области

@Dartec · Регистрация: 21.01.2019

Студворк — интернет-сервис помощи студентам

Для заданной области составить такую программу,которая печатает true,если точка с координатами (x,y) принадлежит закрашенной области,и false в противном.

@Puporev · 22.01.2019, 11:35

И где эта область?

@Dartec · 24.01.2019, 09:55 **[ТС]**

Вот она

@JuriiMW · 24.01.2019, 10:21

Pascal
1
2
3
4
5
6
7
8
var x,y:Real;
begin
  Read(x,y);
  if (y<=7) and (y>=1) and (abs(x)*2+y<=15) then
    WriteLn( sqr(x+5)+sqr(y-2)>=9 )
  else
    WriteLn( sqr(x+5)+sqr(y-2)<=9 );
end.

@Puporev · 24.01.2019, 10:31

Вот мне интересно точка [-7;1] принадлежит ли нет? На вид принадлежит, программа говорит нет. У меня по другому, хуже, но тоже такая же штука.

@JuriiMW · 24.01.2019, 10:43

Да. Я сначала хотел делать оба условия в одном операторе…
Но огород сильно большой получался ;–)

@Puporev · 24.01.2019, 10:46

Может сделать 3 области, 2 с границами(трапеция и круг) и 1 без границ(пересечение), а потом написать
if ob1 and ob2 and not ob3

@JuriiMW · 24.01.2019, 10:49

Для ТС, оказывается, уже давали подобный ответ: Принадлежит ли точка закрашенной области
Он промолчал…

@кот Бегемот · 24.01.2019, 10:56

А так не проще?

Pascal
1
2
3
readln(x,y);
writeln(((y<=7)and(y>=1)and(abs(x)*2+y<=15))xor(sqr(x+5)+sqr(y-2)<=9));
end.

Пишу с мобильника, возможны ошибки в скобках

@JuriiMW · 24.01.2019, 11:00

А так случай https://www.cyberforum.ru/post13267806.html всё равно false…

@Puporev · 24.01.2019, 11:00

Я проверил на 1 точке [-7,1], пишет false, а как мне кажется должно быть true.
У тебя работает как у JuriiMW.
Код написан без ошибок.

@кот Бегемот · 24.01.2019, 11:57

Сообщение от Puporev

Я проверил на 1 точке [-7,1], пишет false, а как мне кажется должно быть true.

А виноват JuriiMW, он неверно написал уравнение прямой, а я сдуру содрал у него.
Должно быть не 15, а 14

Pascal
1
2
3
4
5
6
var
x,y:real;
begin
readln(x,y);
writeln(((y<=7)and(y>=1)and(abs(x)*2+y<=14))xor(sqr(x+5)+sqr(y-2)<=9));
end.

@JuriiMW · 24.01.2019, 12:07

Сообщение от кот Бегемот

А виноват JuriiMW

Ой ли?

abs(x)*2+y<=14

т.е. уравнение правой наклонной прямой по вашему y=14-2x
или

y(7)=0
y(6)=2
y(5)=4

Ага!

@кот Бегемот · 24.01.2019, 12:09

Pascal
1
2
3
4
5
6
7
var
x,y:real;
begin
readln(x,y);
writeln(((y<=7)and(y>=1)and(x*2+y<=14)and(-x*2+y<=14))xor(sqr(x+5)+sqr(y-1)<=9));
end.
end.

Добавлено через 1 минуту

Сообщение от JuriiMW

Ага!

А что не так-то?
У Вас ещё и окружность с неверным центром

@Puporev · 24.01.2019, 12:25

Уравнение прямой y=-2x+15
Уравнение окружности (x+5)²+(y-2)²=9

@JuriiMW · 24.01.2019, 12:27

Сообщение от кот Бегемот

А что не так-то?

Это у вас ось абсцисс почему то на клетку вверх убежала!

@кот Бегемот · 24.01.2019, 12:28

Sorry, я сослепу не увидел ось х. Она ниже, чем казалось. Всё остаётся как было:

Pascal
1
2
3
4
5
6
var
x,y:real;
begin
readln(x,y);
writeln(((y<=7)and(y>=1)and(abs(x)*2+y<=14))xor(sqr(x+5)+sqr(y-2)<=9));
end.

Что касается точки -7,1 то она действительно false, поскольку принадлежит трапеции, точнее, той её части, которая находится в светлой области.

@Puporev · 24.01.2019, 14:49

А я заболтался и скинул свой код в тему по ссылке.
https://www.cyberforum.ru/post13267893.html

Pascal
1
2
3
4
5
6
7
8
9
var x,y:real;
    o1,o2,o3:boolean;
begin
  Readln(x,y);
  o1:=(y<=7) and (y>=1) and (abs(x)*2+y<=15);
  o2:=sqr(x+5)+sqr(y-2)<=9;
  o3:=(sqr(x+5)+sqr(y-2)<9)and(y>1)and(y<2*x+15);
  write(o1 and o2 and not o3)
end.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .

@Dartec 0 / 0 / 0 Регистрация: 21.01.2019 Сообщений: 10

	Принадлежит ли точка закрашенной области 22.01.2019, 11:33. Показов 3823. Ответов 17 Метки нет (Все метки) Для заданной области составить такую программу,которая печатает true,если точка с координатами (x,y) принадлежит закрашенной области,и false в противном. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	22.01.2019, 11:35
	И где эта область? 0

@Dartec 0 / 0 / 0 Регистрация: 21.01.2019 Сообщений: 10
	24.01.2019, 09:55 [ТС]
	Вот она Миниатюры 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	24.01.2019, 10:31
	Вот мне интересно точка [-7;1] принадлежит ли нет? На вид принадлежит, программа говорит нет. У меня по другому, хуже, но тоже такая же штука. 0

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,060
	24.01.2019, 10:43
	Да. Я сначала хотел делать оба условия в одном операторе… Но огород сильно большой получался ;–) 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	24.01.2019, 10:46
	Может сделать 3 области, 2 с границами(трапеция и круг) и 1 без границ(пересечение), а потом написать if ob1 and ob2 and not ob3 0

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,060
	24.01.2019, 10:49
	Для ТС, оказывается, уже давали подобный ответ: Принадлежит ли точка закрашенной области Он промолчал… 0

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,060
	24.01.2019, 11:00
	А так случай https://www.cyberforum.ru/post13267806.html всё равно false… 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	24.01.2019, 12:25
	Уравнение прямой y=-2x+15 Уравнение окружности (x+5)²+(y-2)²=9 0

Принадлежит ли точка закрашенной области

Решение