Найти всевозможные группы по 3, 4 точки, лежащие на одной прямой

@Ксандра · Регистрация: 20.05.2009

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

Здравствуйте!!! Помогите, пожалуйста, решить задачку на VBA.
На плоскости заданы своими целочисленными координатами n точек. Найти всевозможные группы по 3, 4, … точки, лежащие на одной прямой.

@Toxa33rus · 20.05.2009, 21:31

Берете 2 точки и проверете из оставшихся какая лежит с ними на 1 прямой.
Если найти надо группы не по 3 и 4 а "до упора", то надо рекурсивную функцию сделать которой передается массив из точек лежащих на 1 прямой (как факт) и координаты тестовой точки. После прохода всех точек Функция вызывает сама себя и в качестве параметра получает уже увеличенный на 1 точку массив. И так до тех пор пока на каком-то шаге не получится 0 групп.

Вот так можно проверять лежат ли 3 точки на 1 прямой:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Function on_1_line(X1, Y1, X2, Y2, Xtest, Ytest) As Boolean
'проверяет лежал ли 3 точки на 1 прямой
'X1, Y1, X2, Y2 - две точки образующие прямую
'Xtest, Ytest - координаты контрольной точки
 
on_1_line = False
 
'y=A*X + B
If Y2 - Y1 = 0 Then
  A = "infinite" 'прямая параллельна ОУ
  B = X1 'в этом случае ур-нение: x=B
Else
  A = (Y2 - Y1) / (X2 - X1)
  B = Y1 - X1 * A
End If
 
If A = "infinite" Then
  If B = Xtest Then on_1_line = True
Else
  If Ytest = A * Xtest + B Then on_1_line = True
End If
End Function

@Ксандра · 20.05.2009, 23:57 **[ТС]**

Спасибо, спасибо, спасибо!!!

Большущее - пребольшущее Вам СПАСИБО!!!!!

@Toxa33rus · 21.05.2009, 17:23

Чему Вы так радуетесь?

Я написал алгоритм который только определяет лежат ли 3 точки на 1 прямой или нет, но Вам-то надо решить задачу чуть посложнее.

@Ксандра · 21.05.2009, 18:08 **[ТС]**

ну, ясное дело - здесь надо еще подумать...Вы мне помогли, а дальше я сама буду пытаться

Спасибо, что не оставили мою задачку без внимания

Новые блоги и статьи Все статьи Все блоги /
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .

@Ксандра 0 / 0 / 0 Регистрация: 20.05.2009 Сообщений: 3

	Найти всевозможные группы по 3, 4 точки, лежащие на одной прямой 20.05.2009, 16:25. Показов 2047. Ответов 4 Метки нет (Все метки) Здравствуйте!!! Помогите, пожалуйста, решить задачку на VBA. На плоскости заданы своими целочисленными координатами n точек. Найти всевозможные группы по 3, 4, … точки, лежащие на одной прямой. 0

@Ксандра 0 / 0 / 0 Регистрация: 20.05.2009 Сообщений: 3
	20.05.2009, 23:57 [ТС]
	Спасибо, спасибо, спасибо!!! Большущее - пребольшущее Вам СПАСИБО!!!!! 0

@Toxa33rus 3924 / 925 / 125 Регистрация: 16.04.2009 Сообщений: 1,975
	21.05.2009, 17:23
	Чему Вы так радуетесь? Я написал алгоритм который только определяет лежат ли 3 точки на 1 прямой или нет, но Вам-то надо решить задачу чуть посложнее. 0

@Ксандра 0 / 0 / 0 Регистрация: 20.05.2009 Сообщений: 3
	21.05.2009, 18:08 [ТС]
	ну, ясное дело - здесь надо еще подумать...Вы мне помогли, а дальше я сама буду пытаться Спасибо, что не оставили мою задачку без внимания 0

Найти всевозможные группы по 3, 4 точки, лежащие на одной прямой

Решение