Комбинаторика

[Васильева Зинаида]

Здравствуйте мне необходима ваша помощь, мне нужно разработать приложение на С++ BUILDER , в котором: необходимо сгенерировать все перестановки для заданного значения n в лексикографическом порядке.
Заранее очень Вам благодарна.

[doober]

    Dim N As Integer
    Dim X() As Integer
    Dim rez As String

  
  Sub PERESTANOVKA()
   Dim i As Long
    Dim j As Long
    N = CInt(InputBox("введите  N"))
    ReDim X(N)
     
   rez = ""
     
    For i = 1 To N
        X(i) = 1
    Next

    For i = 1 To N ^ N
             For j = 1 To N
   rez = rez & CStr(X(j))
             Next
         
          rez = rez & vbCrLf
            Next_Step
    Next
     MsgBox rez
    f = Split(rez, vbCrLf, -1)
    End Sub

  Sub Next_Step()

    Dim i As Long
     
    i = N
    Do While (i > 0) And (X(i) = N)
    X(i) = 1
    i = i - 1
    Loop
    If i > 0 Then X(i) = X(i) + 1

  End Sub