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

@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

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

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. 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. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@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

Опции темы