Получить матрицу B(M,N) из матрицы A(M,N) путем перестановки элементов главной диагонали матрицы - VB

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

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

1)

Получить матрицу B(M,N) из матрицы A(M,N) путем перестановки элементов главной диагонали матрицы A с элементами побочной диагонали

2)

Написать программу проверки умения умножать и делить дробные числа в пределах 100.Программа должна вывести 5 примеров ,причем в каждом примере делимое должно быть больше или равно делителю,т.е. не допускается предлагать примеры с результатом меньше 1.

Помогите с решением,буду очень очень благодарен

Решение задачи: «Получить матрицу B(M,N) из матрицы A(M,N) путем перестановки элементов главной диагонали матрицы»

textual
Листинг программы
Private Sub Form_Load()
'Г§Г*ïîëåГ*ГЁГҐ Г¬Г*òðèöû A
n = 5 'n = InputBox("ââåäèòå n")
ReDim a(n, n) As Integer
ReDim b(n, n) As Integer
For i = 0 To n - 1
    For j = 0 To n - 1
        a(i, j) = Int(Rnd * 9 + 1) 'ñëó÷Г*Г©Г*ûìè Г·ГЁГ±Г«Г*ìè
    Next
Next
 
b = a
For i = 0 To n - 1
    b(i, i) = a(n - 1 - i, i)
    b(n - 1 - i, i) = a(i, i)
Next
 
'âûâîä ,äëÿ îáîèõ textbox Г*ГіГ¦Г*Г® âêëþ÷èòü multiline
Text1 = ""
Text2 = ""
For i = 0 To n - 1
    For j = 0 To n - 1
        Text1 = Text1 & a(i, j) & vbTab
        Text2 = Text2 & b(i, j) & vbTab
    Next
    Text1 = Text1 & vbCrLf
    Text2 = Text2 & vbCrLf
Next
End Sub

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


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

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

10   голосов , оценка 4.1 из 5
Похожие ответы