Принадлежность точки с координатами (х, у) заштрихованной области

25.04.2012, 21:37. **Показов** 1629. **Ответов** 2

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

Помогите пожалуйста, составить программу, которая выводит соответствующее сообщение о принадлежности точки с координатами (х, у) заштрихованной области.

Название: grafik.jpg
Просмотров: 146

Размер: 33.2 Кб

Название: grafik.jpg
Просмотров: 146

Размер: 33.2 Кб

@Апострофф · 25.04.2012, 22:19

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub main()
Dim ax#, ay#, bx#, by#, cx#, cy# 'координаты вершин треугольника
Dim px#, py# 'координаты исследуемой точки
Dim f1#, f2#, f3# 'площади
ax = 2
ay = -4
bx = 5
by = 1
cx = 2
cy = 5
px = InputBox("x=")
py = InputBox("y=")
f1 = S2(px, py, ax, ay, bx, by)
f2 = S2(px, py, bx, by, cx, cy)
f3 = S2(px, py, cx, cy, ax, ay)
If ((f1 * f2) >= 0) And ((f2 * f3) >= 0) Then MsgBox "Yes" Else MsgBox "No"
End Sub
 
Function S2(ax#, ay#, bx#, by#, cx#, cy#) As Double '{удвоенная площадь треугольника со знаком}
  S2 = ax * (by - cy) + bx * (cy - ay) + cx * (ay - by)
End Function

RipWay, удиви преподов

25.04.2012, 22:37

Сообщение от Апострофф

....
RipWay, удиви преподов

Премного благодарен, о великий!

Новые блоги и статьи Все статьи Все блоги /
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .

RipWay

	Принадлежность точки с координатами (х, у) заштрихованной области 25.04.2012, 21:37. Показов 1629. Ответов 2 Метки нет (Все метки) Помогите пожалуйста, составить программу, которая выводит соответствующее сообщение о принадлежности точки с координатами (х, у) заштрихованной области.