Из одномерного массива сформировать двумерный

@klimweb · Регистрация: 15.09.2013

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

Доброго времени суток, уважаемые ситуации.
Такая задача (Visual Basic 6.0):
Из имеющегося одномерного массива из 20 элементов сформировать двумерный массив размерностью 5×4.

Я ввожу в инпутбокс 20 элементов массива, затем разделяю их с помощью функции Split. Затем следуют два цикла (для переменной i - строка, j - столбец). Внутри второго нужно присваивать элементу одномерного массива индекс двумерного. В целом представляю, как это сделать. Но на практике - ничего не выходит.

Огромнейшая просьба: напишите пожалуйста код решения. Заранее премного благодарен!

Добавлено через 1 час 47 минут
Сделал вот так, по-кривому. Вводится отдельно каждый элемент одномерного массива и из них строится новый двумерный 5х4

Visual Basic

Dim B(5, 4) As Integer
Dim A(20) As Integer
For i = 0 To 4
    For j = 0 To 3
    If i = 0 Then s = 0
    If i = 1 Then s = 4
    If i = 2 Then s = 8
    If i = 3 Then s = 12
    If i = 4 Then s = 16
    Text = "Введите " & s + j + 1 & "-ый элемент одномерного массива"
    A(x) = InputBox(Text, "Ввод данных")
    
    B(i, j) = A(x)
    Picture1.Print B(i, j);
    Next
    Picture1.Print
Next

SoftIce · 28.10.2013, 04:15

Visual Basic

    Dim A(1 To 20) As Integer, B(1 To 5, 1 To 4) As Integer
    Dim i As Integer, j As Integer, x As Integer
    Randomize
    Picture1.Cls
    
    Picture1.Print "Одномерный массив"
    For i = 1 To 20
        A(i) = InputBox("Введите " & i & "-ый элемент одномерного массива", "Ввод данных", Int(Rnd * 9 + 1))
        Picture1.Print A(i) & " ";
    Next i
    
    Picture1.Print
    Picture1.Print "Двумерный массив"
    For i = 1 To 5
        For j = 1 To 4
              x = x + 1                   ' Можно сделать так
              B(i, j) = A(x)
             'B(i, j) = A((i - 1) * 4 + j)' Или так
              Picture1.Print B(i, j);
        Next j
        Picture1.Print
    Next i

@klimweb · 28.10.2013, 04:28 **[ТС]**

Огромное спасибо! SoftIce, если можно, помогите еще с этим. Буду очень признателен

@klimweb 1 / 1 / 0 Регистрация: 15.09.2013 Сообщений: 15
	28.10.2013, 04:28 [ТС]	3
	Огромное спасибо! SoftIce, если можно, помогите еще с этим. Буду очень признателен 0

Из одномерного массива сформировать двумерный

Решение