Составить из двух массивов один методом вставок - VB
Формулировка задачи:
Даны два массива вещественных чисел. Один массив упорядочен, другой – не упорядочен. Составить из двух массивов один упорядоченный массив методом вставок.
Помогите пожалуйста с кодом( не могу придумать алгоритм
Решение задачи: «Составить из двух массивов один методом вставок»
textual
Листинг программы
Function Insertion(A() As Double, B() As Double) As Double() Dim R() As Double na% = UBound(A, 1) nb% = UBound(B, 1) ReDim R(1 To na% + nb%) As Double For i% = 1 To na% R(i%) = A(i%) Next i% nr% = na% For i% = 1 To nb% V# = B(i%) For j% = 1 To nr% q% = 0 If R(j%) > V# Then For k% = nr% + 1 To j% + 1 Step -1 R(k%) = R(k% - 1) Next k% R(j%) = V# q% = -1 Exit For End If Next j% nr% = nr% + 1 If q% = 0 Then R(nr%) = V# Next i% Insertion = R End Function Sub Test() Dim X(1 To 5) As Double Dim Y(1 To 6) As Double Dim R() As Double X(1) = 1 X(2) = 2 X(3) = 3 X(4) = 5 X(5) = 7 Y(1) = 1 Y(2) = -1 Y(3) = 6 Y(4) = -17 Y(5) = 0 Y(6) = -6 R = Insertion(X, Y) n% = UBound(R, 1) For i% = 1 To n% Debug.Print R(i%) Next i% End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д