Алгоритм - набор вариантов последовательности.

23.11.2009, 11:24. **Показов** 733. **Ответов** 3

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

U menja est n-oe kolichestvo slov(stringov), mne nuzno sozdat vse varianti posledovatelsnosti etih slov.

Naprimer:

Imeetsja 2 slova:
a-string
b-string

Resultat:
a-string b-string
b-string a-string

Podskazite algorim!

Spasibo!
Inessa

@palva · 23.11.2009, 13:30

sub nxt(arr, ind)
if ind = ubound(arr) then
s = ''
for i = 1 to ubound(arr)
s = s + ' ' + arr(i)
next
msgbox s
else
for i = ind to ubound(arr)
nxt arr, ind + 1
temp = arr(ind)
for j = ind + 1 to ubound(arr)
arr(j - 1) = arr(j)
next
arr(ubound(arr)) = temp
next
end if
end sub

dim a(4)

a(1) = 'a-string'
a(2) = 'b-string'
a(3) = 'c-string'
a(4) = 'd-string'

nxt a, 1

23.11.2009, 14:35

Spasibo ogromno! Rabotaet otlichno!
Inessa

@palva · 24.11.2009, 22:47

На самом деле алгоритм здесь не очень удачный, поскольку происходит очень много строчных присваиваний. Чтобы программа работала в несколько раз быстрее, нужно тасовать не массив строк, а массив индексов, а к самим строкам обращаться лишь на этапе формирования строк печати. Вот новый вариант программы, теперь уже не на VBScript а на настоящем бейсике.

Code
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
Dim a(4) As String
Dim ia(4) As Integer
 
Sub nxt(arr, ind)
  Dim temp As Integer
  If ind = UBound(arr) Then
    s = ''
    For i = 1 To UBound(arr)
      s = s + ' ' + a(arr(i))
    Next
    Debug.Print s
  Else
    For i = ind To UBound(arr)
      nxt arr, ind + 1
      temp = arr(ind)
      For j = ind + 1 To UBound(arr)
      arr(j - 1) = arr(j)
      Next
      arr(UBound(arr)) = temp
    Next
  End If
End Sub
 
Private Sub Form_Load()
  a(1) = 'a-string'
  a(2) = 'b-string'
  a(3) = 'c-string'
  a(4) = 'd-string'
 
  ia(1) = 1
  ia(2) = 2
  ia(3) = 3
  ia(4) = 4
 
  nxt ia, 1
 
End Sub

Новые блоги и статьи Все статьи Все блоги /
Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

Ines

	Алгоритм - набор вариантов последовательности. 23.11.2009, 11:24. Показов 733. Ответов 3 Метки нет (Все метки) U menja est n-oe kolichestvo slov(stringov), mne nuzno sozdat vse varianti posledovatelsnosti etih slov. Naprimer: Imeetsja 2 slova: a-string b-string Resultat: a-string b-string b-string a-string Podskazite algorim! Spasibo! Inessa

@palva 4278 / 2970 / 693 Регистрация: 08.06.2007 Сообщений: 9,930 Записей в блоге: 5
	23.11.2009, 13:30
	sub nxt(arr, ind) if ind = ubound(arr) then s = '' for i = 1 to ubound(arr) s = s + ' ' + arr(i) next msgbox s else for i = ind to ubound(arr) nxt arr, ind + 1 temp = arr(ind) for j = ind + 1 to ubound(arr) arr(j - 1) = arr(j) next arr(ubound(arr)) = temp next end if end sub dim a(4) a(1) = 'a-string' a(2) = 'b-string' a(3) = 'c-string' a(4) = 'd-string' nxt a, 1 0

Ines
	23.11.2009, 14:35
	Spasibo ogromno! Rabotaet otlichno! Inessa