Решение задачи с матрицей (поворот вокруг побочной оси) - 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

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


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

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

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