Получить матрицу 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д