Диагонали Матрицы! Help! - VB

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

Товарищи программисты. помогите найти закономерность как считать диагонали. Задание: Дано натуральное N и квадратная целочисленная матрица размером NxN. Заменить элементы главной диагонали суммами элементов, которые лежат на диагоналях, перпендикулярных главной. Всё объяснять не надо только как грамотно посчитать диагонали.? За ранее спасибо.!

Решение задачи: «Диагонали Матрицы! Help!»

textual
                            Листинг программы 
                        

                            Option Explicit
Dim M(9, 9)
Dim R
Dim C
 
Private Sub Комманда1_Click()
Cls
Randomize
For R = 0 To 9
For C = 0 To 9
M(R, C) = Int(90 * Rnd + 10)
Print M(R, C);
Next C
Print
Next R
End Sub
 
Private Sub Комманда2_Click()
For R = 1 To UBound(M)
C = 1
Do While (R + C - 1) < UBound(M) And (R - C + 1) > 0
M(R, R) = M(R, R) + M(R + C, R - C) + M(R - C, R + C)
C = C + 1
Loop
Debug.Print R, M(1, 1)
Next R
Print
Print
For R = 0 To 9
        For C = 0 To 9
        Print M(R, C);
        Next C
Print
Next R
End Sub
                        

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

6 голосов , оценка 4.333 из 5

Похожие ответы