Решение задачи с матрицей (поворот вокруг побочной оси) - VB
Формулировка задачи:
Здравствуйте, не могу никак решить задачу. Дана матрица нного порядка, нужно произвести поворот чисел вокруг побочной оси. Как сделать? Если можно, пояснения к некоторым переменным.
Решение задачи: «Решение задачи с матрицей (поворот вокруг побочной оси)»
textual
Листинг программы
Option Explicit Private Sub Command1_Click() Dim A() As Integer, i As Integer, j As Integer Dim t As Integer, n As Integer AutoRedraw = True Cls n = 5 ReDim A(1 To n, 1 To n) For i = 1 To n For j = 1 To n A(i, j) = Int(Rnd * 10) Print A(i, j); Next j Print Next i For i = 1 To n - 1 For j = 1 To n + 1 - i t = A(i, j) A(i, j) = A(n - j + 1, n - i + 1) A(n - j + 1, n - i + 1) = t Next j Next i Print For i = 1 To n For j = 1 To n Print A(i, j); Next j Print Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д