Диагонали Матрицы! 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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