В квадратной матрице мне нужно поменять диагонали местами.
элементы главной как я понял элементы где i=j, а для побочной это как будет?
Если можно приведите пример их замены
For i = 1 To N
tmp = A(i, i)
A(i, i) = A(i, N + 1 - i)
A(i, N +1 - i) = tmp
Next i
Dim A(1 To 10, 1 To 10) As Integer
Private Sub Command1_Click()
Picture1.Cls
Picture2.Cls
N = 5
Randomize
For i = 1 To N
For j = 1 To N
A(i, j) = Rnd * 10
Picture1.Print Format(A(i, j), "00"); " ";
Next j
Picture1.Print
Next i
For i = 1 To N
tmp = A(i, i)
A(i, i) = A(i, N + 1 - i)
A(i, N + 1 - i) = tmp
Picture2.Print A(i, i);
Picture2.Print
Next i
End Sub
For i = 1 To N
For j = 1 To N
If i = j Then
tmp = A(i, i)
A(i, i) = A(i, N + 1 - i)
A(i, N + 1 - i) = tmp
End If
Picture2.Print A(i, j);
Next j
Picture2.Print
Next i
Dim A(1 To 10, 1 To 10) As Integer
Private Sub Command1_Click()
Picture1.Cls
Picture2.Cls
N = 5
Randomize
For i = 1 To N
For j = 1 To N
A(i, j) = Rnd * 9
Picture1.Print A(i, j);
Next j
Picture1.Print
Next i
For i = 1 To N
For j = 1 To N
If i = j Then
k = A(i, i)
A(i, i) = A(i, N + 1 - i)
A(i, N + 1 - i) = k
End If
Picture2.Print A(i, j);
Next j
Picture2.Print
Next i
End Sub
Dim A(1 To 10, 1 To 10) As Integer
Private Sub Command1_Click()
Picture1.Cls
Picture2.Cls
N = 5
' заполняем
Randomize
For i = 1 To N
For j = 1 To N
A(i, j) = Rnd * 9
Picture1.Print A(i, j);
Next j
Picture1.Print
Next i
' меняем элементы
For i = 1 To N
k = A(i, i)
A(i, i) = A(i, N + 1 - i)
A(i, N + 1 - i) = k
Next i
' печатем всю матрицу с замененными диагоналями
For i = 1 To N
For j = 1 To N
Picture2.Print A(i, j);
Next j
Picture2.Print
Next i
' радуемся содеянному
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2