ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
55 сообщений из 55, показаны все 3 страниц
  все  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35241643
Дмитрий1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий1979
Гость
Господа программеры!
Помогите пожста с решением проблемы (для меня-глобальной)

Есть 10 -ти значное число, состоящее только из цифр от 1 до 5.

Вопрос: каким образом определить кол-во и вывести на экран (желательно сохранить в текстовом файле) все возможные варианты 10-ти значных чисел из данного набора цифр??????
Ну, например:
1111111111
2111111111
3111111111
4111111111
5111111111
1211111111
1311111111
1411111111
1511111111

и т.д.

Буду очень вам благодарен.
...
Рейтинг: 0 / 0
08.04.2008, 10:18
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35241665
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Дмитрий1979

Вопрос: каким образом определить кол-во и вывести на экран
Это два вопроса.
Количество - это из комбинаторики. 5^10 =9765625 .
Вы уверены ,что хотите вывести на экран 9765625 строк ?
...
Рейтинг: 0 / 0
08.04.2008, 10:24
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35241786
Дмитрий1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий1979
Гость
Уверен, а я думал что комбинаций больше: 5555555555-1111111111=4444444444 - или это не верно? И как эти варианты можно сохранить в текстовом файле?
...
Рейтинг: 0 / 0
08.04.2008, 10:59
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35241824
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Есть такая наука — комбинаторика.
Есть такое понятие — «размещения с повторениями».
Есть такая формула —
.
...
Рейтинг: 0 / 0
08.04.2008, 11:08
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35241855
Дмитрий1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий1979
Гость
я профан в этих вопросах, поэтому к вам и обратился :-)
...
Рейтинг: 0 / 0
08.04.2008, 11:16
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35241868
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Дмитрий1979как эти варианты можно сохранить в текстовом файле?
Как как. Через гугль по запросу «Переборные алгоритмы».
...
Рейтинг: 0 / 0
08.04.2008, 11:19
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35241918
Дмитрий1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий1979
Гость
Я извиняюсь за свой тупизм, можно "на пальцах" объяснить?
...
Рейтинг: 0 / 0
08.04.2008, 11:31
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35241951
Дмитрий1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий1979
Гость
Я так понял мне нужно вот это?

Последовательности
Предположим, нам нужно вывести в Textbox все последовательности длины N из чисел 1, 2, 3, ..., M. Первая последовательность будет иметь следующий вид:

1, 1, 1, ..., 1

, а последняя:

M, M, M, ..., M.

Всего таких последовательностей будет M ^ N.

Пусть последовательность находится в одномерном массиве X. Создадим процедуру NextS, которая будет генерировать последовательность. Её нужно будет вызвать M ^ N раз. В процедуре NextS нужно перебрать все N знаков последовательности, начиная с последнего. Если знак равен M, то присваиваем ему значение 1, в ином случае увеличиваем его на единицу и выходим из цикла.
Код: plaintext
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.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
Dim M As Integer
Dim N As Integer
Dim X() As Integer

Private Sub Sequences()
Dim i As Integer
Dim j As Integer

M = CInt (InputBox ("Введите M"))
N = CInt (InputBox ("Введите N"))
ReDim X(N)

txtOut.Text = ""

For i =  1  To N
       X(i) =  1 
Next
Yes = False
For i =  1  To M ^ N
       For j =  1  To N
txtOut.Text = txtOut.Text & CStr(X(j))
       Next
       txtOut.Text = txtOut.Text & vbCrLf
       NextS
Next
End Sub

Private Sub NextS()
Dim i As Integer

i = N
Do While (i >  0 ) And (X(i) = M)
X(i) =  1 
i = i -  1 
Loop
If i >  0  Then (i) = X(i) +  1 
End Sub

Все последовательности можно найти также и рекурсивным алгоритмом:

Dim M As Integer
Dim N As Integer
Dim X() As Integer

Private Sub SequencesRecursion()
M =  5 
N =  5 
ReDim X(N)

txtOut.Text = ""

SRGenerate  0 
End Sub

Private Sub SRGenerate (ByVal K As Integer)
Dim i As Integer
Dim j As Integer

If K = N Then
For i =  1  To N
txtOut.Text = txtOut.Text & CStr(X(i))
Next
txtOut.Text = txtOut.Text & vbCrLf
Else
For j =  1  To M
X(K +  1 ) = j
SRGenerate (K +  1 )
Next
End If
End Sub
...
Рейтинг: 0 / 0
08.04.2008, 11:39
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35241998
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Во-первых, есть тег SRC VBA. А во-вторых времени на «пальцы» нет. В гугле достаточно полезной информации.
...
Рейтинг: 0 / 0
08.04.2008, 11:49
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35242247
ЯпСтам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ЯпСтам
Гость
Дмитрий1979Я так понял мне нужно вот это?
Навряд ли, т.к. вот это: Дмитрий1979Всего таких последовательностей будет M ^ N. неверно, учитывая условия задачи (5х10=50 чёта маловато будет .
Вот накидал на коленке PHP-код:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
for ($i= 1111111111 ; $i<= 5555555555 ; $i++){
	$temp=strval($i); // преобразуем число в строку
	$flag= 1 ;
	for ($j= 0 ; $j<strlen($temp); $j++)
		if ($temp[$j]== 0  || $temp[$j]> 5 ) $flag= 0 ; // если в строке нет цифр  0 , 6 , 7 , 8 , 9 
	if ($flag== 1 ) print $i."<br>"; // ..то выводим на печать
}
Идея понятна? С VB не дружу, перекинь как-нибудь сам
...
Рейтинг: 0 / 0
08.04.2008, 12:59
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35242281
Alexey Syrok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexey Syrok
Участник
ЯпСтамневерно, учитывая условия задачи (5х10=50 чёта маловато будет .
вроде бы 5 в десятой стапени
...
Рейтинг: 0 / 0
08.04.2008, 13:08
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35242297
ЯпСтам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ЯпСтам
Гость
Alexey Syrokвроде бы 5 в десятой стапени
А ну-да, конечно. Я ж говорю, с VB не дружу :))
...
Рейтинг: 0 / 0
08.04.2008, 13:12
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35242349
Дмитрий1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий1979
Гость
Дмитрий1979Я так понял мне нужно вот это?

Последовательности
Предположим, нам нужно вывести в Textbox все последовательности длины N из чисел 1, 2, 3, ..., M. Первая последовательность будет иметь следующий вид:

1, 1, 1, ..., 1

, а последняя:

M, M, M, ..., M.

Всего таких последовательностей будет M ^ N.

Пусть последовательность находится в одномерном массиве X. Создадим процедуру NextS, которая будет генерировать последовательность. Её нужно будет вызвать M ^ N раз. В процедуре NextS нужно перебрать все N знаков последовательности, начиная с последнего. Если знак равен M, то присваиваем ему значение 1, в ином случае увеличиваем его на единицу и выходим из цикла.
Код: plaintext
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.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
Dim M As Integer
Dim N As Integer
Dim X() As Integer

Private Sub Sequences()
Dim i As Integer
Dim j As Integer

M = CInt (InputBox ("Введите M"))
N = CInt (InputBox ("Введите N"))
ReDim X(N)

txtOut.Text = ""

For i =  1  To N
       X(i) =  1 
Next
Yes = False
For i =  1  To M ^ N
       For j =  1  To N
txtOut.Text = txtOut.Text & CStr(X(j))
       Next
       txtOut.Text = txtOut.Text & vbCrLf
       NextS
Next
End Sub

Private Sub NextS()
Dim i As Integer

i = N
Do While (i >  0 ) And (X(i) = M)
X(i) =  1 
i = i -  1 
Loop
If i >  0  Then (i) = X(i) +  1 
End Sub

Все последовательности можно найти также и рекурсивным алгоритмом:

Dim M As Integer
Dim N As Integer
Dim X() As Integer

Private Sub SequencesRecursion()
M =  5 
N =  5 
ReDim X(N)

txtOut.Text = ""

SRGenerate  0 
End Sub

Private Sub SRGenerate (ByVal K As Integer)
Dim i As Integer
Dim j As Integer

If K = N Then
For i =  1  To N
txtOut.Text = txtOut.Text & CStr(X(i))
Next
txtOut.Text = txtOut.Text & vbCrLf
Else
For j =  1  To M
X(K +  1 ) = j
SRGenerate (K +  1 )
Next
End If
End Sub


Что мне теперь с ЭТИМ делать? Как запустить-то? Скачать VB?
...
Рейтинг: 0 / 0
08.04.2008, 13:24
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35242425
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Дмитрий1979
Что мне теперь с ЭТИМ делать? Как запустить-то? Скачать VB?
VB скачать нельзя, его можно купить.
Но указанный вами код можно запустить из VBA.
...
Рейтинг: 0 / 0
08.04.2008, 13:42
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35242469
Дмитрий1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий1979
Гость
А ка это сделать и что такое VBA? Прошу прощения за лоховатость в данном вопросе. Достал наверное уже всех...
...
Рейтинг: 0 / 0
08.04.2008, 13:51
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35242530
FAndrew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FAndrew
Участник
А вы когда задавали вопрос в ветке Visual Basic на чем ожидали получить ответ?
Может быть вы все-таки расскажите про цель? Просто сейчас задача выглядит чисто теоретической.
...
Рейтинг: 0 / 0
08.04.2008, 14:08
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35242638
Дмитрий1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий1979
Гость
Нужно хешировать все комбинации - это второй этап - посложнее наверное будет

Так что такое VBA?
...
Рейтинг: 0 / 0
08.04.2008, 14:41
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35242647
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Visual Basic for Application (Excel, Access, Word)
...
Рейтинг: 0 / 0
08.04.2008, 14:43
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35242665
Дмитрий1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий1979
Гость
Дмитрий1979А ка это сделать и что такое VBA? Прошу прощения за лоховатость в данном вопросе. Достал наверное уже всех...

Так разобрался, что такое - VBA - это Visual Basik for Applications. Уже хорошо. А как дальше быть, как приведенный мною код реализовать в Exele?
...
Рейтинг: 0 / 0
08.04.2008, 14:47
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35242999
Программист 1с
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист 1с
Участник
Количество вариантов = 10 цифр - значит 5 в степени 10 = 9765625 чисел. Размер файла =9,7 мб*10=97 мб
...
Рейтинг: 0 / 0
08.04.2008, 16:01
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35243400
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndrF
Участник
Дмитрий1979А ка это сделать и что такое VBA? Прошу прощения за лоховатость в данном вопросе. Достал наверное уже всех...

А можно еще и из VBS... ;)
...
Рейтинг: 0 / 0
08.04.2008, 17:42
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35246832
Дмитрий1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий1979
Гость
Люди, помогите.
Пробовал запускать приведенный код в VBA - пишет run-time error 424
Что это? Как в конце-то концов мне получить результат??? Очень надо!!!
...
Рейтинг: 0 / 0
09.04.2008, 23:48
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35247038
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Вы приложите книжку с кодом.
...
Рейтинг: 0 / 0
10.04.2008, 09:10
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35247173
Дмитрий1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий1979
Гость
Объясните пож-ста, что за книжка? Я в терминах не очень разбираюсь. Я ведь не программист и практически ничего не понимаю в этом, но вот нужда заставила сквозь программные дебри ползти...

Дмитрий1979
Код: plaintext
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.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
Dim M As Integer
Dim N As Integer
Dim X() As Integer

Private Sub Sequences()
Dim i As Integer
Dim j As Integer

M = CInt (InputBox ("Введите M"))
N = CInt (InputBox ("Введите N"))
ReDim X(N)

txtOut.Text = ""

For i =  1  To N
       X(i) =  1 
Next
Yes = False
For i =  1  To M ^ N
       For j =  1  To N
txtOut.Text = txtOut.Text & CStr(X(j))
       Next
       txtOut.Text = txtOut.Text & vbCrLf
       NextS
Next
End Sub

Private Sub NextS()
Dim i As Integer

i = N
Do While (i >  0 ) And (X(i) = M)
X(i) =  1 
i = i -  1 
Loop
If i >  0  Then (i) = X(i) +  1 
End Sub

Все последовательности можно найти также и рекурсивным алгоритмом:

Dim M As Integer
Dim N As Integer
Dim X() As Integer

Private Sub SequencesRecursion()
M =  5 
N =  5 
ReDim X(N)

txtOut.Text = ""

SRGenerate  0 
End Sub

Private Sub SRGenerate (ByVal K As Integer)
Dim i As Integer
Dim j As Integer

If K = N Then
For i =  1  To N
txtOut.Text = txtOut.Text & CStr(X(i))
Next
txtOut.Text = txtOut.Text & vbCrLf
Else
For j =  1  To M
X(K +  1 ) = j
SRGenerate (K +  1 )
Next
End If
End Sub
...
Рейтинг: 0 / 0
10.04.2008, 09:59
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35247747
FAndrew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FAndrew
Участник
Дмитрий1979Объясните пож-ста, что за книжка?
Книга Excel, где вы наваяли свой код.

Дмитрий1979Я ведь не программист и практически ничего не понимаю в этом
Может уже пора обратиться к тому кто понимает в этом?
Просто на ваши вопросы даже не понятно как отвечать, вы не знаете базовых вещей.
...
Рейтинг: 0 / 0
10.04.2008, 12:14
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248015
Дмитрий1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий1979
Гость
FAndrew Дмитрий1979Объясните пож-ста, что за книжка?
Книга Excel, где вы наваяли свой код.

Дмитрий1979Я ведь не программист и практически ничего не понимаю в этом
Может уже пора обратиться к тому кто понимает в этом?
Просто на ваши вопросы даже не понятно как отвечать, вы не знаете базовых вещей.

этот код я взял на www.google.ru и просто тупо его скопировал.
Вот я и обратился к вам, уважаемые программисты, с одним единственным вопросом вопросом:

Господа программеры!
Помогите пожста с решением проблемы (для меня-глобальной)

Есть 10 -ти значное число, состоящее только из цифр от 1 до 5.

Вопрос: каким образом определить кол-во и вывести на экран (желательно сохранить в текстовом файле) все возможные варианты 10-ти значных чисел из данного набора цифр??????

Как я понял, тут все знают, как это сделать без особого труда, дают советы (спасибо, кстати), но мне, как ничего непонимающему в программировании и не имеющем знакомых программеров, порой сложновато разобраться в некоторых специфических тонкостях (не вините меня пож-ста, каждый силен в своей области). Все, до чего я смог дойти - это найти в поиске на GOGLE Переборные алгоритмы и в одной из ссылок обнаружить и скопировать даный код. Попытался запустить его в VBA, после ввода M и N выдается ошибка 424 run-time error (вроде какой-то объект не определен что ли). Дальше пока не сдвинулось, почему я опять к вам и обращаюсь. Кстати, всем, кто хоть как-то пытается мне помочь - большое спасибо. В конце концов - мне нужен всего лишь конечный результат - все возможные комбинации в текстовом файле. Вот и все.
...
Рейтинг: 0 / 0
10.04.2008, 13:10
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248090
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
У вас есть контейнер ( форма или лист) для объекта txtOut ?
...
Рейтинг: 0 / 0
10.04.2008, 13:24
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248260
Дмитрий1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий1979
Гость
Э-эх, если б я еще знал, что это за контейнер...
Как выяснить, есть он или нет?
...
Рейтинг: 0 / 0
10.04.2008, 13:59
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248313
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Я же написал — форма или лист.
...
Рейтинг: 0 / 0
10.04.2008, 14:07
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248357
Дмитрий1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий1979
Гость
В смысле - форма или лист. Какая форма то? Или лист какой? Где он должен быть?
...
Рейтинг: 0 / 0
10.04.2008, 14:17
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248374
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
txtOut это элемент управления. Он может находиться на форме или на листе. В вашем проекте присутствует форма ?
...
Рейтинг: 0 / 0
10.04.2008, 14:21
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248467
Дмитрий1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий1979
Гость
Е-мое...
вообщем я сделал следующим образом:
открыл документ Word где записан этот вод код, во вкладках зашел в сервис - макрос - редактор VB, далее Debug - Complite Project.
Появилось окно с кодом .
Запускаю по вкладке Run - Run Sub\User Form - просит ввести М, N -ввожу и выскакивает ошибка 424 -что делать дальше и про какие формы и листы идет речь?
...
Рейтинг: 0 / 0
10.04.2008, 14:43
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248498
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
на UserForm своем TextBox брось и назови (Name) его txtOut
...
Рейтинг: 0 / 0
10.04.2008, 14:49
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248558
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
Код: plaintext
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.
Sub Gen()
Dim sRez As String
Dim a As Long, b As Long, c As Long, d As Long, e As Long, f As Long, g As 
Long
Dim h As Long, i As Long, j As Long
Open "c:\1.txt" For Output As # 1 
For a =  1  To  5 
    For b =  1  To  5 
        For c =  1  To  5 
            For d =  1  To  5 
                For e =  1  To  5 
                    For f =  1  To  5 
                        For g =  1  To  5 
                            For h =  1  To  5 
                                For i =  1  To  5 
                                    For j =  1  To  5 
                                        sRez = CStr(a) & CStr(b) & CStr(c) & 
CStr(d) & CStr(e) & _
                                            CStr(f) & CStr(g) & CStr(h) & 
CStr(i) & CStr(j)
                                        Debug.Print sRez
                                        Print # 1 , sRez
                                    Next j
                                Next i
                            Next h
                        Next g
                    Next f
                Next e
            Next d
        Next c
    Next b
Next a
Close # 1 
End Sub

Сколько будет работать не знаю, по итогу в корне диска С будет файл 1.txt в
нем нужные комбинации.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
10.04.2008, 14:58
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248576
Дмитрий1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий1979
Гость
попробую. Спасибо большое! Если все получится облагодарю.
...
Рейтинг: 0 / 0
10.04.2008, 15:00
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248603
Дмитрий1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий1979
Гость
Игорь Горбонос
Код: plaintext
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.
Sub Gen()
Dim sRez As String
Dim a As Long, b As Long, c As Long, d As Long, e As Long, f As Long, g As 
Long
Dim h As Long, i As Long, j As Long
Open "c:\1.txt" For Output As # 1 
For a =  1  To  5 
    For b =  1  To  5 
        For c =  1  To  5 
            For d =  1  To  5 
                For e =  1  To  5 
                    For f =  1  To  5 
                        For g =  1  To  5 
                            For h =  1  To  5 
                                For i =  1  To  5 
                                    For j =  1  To  5 
                                        sRez = CStr(a) & CStr(b) & CStr(c) & 
CStr(d) & CStr(e) & _
                                            CStr(f) & CStr(g) & CStr(h) & 
CStr(i) & CStr(j)
                                        Debug.Print sRez
                                        Print # 1 , sRez
                                    Next j
                                Next i
                            Next h
                        Next g
                    Next f
                Next e
            Next d
        Next c
    Next b
Next a
Close # 1 
End Sub

Сколько будет работать не знаю, по итогу в корне диска С будет файл 1.txt в
нем нужные комбинации.

Posted via ActualForum NNTP Server 1.4

Попробовал - пишет синтаксическую ошибку в самом начале. А правильно ли я запускаю выполнение. Я выше описал, как я делаю.
...
Рейтинг: 0 / 0
10.04.2008, 15:07
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248623
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Вот
Идете в Module1 , переходите в процедуру Gen и жмете Ф5.
...
Рейтинг: 0 / 0
10.04.2008, 15:11
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248714
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Дмитрий1979
> Попробовал - пишет синтаксическую ошибку в самом начале. А правильно
> ли я запускаю выполнение. Я выше описал, как я делаю

Открываешь документ ворд, меню "Серис" -> "Макрос" -> "Редактор VBA"
Открывается редактор, жмешь Ctrl + R - показывается окно проекта. В окне
проекта (практически в любом месте) правой кнопкой мыши -> пункт "Insert" ->
"Module"
Справа откроется окно для ввода кода. Первой строкой напиши Option Explicit
и после вставь мой код. Должно получится где-то так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Option Explicit

Sub Gen()
Dim sRez As String
Dim a As Long, b As Long, c As Long, d As Long, e As Long, f As Long, g As 
Long
Dim h As Long, i As Long, j As Long
Open "c:\1.txt" For Output As # 1 
For a =  1  To  5 
    For b =  1  To  5 
        For c =  1  To  5 
....
        Next c
    Next b
Next a
Close # 1 
End Sub
После чего сохраняешь тот документ в который добавил модуль. Сохранять в
Ворде. Потом ставишь курсор в любую строчку между Sub Gen() и End Sub и
нажимаешь F5, начнется выполнение кода. Если надоесть ждать окончания
комбинация клавиш Ctrl + Pause/Break приостановит выполнение кода, дальше
можно продолжить или остановить совсем, но начинать будет снова с начала.
Если выдает ошибки приводи текст ошибки потому, что у меня работает без
проблем

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
10.04.2008, 15:28
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248724
Дмитрий1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий1979
Гость
big-duke Вот
Идете в Module1 , переходите в процедуру Gen и жмете Ф5.


Запускаю Exscel - и абсолютно пусто. Хотя файл весит 27,5 кб. Опять я что то не так сделал?
...
Рейтинг: 0 / 0
10.04.2008, 15:29
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248741
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Дмитрий1979
> Попробовал - пишет синтаксическую ошибку в самом начале. А правильно
> ли я запускаю выполнение. Я выше описал, как я делаю.

Кажется я понял :) форматер кода на сайте сделал так:
Dim a As Long, b As Long, c As Long, d As Long, e As Long, f As Long, g As
Long
а это должна выть одна строка. И здесь так-же одна строка:
sRez = CStr(a) & CStr(b) & CStr(c) & CStr(d) & CStr(e) & _
и это одна строка:
CStr(f) & CStr(g) & CStr(h) & CStr(i) & CStr(j)

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
10.04.2008, 15:33
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248744
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Где пусто ?
Надо открыть excel, нажать alt-f11

...
Рейтинг: 0 / 0
10.04.2008, 15:33
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248764
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
все, я устал от этого :)

создай файлик 1.vbs , открой его notepad-ом и скопируй туда это, потом запускай (на диске C должна быть директория TEMP ):


Код: plaintext
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.
Sub Gen()
Dim sRez
Dim a, b, c, d, e, f, g
Dim h, i, j
Dim FSO, AFile, AFileStream

Set FSO = CreateObject("Scripting.FileSystemObject")
Set AFileStream = FSO.CreateTextFile("c:\temp\gen_out.txt", True)
AFileStream.Close
Set AFileStream = FSO.OpenTextFile("c:\temp\gen_out.txt", 8 )

For a =  1  To  5 
    For b =  1  To  5 
        For c =  1  To  5 
            For d =  1  To  5 
                For e =  1  To  5 
                    For f =  1  To  5 
                        For g =  1  To  5 
                            For h =  1  To  5 
                                For i =  1  To  5 
                                    For j =  1  To  5 
                                        sRez = CStr(a) & CStr(b) & CStr(c) & CStr(d) & CStr(e) & CStr(f) & CStr(g) & CStr(h) & CStr(i) & CStr(j)
                                        AFileStream.WriteLine sRez
                                    Next
                                Next
                            Next
                        Next
                    Next
                Next
            Next
        Next
    Next
Next

End Sub

Gen
...
Рейтинг: 0 / 0
10.04.2008, 15:38
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248789
Дмитрий1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий1979
Гость
Да ребят, я в этом просто лох конкретный, но походу чего-то заработало... Результат опишу после получения.
...
Рейтинг: 0 / 0
10.04.2008, 15:43
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248802
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Что заработало ?
Excel ? VBScript ?

...
Рейтинг: 0 / 0
10.04.2008, 15:47
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248822
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Дмитрий1979
> Да ребят, я в этом просто лох конкретный, но походу чего-то
> заработало... Результат опишу после получения.

Место на винте не забудь освободить и процессорное время оплатить :D

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
10.04.2008, 15:52
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248828
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
у него сейчас компьютер занят этим зацикленным заданием :)
...
Рейтинг: 0 / 0
10.04.2008, 15:53
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248829
FAndrew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FAndrew
Участник
Konst_Oneвсе, я устал от этого :)
А все потому, ИМХО, что кому-то жалко пива.
...
Рейтинг: 0 / 0
10.04.2008, 15:53
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248844
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
точно, если б он сразу с пива начал, то не разводили бы флейм на две страницы ;)
...
Рейтинг: 0 / 0
10.04.2008, 15:55
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248847
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Игорь Горбонос

Место на винте не забудь освободить и процессорное время оплатить :D

Posted via ActualForum NNTP Server 1.4
Там делов то на минуту и 110 метров
...
Рейтинг: 0 / 0
10.04.2008, 15:56
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248849
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Konst_One
> у него сейчас компьютер занят этим зацикленным заданием :)

Т.е. время "пойти за Клинским" (с) Реклама
для оплаты процессорного времени на ВЦ :)

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
10.04.2008, 15:57
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35248888
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: big-duke
> Игорь Горбонос
> Место на винте не забудь освободить и процессорное время
> оплатить :D

>
> Там делов то на минуту и 110 метров

по моим прикидам на 117 187 500 байт
а по времени не апроксимировал
Но за пивом точно не успеет :(
разве что в холодильнике стоит :)

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
10.04.2008, 16:04
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35249587
Дмитрий1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий1979
Гость
Все хорошо сработало, файлик весит 111 Мб, времени вообще мало потратилось, но вот загвоздочка- не открывается 1.txt - не хочет. Сейчас на своем компе попробую - напишу, и если все, для чего это затевалось, сработает, без пива не останетесь :-))
...
Рейтинг: 0 / 0
10.04.2008, 19:12
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35249626
Дмитрий1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий1979
Гость
Все-таки не могу открыть 1.txt - может из-за того, что слишком большой - все таки 9600000 строк? Или не в этом причина? нельзя ли как-нить сделать, чтоб в несколько файлов результат записался?
...
Рейтинг: 0 / 0
10.04.2008, 19:45
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35249627
Дмитрий1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий1979
Гость
Игорь Горбонос
> Автор: big-duke
> Игорь Горбонос
> по моим прикидам на 117 187 500 байт

Posted via ActualForum NNTP Server 1.4

Вы правы, он ровно столько и весит.
...
Рейтинг: 0 / 0
10.04.2008, 19:47
| Ответить | Цитировать | Написать  
КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
    #35249800
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
вордом открой, нотепад не потянет
...
Рейтинг: 0 / 0
10.04.2008, 22:31
| Ответить | Цитировать | Написать  
55 сообщений из 55, показаны все 3 страниц
  все  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / КАК ОПРЕДЕЛИТЬ ВСЕ ВОЗМОЖНЫЕ ВАРИАНТЫ 10-ТИ ЗНАЧНОГО ЧИСЛА?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=60&tid=2162420]:
 0ms
get settings:
 11ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 44ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 114ms
get tp. blocked users:
 1ms
others: 196ms
total:  405ms
созд. / загр.: 405ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]