Как перемешать двумерный массив?

@Jaron401 · Регистрация: 15.04.2018

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

Задан двумерный массив, надо случайным образом переставить значения стоящие в нем. Вот код

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim a(1 To 4, 1 To 4) As String
Dim k As Integer
 
Private Sub Command1_Click()
k = 0
For i = 1 To 3
  For j = 1 To 4
    a(i, j) = j + k
  Next j
  k = k + 4
Next i
i = 4
For j = 1 To 3
  a(i, j) = j + 12
Next j
a(4, 4) = " "
k = 0
For i = 1 To 4
  For j = 1 To 4
    Label1(j - 1 + k).Caption = a(i, j)
  Next j
  k = k + 4
Next i
End Sub

@ili1 · 15.04.2018, 14:02

Эта программа не будет работать. Вы объявили строковый массив
и пытаетесь заполнить его числами.

Добавлено через 2 минуты
Вам известны такие функции как STR() и VAL() ?

@Jaron401 · 15.04.2018, 14:15 **[ТС]**

ili1,

Сообщение от ili1

Эта программа не будет работать

моя программа работает.

Сообщение от ili1

Вы объявили строковый массив
и пытаетесь заполнить его числами.

а как иначе мне заполнить один его элемент пробелом? Что бы он отображался при выводе в Label1 как пробел.

Добавлено через 10 минут
Известны, если мне потребуется перевести я переведу, но сейчас не вижу в это необходимости, т. к. повторюсь пока все работает.

@ili1 · 15.04.2018, 14:27

Jaron401,
чтобы число превратить в строковую переменную применяют
функцию STR(). Пример STR(4) - это будет строка " 4" - содержащая
перед четверкой пробел.

Добавлено через 10 минут
Jaron401
Чтобы перемешать матрицу в самом начале вводите строку
RANDOMIZE TIMER - для инициализации генератора случайных чисел
2.
Далее (после заполнения матрицы)
вы задаете цикл FOR - NEXT, в котором с помощью функции RND
задаете случайные значения индексам матрицы
i = 1 + 4 * RND
j = 1 + 4 * RND
Элементы a(1, 1) и a(i, j) переставляете местами
Следующая перестановка a(1, 2) и a(i, j) - это новый элемент
...
и так далее, всего 4 * 4 = 16 перестановок.

@Jaron401 · 15.04.2018, 14:27 **[ТС]**

ili1, Если мне все надо будет перевести в строку ( как я понял для того что бы перемешать), то не легче будет изначально массиву задать а Integer?

@ili1 · 15.04.2018, 14:29

Jaron401,
легче!! Именно это я и хотел вам объяснить.

@Jaron401 · 15.04.2018, 14:47 **[ТС]**

ili1, Я немного не понял вторую часть, как должен выглядеть цикл FOR..NEXT?

@ili1 · 15.04.2018, 14:56

Правильно спросили. Это двойной цикл
FOR i1 = 1 TO 4
FOR j1 =1 TO 4

NEXT j1, i1

@Jaron401 · 15.04.2018, 15:05 **[ТС]**

ili1, все равер не могу понять. Почему i1 и j1?

Добавлено через 2 минуты
ili1,

Сообщение от ili1

переставляете местами

перестановка должна быть в теле внутреннего цикла? и как должна выглядеть так?

Visual Basic
1
2
3
t = a(1, 1)
   a(1, 1) = a(i, j)
   a(i, j) = t

@ili1 · 15.04.2018, 15:11

Visual Basic
1
2
3
    t = a(i1, j1)
    a(i1, j1) = a(i, j)
    a(i, j) = t

@Jaron401 · 15.04.2018, 15:17 **[ТС]**

ili1, а это правильно?

Visual Basic
1
2
3
4
5
6
7
For i1 = 1 To 4
 i = 1 + 4 * Rnd
  For j1 = 1 To 4
   j = 1 + 4 * Rnd
' престановка
  Next j1
 Next i1

@ili1 · 15.04.2018, 15:20

Jaron401
Нет. Так нельзя. Мы уже использовали i, j поэтому надо
задать другие переменные например ii, jj или p, q. Но другие!!

Добавлено через 1 минуту
Да. Второй случай верный.

@Jaron401 · 15.04.2018, 15:25 **[ТС]**

ili1,

Visual Basic
1
2
3
4
5
6
7
For i1 = 1 To 4
 i = 1 + 4 * Rnd
  For j1 = 1 To 4
   j = 1 + 4 * Rnd
' престановка
  Next j1
 Next i1

Добавлено через 1 минуту
все я понял

@ili1 · 15.04.2018, 15:29

Нет. это не верно. Верный пост #11.

Добавлено через 2 минуты
Да. Вы быстро учитесь. Это верно.

@Jaron401 · 15.04.2018, 15:52 **[ТС]**

ili1, Тем не менее возникает какая то ошибка. Я пробовал запускать несколько раз и и получилось только один. Вот мой код

Visual Basic
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
Dim a(1 To 4, 1 To 4) As Integer
Dim k As Integer
Private Sub Command2_Click()
Randomize Timer
Dim t As Integer
k = 0
For i = 1 To 3
  For j = 1 To 4
    a(i, j) = j + k
  Next j
  k = k + 4
Next i
i = 4
For j = 1 To 3
  a(i, j) = j + 12
Next j
a(4, 4) = 0
   
 
For i1 = 1 To 4
 i = 1 + 4 * Rnd
  For j1 = 1 To 4
   j = 1 + 4 * Rnd
   t = a(i1, j1)
   a(i1, j1) = a(i, j)
   a(i, j) = t
   
    Next j1
 Next i1
 
 k = 0
For i = 1 To 4
  For j = 1 To 4
    Label1(j - 1 + k).Caption = a(i, j)
  Next j
  k = k + 4
Next i
End Sub

Компилятор выделяет эту строчку

Visual Basic
1
a(i1, j1) = a(i, j)

@ili1 · 15.04.2018, 16:18

Это скорее всего округление. Вот пример из вашего кода
i = 1 + 4 * Rnd
поскольку переменная i целочисленная, то бейсик сам округляет
значение i до ближайшего целого число. Отсюда может быть
ошибка. Например число 4.7 будет округлено до 5. А индекс
не может быть равным 5. Как исправить? Надо записать формулу так
i = 0.5 + 4 * RND
Вот теперь число 5 уже не получится. (это я проглядел). Ну на ошибках
учатся.
В общем исправьте у себя в подобных формулах 1 на 0.5

@Jaron401 · 15.04.2018, 16:38 **[ТС]**

хорошо

Добавлено через 3 минуты
ili1, все получилось, работает. Спасибо

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

Как перемешать двумерный массив?

Решение

Решение

@ili1 Заблокирован
	15.04.2018, 14:02
	Эта программа не будет работать. Вы объявили строковый массив и пытаетесь заполнить его числами. Добавлено через 2 минуты Вам известны такие функции как STR() и VAL() ? 0

@ili1 Заблокирован
	15.04.2018, 14:27
	Сообщение было отмечено Jaron401 как решение Решение Jaron401, чтобы число превратить в строковую переменную применяют функцию STR(). Пример STR(4) - это будет строка " 4" - содержащая перед четверкой пробел. Добавлено через 10 минут Jaron401 Чтобы перемешать матрицу в самом начале вводите строку RANDOMIZE TIMER - для инициализации генератора случайных чисел 2. Далее (после заполнения матрицы) вы задаете цикл FOR - NEXT, в котором с помощью функции RND задаете случайные значения индексам матрицы i = 1 + 4 * RND j = 1 + 4 * RND Элементы a(1, 1) и a(i, j) переставляете местами Следующая перестановка a(1, 2) и a(i, j) - это новый элемент ... и так далее, всего 4 * 4 = 16 перестановок. 0

@Jaron401 3 / 3 / 0 Регистрация: 15.04.2018 Сообщений: 18
	15.04.2018, 14:27 [ТС]
	ili1, Если мне все надо будет перевести в строку ( как я понял для того что бы перемешать), то не легче будет изначально массиву задать а Integer? 0

@ili1 Заблокирован
	15.04.2018, 14:29
	Jaron401, легче!! Именно это я и хотел вам объяснить. 0

@Jaron401 3 / 3 / 0 Регистрация: 15.04.2018 Сообщений: 18
	15.04.2018, 14:47 [ТС]
	ili1, Я немного не понял вторую часть, как должен выглядеть цикл FOR..NEXT? 0

@ili1 Заблокирован
	15.04.2018, 14:56
	Правильно спросили. Это двойной цикл FOR i1 = 1 TO 4 FOR j1 =1 TO 4 NEXT j1, i1 0

@ili1 Заблокирован
	15.04.2018, 15:20
	Jaron401 Нет. Так нельзя. Мы уже использовали i, j поэтому надо задать другие переменные например ii, jj или p, q. Но другие!! Добавлено через 1 минуту Да. Второй случай верный. 0

@ili1 Заблокирован
	15.04.2018, 15:29
	Нет. это не верно. Верный пост #11. Добавлено через 2 минуты Да. Вы быстро учитесь. Это верно. 0

@ili1 Заблокирован
	15.04.2018, 16:18
	Сообщение было отмечено Jaron401 как решение Решение Это скорее всего округление. Вот пример из вашего кода i = 1 + 4 * Rnd поскольку переменная i целочисленная, то бейсик сам округляет значение i до ближайшего целого число. Отсюда может быть ошибка. Например число 4.7 будет округлено до 5. А индекс не может быть равным 5. Как исправить? Надо записать формулу так i = 0.5 + 4 * RND Вот теперь число 5 уже не получится. (это я проглядел). Ну на ошибках учатся. В общем исправьте у себя в подобных формулах 1 на 0.5 0

@Jaron401 3 / 3 / 0 Регистрация: 15.04.2018 Сообщений: 18
	15.04.2018, 16:38 [ТС]
	хорошо Добавлено через 3 минуты ili1, все получилось, работает. Спасибо 1