Определить, принадлежит ли точка закрашенной области.

@DmitriyDonskoy · Регистрация: 09.05.2019

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

23. Задана точка на плоскости с координатами Х и У. Определить принадлежит ли точка закрашенной области. (нужно решить через площадь и полупериметр)

@BaLord · 15.05.2019, 15:17

Там вообще скорее всего ромб делится на 2 треугольника, это будет первое условие задачи что взять полромба.
Потом считаешь попадает в 1 или 2-й треугольник. Все. Я закончил.

Добавлено через 6 минут
https://ru.wikibooks.org/wiki/... 0%BA%D1%83

Что дает вики. А кто там написал в пункте 4, не уверен что вообще правильно считает.

@Puporev · 15.05.2019, 15:36

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

А кто там написал в пункте 4,

Я писал.

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

не уверен что вообще правильно считает.

Так проверь, и не мели языком.

@BaLord · 15.05.2019, 16:11

Спорить не хочу, но это квадрат, а не ромб для него работает, если не лень будет сегодня с ромбами поиграюсь и точно тебе скажу работает, твоя фишка или нет. Но мне очень навевает что нет! Но для квадрата проходит.

@Puporev · 15.05.2019, 16:34

Пусть a-половина горизонтальной диагонали, b-половина вертикальной диагонали
x0,y0-координаты центра ромба

Pascal
1
if abs(x-x0)/a+abs(y-y0)/b<=1 then

@DmitriyDonskoy · 20.05.2019, 20:06 **[ТС]**

Вроде как написал, но некоторые точки, например, х=1 у=1 показывает, что принадлежит треугольнику, помогите понять в чем ошибка.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
procedure TForm1.Button1Click(Sender: TObject);
var x,y:integer;
a,a11,a12,a13,a21,a22,a23,S,S1,S2,p1,p2,d:real;
begin
x:=StrToInt(Edit1.Text);
y:=StrToInt(Edit2.Text);
a:=sqrt(sqr(4-1)+sqr(1-4));
S:=a*a;
a11:=sqrt(sqr(x-4)+sqr(y-7));
a12:=sqrt(sqr(x-7)+sqr(y-4));
a13:=sqrt(sqr(x-4)+sqr(y-1));
p1:=(a11+a12+a13)/2;
S1:=sqrt(abs((p1*(p1-a11)*(p1-a12)*(p1-a13))));
a21:=sqrt(sqr(x-4)+sqr(y-7));
a22:=sqrt(sqr(x-1)+sqr(y-4));
a23:=sqrt(sqr(x-4)+sqr(y-1));
p2:=(a21+a22+a23)/2;
S2:=sqrt(abs((p2*(p2-a21)*(p2-a22)*(p2-a23))));
d:=S-S1-S2;
if  (d>=0) then
ShowMessage ('Точка принадлежит плоскости')
else ShowMessage ('Точка не принадлежит плоскости');
end;
end.

@BaLord · 20.05.2019, 23:13

Зачем так тебе один человек описал условие в одну строчку и я с треугольниками описал, какие квадратные корни и квадраты. Это слишком долго компьютер обрабатывает.

@Matan! · 21.05.2019, 08:57

Не по теме:

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

Это слишком долго компьютер обрабатывает.

и моргнуть не успеете, как компутер свою работу сделает

Добавлено через 6 минут
А по-хорошему...
DmitriyDonskoy, во-первых, уберите этот Real. В новых версиях он не поддерживается, а альтернатив ему предостаточно - Single, Double, Extended.
Во-вторых, кто Вас учил координаты вбивать намертво в код? А если преподаватель попросит рассчитать для другого ромба, что Вы ответите ему? "Ой, щаз перепишу код и перекомпилирую?"
В-третьих, поставьте точку останова на строку с d и посмотрите наводкой курсора чему равны все площади (можете также наводкой глянуть на значения остальных переменных).

@BaLord · 21.05.2019, 11:41

http://cpp.mazurok.com/tag/%D0... %B1%D1%83/

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@DmitriyDonskoy 0 / 0 / 0 Регистрация: 09.05.2019 Сообщений: 5

	Delphi 6-7 Определить, принадлежит ли точка закрашенной области. 09.05.2019, 15:46. Показов 3517. Ответов 27 Метки нет (Все метки) 23. Задана точка на плоскости с координатами Х и У. Определить принадлежит ли точка закрашенной области. (нужно решить через площадь и полупериметр) Миниатюры 0

@BaLord 2 / 2 / 0 Регистрация: 15.05.2019 Сообщений: 26
	15.05.2019, 15:17
	Там вообще скорее всего ромб делится на 2 треугольника, это будет первое условие задачи что взять полромба. Потом считаешь попадает в 1 или 2-й треугольник. Все. Я закончил. Добавлено через 6 минут https://ru.wikibooks.org/wiki/... 0%BA%D1%83 Что дает вики. А кто там написал в пункте 4, не уверен что вообще правильно считает. 0

@BaLord 2 / 2 / 0 Регистрация: 15.05.2019 Сообщений: 26
	15.05.2019, 16:11
	Спорить не хочу, но это квадрат, а не ромб для него работает, если не лень будет сегодня с ромбами поиграюсь и точно тебе скажу работает, твоя фишка или нет. Но мне очень навевает что нет! Но для квадрата проходит. 0

@BaLord 2 / 2 / 0 Регистрация: 15.05.2019 Сообщений: 26
	20.05.2019, 23:13
	Зачем так тебе один человек описал условие в одну строчку и я с треугольниками описал, какие квадратные корни и квадраты. Это слишком долго компьютер обрабатывает. 0

@BaLord 2 / 2 / 0 Регистрация: 15.05.2019 Сообщений: 26
	21.05.2019, 11:41
	http://cpp.mazurok.com/tag/%D0... %B1%D1%83/ 0