Задача на сортировку - VB
Формулировка задачи:
Элементы массива Д(n) случайным образом перемешаны. Элементы Кi массива К(n) указывают номера позиций, которые занимали соответствующие элементы Дi до перемешивания. Восстановить исходное состояние массива Д.
Решение задачи: «Задача на сортировку»
textual
Листинг программы
Sub RestoreOrder(D() As Integer, K() As Integer) Dim W() As Integer n% = UBound(D, 1) ReDim W(1 To n%) As Integer For i% = 1 To n% j% = K(i%) W(j%) = D(i%) Next i% For i% = 1 To n% D(i%) = W(i%) Next i% End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д