получить все комбинации по парам x y, чтобы получились следующие массивы

@CRIDEL · Регистрация: 03.05.2013

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

Столкнулся с алгоритмической задачей, с первого взгляда казалось простой, но никак не могу решить как закодить. Есть массив значений:
1)Dx
2)Dy
3)Fx
4)Fy
5)Nx
6)Ny

Исходя из него нужно получить все комбинации по парам x y, чтобы получились следующие массивы:
1 - 1)Dx, 2)Fx, 3)Nx
2 - 1)Dx, 2)Fx, 3)Ny
3 - 1)Dx, 2)Fy, 3)Nx
4 - 1)Dx, 2)Fy, 3)Ny
5 - 1)Dy, 2)Fx, 3)Nx
6 - 1)Dy, 2)Fx, 3)Ny
7 - 1)Dy, 2)Fy, 3)Nx
8 - 1)Dy, 2)Fy, 3)Ny

Гуру выручайте, а то уже мозг из ушей течет

Добавлено через 2 минуты
Еще количество заглавных(D,F,N) и строчных(x,y) не фиксировано.

Добавлено через 5 минут
, то есть здесь описан частный случай, может быть например D,F,N,J и x,y,g или любая другая комбинация.

SoftIce · 25.11.2016, 20:25

Было уже что-то подобное несколько раз, поищите по разделу

@CRIDEL · 25.11.2016, 22:36 **[ТС]**

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

Было уже что-то подобное несколько раз, поищите по разделу

Если бы было, я не создал бы новую тему.

@gaw · 25.11.2016, 23:56

на разборку

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Dim n%
Dim a()
 
Private Sub Command1_Click()
 
a = Array("", "F", "D", "N", "x", "y")
n = UBound(a)
List1.Clear
per (0)
 
End Sub
Sub per(t)
If t = n Then
 k = k + 1
    f = True
    For i = 1 To 2 * (n \ 2) Step 2
       If a(i) Like "[a-z]" Or a(i + 1) Like "[A-Z]" Then
          f = False: Exit For
       End If
    Next i
 
If f = True Then
st = ""
    For i = 1 To n
        st = st + a(i)
    Next i
     List1.AddItem st
 End If
Else
    For i = t + 1 To n
      tm = a(t + 1): a(t + 1) = a(i): a(i) = tm
         Call per(t + 1)
      tm = a(t + 1): a(t + 1) = a(i): a(i) = tm
    Next i
End If
End Sub

@m-ch · 26.11.2016, 10:40

Алгоритм генерации массива

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub www()
    Dim i As Long, j As Long, k As Long, arr1, arr2, n As Long, m As Long
    arr1 = Array("D", "N", "F", "J")
    arr2 = Array("x", "y", "g")
    n = UBound(arr1) + 1
    m = UBound(arr2) + 1
    For i = 0 To m ^ n - 1
        Debug.Print i + 1,
        k = i
        For j = 0 To n - 1
            Debug.Print arr1(j) & arr2(k Mod m),
            k = k \ m
        Next j
        Debug.Print
    Next i
End Sub

@CRIDEL · 26.11.2016, 15:03 **[ТС]**

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

на разборку

Dx,Dy ... - нераздельны, считайте их string.

@gaw · 26.11.2016, 15:11

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Dim n%
Dim a()
 
Private Sub Command1_Click()
 
a = Array("", "Fx", "Dy", "Nz", "Gj")
n = UBound(a)
List1.Clear
per 0, 0
 
End Sub
Sub per(t, k)
If t = n Then
st = "": k = k + 1
    For i = 1 To n
        st = st + a(i) & vbTab
    Next i
    
     List1.AddItem k & vbTab & st
 End If
 
   For i = t + 1 To n
      tm = a(t + 1): a(t + 1) = a(i): a(i) = tm
         Call per(t + 1, k)
      tm = a(t + 1): a(t + 1) = a(i): a(i) = tm
    Next i
 
End Sub

@CRIDEL · 26.11.2016, 15:20 **[ТС]**

gaw, это перебор всего со всем, посмотрите внимательнее в задачу, Dy и Dx не могут быть в одном массиве, как и Fx и Fy и т. п. поэтому у меня и получается 8 результатов, а не 24 как у вас.

@gaw · 26.11.2016, 15:23

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

Есть массив значений:
1)Dx
2)Dy
3)Fx
4)Fy
5)Nx
6)Ny

и теперь

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

Dy и Dx не могут быть в одном массиве, как и Fx и Fy

@CRIDEL · 26.11.2016, 15:26 **[ТС]**

Мозг легко решает эту задачу, а как заставить копьютер

Добавлено через 39 секунд
gaw,

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

Исходя из него нужно получить все комбинации по парам x y, чтобы получились следующие массивы:
1 - 1)Dx, 2)Fx, 3)Nx
2 - 1)Dx, 2)Fx, 3)Ny
3 - 1)Dx, 2)Fy, 3)Nx
4 - 1)Dx, 2)Fy, 3)Ny
5 - 1)Dy, 2)Fx, 3)Nx
6 - 1)Dy, 2)Fx, 3)Ny
7 - 1)Dy, 2)Fy, 3)Nx
8 - 1)Dy, 2)Fy, 3)Ny

@m-ch · 26.11.2016, 16:37

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

Мозг легко решает эту задачу, а как заставить копьютер

код из 5го сообщения не подходит?

@CRIDEL · 26.11.2016, 17:45 **[ТС]**

Сообщение от m-ch

код из 5го сообщения не подходит?

нет, даже близко не то, gaw, понял идею, тут нужна какого-то рода рекурсия рекурсии, но не дается что-то никак

@m-ch · 26.11.2016, 17:50

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

может быть например D,F,N,J и x,y,g

Сколько должно быть вариантов для указанных исходных данных?
У меня получилось - 81 вариант:

Кликните здесь для просмотра всего текста

1 Dx Nx Fx Jx
2 Dy Nx Fx Jx
3 Dg Nx Fx Jx
4 Dx Ny Fx Jx
5 Dy Ny Fx Jx
6 Dg Ny Fx Jx
7 Dx Ng Fx Jx
8 Dy Ng Fx Jx
9 Dg Ng Fx Jx
10 Dx Nx Fy Jx
11 Dy Nx Fy Jx
12 Dg Nx Fy Jx
13 Dx Ny Fy Jx
14 Dy Ny Fy Jx
15 Dg Ny Fy Jx
16 Dx Ng Fy Jx
17 Dy Ng Fy Jx
18 Dg Ng Fy Jx
19 Dx Nx Fg Jx
20 Dy Nx Fg Jx
21 Dg Nx Fg Jx
22 Dx Ny Fg Jx
23 Dy Ny Fg Jx
24 Dg Ny Fg Jx
25 Dx Ng Fg Jx
26 Dy Ng Fg Jx
27 Dg Ng Fg Jx
28 Dx Nx Fx Jy
29 Dy Nx Fx Jy
30 Dg Nx Fx Jy
31 Dx Ny Fx Jy
32 Dy Ny Fx Jy
33 Dg Ny Fx Jy
34 Dx Ng Fx Jy
35 Dy Ng Fx Jy
36 Dg Ng Fx Jy
37 Dx Nx Fy Jy
38 Dy Nx Fy Jy
39 Dg Nx Fy Jy
40 Dx Ny Fy Jy
41 Dy Ny Fy Jy
42 Dg Ny Fy Jy
43 Dx Ng Fy Jy
44 Dy Ng Fy Jy
45 Dg Ng Fy Jy
46 Dx Nx Fg Jy
47 Dy Nx Fg Jy
48 Dg Nx Fg Jy
49 Dx Ny Fg Jy
50 Dy Ny Fg Jy
51 Dg Ny Fg Jy
52 Dx Ng Fg Jy
53 Dy Ng Fg Jy
54 Dg Ng Fg Jy
55 Dx Nx Fx Jg
56 Dy Nx Fx Jg
57 Dg Nx Fx Jg
58 Dx Ny Fx Jg
59 Dy Ny Fx Jg
60 Dg Ny Fx Jg
61 Dx Ng Fx Jg
62 Dy Ng Fx Jg
63 Dg Ng Fx Jg
64 Dx Nx Fy Jg
65 Dy Nx Fy Jg
66 Dg Nx Fy Jg
67 Dx Ny Fy Jg
68 Dy Ny Fy Jg
69 Dg Ny Fy Jg
70 Dx Ng Fy Jg
71 Dy Ng Fy Jg
72 Dg Ng Fy Jg
73 Dx Nx Fg Jg
74 Dy Nx Fg Jg
75 Dg Nx Fg Jg
76 Dx Ny Fg Jg
77 Dy Ny Fg Jg
78 Dg Ny Fg Jg
79 Dx Ng Fg Jg
80 Dy Ng Fg Jg
81 Dg Ng Fg Jg

Если не правильно, то объясните задачу.

@CRIDEL · 26.11.2016, 18:06 **[ТС]**

Сообщение от m-ch

Если не правильно, то объясните задачу.

должно получиться восемь массивов по три элемента(по числу пар x,y) как в заглавии:

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

1 - 1)Dx, 2)Fx, 3)Nx
2 - 1)Dx, 2)Fx, 3)Ny
3 - 1)Dx, 2)Fy, 3)Nx
4 - 1)Dx, 2)Fy, 3)Ny
5 - 1)Dy, 2)Fx, 3)Nx
6 - 1)Dy, 2)Fx, 3)Ny
7 - 1)Dy, 2)Fy, 3)Nx
8 - 1)Dy, 2)Fy, 3)Ny

то есть на каждый D приходится два F и два N, но может приходится больше если будет, например Nx Ny Nz
тогда получится 12 массивов
1 - 1)Dx, 2)Fx, 3)Nx
2 - 1)Dx, 2)Fx, 3)Ny
3 - 1)Dx, 2)Fx, 3)Nz
4 - 1)Dx, 2)Fy, 3)Nx
5 - 1)Dx, 2)Fy, 3)Ny
6 - 1)Dx, 2)Fy, 3)Nz
7 - 1)Dy, 2)Fx, 3)Nx
8 - 1)Dy, 2)Fx, 3)Ny
9 - 1)Dy, 2)Fx, 3)Nz
10- 1)Dy, 2)Fy, 3)Nx
11- 1)Dy, 2)Fy, 3)Ny
12- 1)Dy, 2)Fy, 3)Nz

@m-ch · 26.11.2016, 18:31

Я просил привести пример для вашего варианта:

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

может быть например D,F,N,J и x,y,g

Произвел генерацию всех сочетаний:
Dx, Dy, Dg
Fx, Fy, Fg
Nx, Ny, Ng
Jx, Jy, Jg

Добавлено через 1 минуту
Возможно Вам нужно что то подобное: Генерация всех возможных словосочетаний из столбцов

@m-ch · 26.11.2016, 18:41

Применительно для Ваших данных решение в Excel на VBA (ничего в коде не менял, только вставил данные)

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

@CRIDEL 70 / 62 / 19 Регистрация: 03.05.2013 Сообщений: 397

	получить все комбинации по парам x y, чтобы получились следующие массивы 25.11.2016, 20:05. Показов 1152. Ответов 15 Метки нет (Все метки) Столкнулся с алгоритмической задачей, с первого взгляда казалось простой, но никак не могу решить как закодить. Есть массив значений: 1)Dx 2)Dy 3)Fx 4)Fy 5)Nx 6)Ny Исходя из него нужно получить все комбинации по парам x y, чтобы получились следующие массивы: 1 - 1)Dx, 2)Fx, 3)Nx 2 - 1)Dx, 2)Fx, 3)Ny 3 - 1)Dx, 2)Fy, 3)Nx 4 - 1)Dx, 2)Fy, 3)Ny 5 - 1)Dy, 2)Fx, 3)Nx 6 - 1)Dy, 2)Fx, 3)Ny 7 - 1)Dy, 2)Fy, 3)Nx 8 - 1)Dy, 2)Fy, 3)Ny Гуру выручайте, а то уже мозг из ушей течет Добавлено через 2 минуты Еще количество заглавных(D,F,N) и строчных(x,y) не фиксировано. Добавлено через 5 минут , то есть здесь описан частный случай, может быть например D,F,N,J и x,y,g или любая другая комбинация. 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	25.11.2016, 20:25
	Было уже что-то подобное несколько раз, поищите по разделу 0

@CRIDEL 70 / 62 / 19 Регистрация: 03.05.2013 Сообщений: 397
	26.11.2016, 15:20 [ТС]
	gaw, это перебор всего со всем, посмотрите внимательнее в задачу, Dy и Dx не могут быть в одном массиве, как и Fx и Fy и т. п. поэтому у меня и получается 8 результатов, а не 24 как у вас. 0