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

Узнай цену своей работы

Формулировка задачи:

Столкнулся с алгоритмической задачей, с первого взгляда казалось простой, но никак не могу решить как закодить. Есть массив значений: 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 Гуру выручайте, а то уже мозг из ушей течет
Еще количество заглавных(D,F,N) и строчных(x,y) не фиксировано.
, то есть здесь описан частный случай, может быть например D,F,N,J и x,y,g или любая другая комбинация.

Решение задачи: «Получить все комбинации по парам x y, чтобы получились следующие массивы»

textual
Листинг программы
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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 3.286 из 5
Похожие ответы