Сортировка массива - матрицы - VB

Узнай цену своей работы

Формулировка задачи:

Дана матрица А [N, N] Сформировать одномерный массив из элементов главной и побочной диогонали?

Решение задачи: «Сортировка массива - матрицы»

textual
Листинг программы
Sub Task()
Dim arrMain(), arrMatrix()
Dim M As Integer, i As Integer, j As Integer, sStr As String, sStr1 As String, sStr2 As String
M = InputBox("ГђГ*çìåðГ*îñòü Г¬Г*òðèöû:")
ReDim arrMatrix(1 To M, 1 To M): ReDim arrMain(1 To M * 2)
For i = 1 To M
    For j = 1 To M
        arrMatrix(i, j) = Int(Rnd * 50 + 10)
        sStr = sStr & arrMatrix(i, j) & "  "
    Next
    sStr = sStr & vbNewLine
Next
j = M + 1
For i = 1 To M
    arrMain(i) = arrMatrix(i, i)
    arrMain(M * 2 - (i - 1)) = arrMatrix(i, j - i)
Next
sStr = sStr & vbNewLine
For i = 1 To M * 2
    sStr = sStr & arrMain(i) & "  "
Next
MsgBox sStr
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 3.929 из 5