Как заполнить квадратную матрицу значениями?

@Sambl · Регистрация: 26.12.2016

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

Как заполнить квадратную матрицу конкретными числами?
В моей программе я нахожу коэффициенты в уравнении,присваиваю переменным(типа string) значения этих коэффициентов, и мне надо эти самые коэффициенты добавить в матрицу.
Допустим у меня есть переменные с различными значениями a1=2 a2=3 a3=4;b1=1 b2=3 b3=5; c1=2 c2=4 c3=7;
мне нужно заполнить матрицу этими значениями,вот так
2 3 4
1 3 5
2 4 7

@fever brain · 25.06.2017, 20:16

Visual Basic

'Option Explicit
 
Private Sub Form_Load()
    Dim matrix(1 To 3, 1 To 3)
    
    a1 = 2: a2 = 3: a3 = 4: b1 = 1: b2 = 3: b3 = 5: c1 = 2: c2 = 4: c3 = 7
    
    arr = Array(a1, a2, a3, b1, b2, b3, c1, c2, c3)
    For i = 1 To UBound(matrix, 1)
        For j = 1 To UBound(matrix, 2)
            matrix(i, j) = arr(ind): ind = ind + 1
        
    Next j, i
    Stop
End Sub

@fever brain · 25.06.2017, 20:31

Есть еще вариант с использованием функции GetArray

Visual Basic

'Option Explicit
 
Private Sub Form_Load()
    Dim matrix(1 To 3, 1 To 3)
    arr = GetArray("a1 = 2", "a2 = 3", "a3 = 4", "b1 = 1", "b2 = 3", "b3 = 5", "c1 = 2", "c2 = 4", "c3 = 7")
    For i = 1 To UBound(matrix, 1)
        For j = 1 To UBound(matrix, 2)
            matrix(i, j) = arr(ind): ind = ind + 1
    Next j, i
    
    'Проверка
    For i = 1 To UBound(matrix, 1)
        s = s & vbLf
        For j = 1 To UBound(matrix, 2)
            s = s & " " & matrix(i, j)
    Next j, i
    MsgBox s
End Sub
 
 
Function GetArray(ParamArray exp())
    Dim g(), i&
    For Each v In exp
        v = Split(Replace(v, " ", ""), "=")
        ReDim Preserve g(i): g(i) = v(1)
        i = i + 1
    Next
    GetArray = g
End Function

@Sambl 0 / 0 / 0 Регистрация: 26.12.2016 Сообщений: 21
		1
	Как заполнить квадратную матрицу значениями? 25.06.2017, 18:43. Показов 749. Ответов 2 Метки нет (Все метки) Как заполнить квадратную матрицу конкретными числами? В моей программе я нахожу коэффициенты в уравнении,присваиваю переменным(типа string) значения этих коэффициентов, и мне надо эти самые коэффициенты добавить в матрицу. Допустим у меня есть переменные с различными значениями a1=2 a2=3 a3=4;b1=1 b2=3 b3=5; c1=2 c2=4 c3=7; мне нужно заполнить матрицу этими значениями,вот так 2 3 4 1 3 5 2 4 7 0

Опции темы