Операции с массивами

@Dower · Регистрация: 17.01.2010

Студворк — интернет-сервис помощи студентам

Задача.
Просуммировать элементы матрицы A(n, n) по каждой из линий, параллельных главной диагонали. Напечатать полученные суммы.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub CommandButton1_Click()
Dim R, C
n = Cells(26, 2)
Randomize 
For R = 1 To n 
    For C = 1 To n 
    Cells(R, C) = Int((90 * Rnd) - 30) 
    Next C
Next R
End Sub
 
Private Sub CommandButton2_Click()
Dim x, y, z
n = Cells(26, 2)
    
    For n = 1 To n - 1
    Range("B10") = Range("B10") + Cells(n, n + 1)
    Range("C10") = Range("C10") + Cells(n + 1, n)
    Range("B11") = Range("B11") + Cells(n, n + 2)
    Range("C11") = Range("C11") + Cells(n + 2, n)
    Range("B12") = Range("B12") + Cells(n, n + 3)
    Range("C12") = Range("C12") + Cells(n + 3, n)
    Next n
  End Sub

Первая кнопка задает квадратную матрицу указанной размерности из случайных чисел.
Вторая суммирует числа в каждой диагонали и печатает получившиеся суммы.
Но во второй кнопке сделано только для n=4 или меньше. Подскажите как сделать для любой n.

@Vlanib · 09.06.2010, 20:56

Код кривой и работать не будет ни для какого n.

@Dower · 09.06.2010, 21:06 **[ТС]**

У меня нормально работает и считает при любом n суммы чисел каждой из трех диагоналей вверх от главной и трех вниз от главной. А надо сделать так что бы считал суммы всех параллельных линий главной диагонали.

@Vlanib · 09.06.2010, 21:21

Visual Basic
1
For n = 1 To n - 1

Такой цикл по определению работать не может.

@Dower · 09.06.2010, 21:29 **[ТС]**

Ну что я врать что ли буду. Могу скинуть файл чтобы вы убедились.

@Vlanib · 09.06.2010, 21:42

Может невнимательно код переписал. Вот проверяй:

Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub Task()
    Dim N As Integer, j As Integer, i As Integer
    N = Cells(26,2)
    For j = 1 To N
        For i = 1 To N - j
            Cells(N - j, N + 1) = Cells(N - j, N + 1) + Cells(i, i + j)
            Cells(N + 1, N - j) = Cells(N + 1, N - j) + Cells(i + j, i)
        Next
    Next
End Sub

@Dower · 09.06.2010, 21:46 **[ТС]**

Спасибо. Работает.

@Vlanib · 09.06.2010, 21:53

Как то странно! Действительно каким-то чудным образом этот цикл работает. Ничего не понимаю!

Новые блоги и статьи Все статьи Все блоги /
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита, которое может. . .	Команды "Заполнить" и "Очистить" на форме документа Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа разработанного в конфигурации КА2. В качестве источника данных указан регистр накопления, в который записываются данные о. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip

@Vlanib Частенько бываю 750 / 331 / 42 Регистрация: 20.06.2007 Сообщений: 854
	09.06.2010, 20:56
	Код кривой и работать не будет ни для какого n. 0

@Dower 0 / 0 / 0 Регистрация: 17.01.2010 Сообщений: 70
	09.06.2010, 21:06 [ТС]
	У меня нормально работает и считает при любом n суммы чисел каждой из трех диагоналей вверх от главной и трех вниз от главной. А надо сделать так что бы считал суммы всех параллельных линий главной диагонали. 0

@Dower 0 / 0 / 0 Регистрация: 17.01.2010 Сообщений: 70
	09.06.2010, 21:46 [ТС]
	Спасибо. Работает. 0

@Vlanib Частенько бываю 750 / 331 / 42 Регистрация: 20.06.2007 Сообщений: 854
	09.06.2010, 21:53
	Как то странно! Действительно каким-то чудным образом этот цикл работает. Ничего не понимаю! 0