HRyk
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Dim X () As Integer
Dim Counter () As Integer
Dim K As Integer
Dim N As Integer
Public Sub Soch()
Dim i As Integer
N = CInt(InputBox("Введите N"))
K = CInt(InputBox("Введите K"))
K = K + 1
ReDim X(N)
For i = 1 To N
X(i) = i
Next
txtOut.Text = ""
ReDim Counter(K)
Counter(0) = 1
SochGenerate 1
End Sub
Private Sub SochGenerate(ByVal c As Integer)
Dim i As Integer
Dim j As Integer
Dim n1 As Integer
Dim Out() As Integer
Dim X1() As Integer
If c = K Then
ReDim Out(K)
X1 = X
For i = 1 To K - 1
n1 = 0
For j = 1 To N
If X1(j) <> 0 Then n1 = n1 + 1
If n1 = Counter(i) Then
Out(i) = X1(j)
X1(j) = 0
Exit For
End If
Next
txtOut.Text = txtOut.Text & CStr(Out(i))
Next
txtOut.Text = txtOut.Text & vbCrLf
Else
For Counter© = Counter(c - 1) To N - c + 1
SochGenerate c + 1
Next
End If
End Sub |
Всего записей: 162 | Зарегистр. 04-11-2006 | Отправлено: 18:40 02-03-2007 | Исправлено: HRyk, 18:41 02-03-2007 |
|
