Найти сумму элементов по периметру

@Super GT · Регистрация: 23.12.2012

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

"Двумерный массив. Найти сумму элементов по периметру, не включая элементы побочной диагонали."
Происходит ошибка вылета за пределы. Похоже, напортачил с определением "побочных" чисел (строка 19)

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
25
26
Sub Vice()
 
Dim i, j, n As Integer
Const m As Integer = 5
Dim Mas(1 To m, 1 To m) As Integer, PerSum, Result, S As String
    
For i = 1 To m
For j = 1 To m
n = n + 1
Mas(i, j) = InputBox("Ââåäèòå " & j & "-é ýëåìåíò " & i & " -é ñòðîêè")
Next j
Next i
 
For i = 1 To m
For j = 1 To m Step 1
If i = 1 Or j = 1 Or i = n Or j = m Then
PerSum = PerSum + Mas(i, j)
End If
Result = PerSum - Mas(i, n - i + 1)
Next j
Next i
 
S = S & "Cóììà ýëåìåíòîâ ïî ïåðèìåòðó, íå âêëþ÷àÿ ýëåìåíòû, ëåæàùèå íà ïîáî÷íîé äèàãîíàëè  " & Result & ": "
MsgBox S
    
End Sub

morgann55 · 11.07.2013, 18:15

Вот так надо складывать:

Visual Basic
1
2
3
4
5
6
7
8
For i = 1 To m
For j = 1 To m
If (i = 1 Or j = 1 Or i = m Or j = m) And Abs(i - j) < (m - 1) Then
PerSum = PerSum + Mas(i, j)
End If
''''Result = PerSum - Mas(i, j)
Next j
Next i

Result и n не нужны - вывод по PerSum ....

@Super GT · 11.07.2013, 18:39 **[ТС]**

morgann55, спасибо, разобрался!

Abs(i - j) < (m - 1) - хитро вы эту штуку придумали. Я минут 5 пытался осмыслить, сходу и не догадаешься, ведь как-то просто все вышло.

morgann55 · 11.07.2013, 18:44

Ну ведь и надо стремиться сделать как можно проще

@Super GT · 11.07.2013, 18:46 **[ТС]**

Черт, так и не понял, как это работает.

morgann55 · 11.07.2013, 18:49

Сообщение от Super GT

Черт, так и не понял, как это работает.

Если разность по модулю между i j меньше разности (m -1)
(исключаем из суммы когда (1,m) или (m,1))

@Super GT · 11.07.2013, 19:02 **[ТС]**

Это ясно, непонятно, почему побочные элементы игнорируются. По сути, если встречается первая строка и первый столбец, там все равно элемент суммируется...
Т.е. если взять матрицу
1 2 3 4
7 8 9 1
1 2 3 4
5 7 6 9
и сначала пояснить ту запись на примере 4-ки (жирной) - то да, правило соблюдается. Но если взять угловую единицу (подчеркнутую) - то правило также соблюдается.

Добавлено через 7 минут
исключаем из суммы когда (1,m) или (m,1)) => так ведь это для главной диагонали...

morgann55 · 11.07.2013, 19:06

Если (i=1 или j=1 или i=m или j=m) то вся скобка будет True ... И в тоже время не должно быть (1,m) (m,1)

На главной диагонали углы (1,1) (m,m)
http://www.fxyz.ru/%D1%84%D0%B... %86%D1%8B/

@Super GT · 11.07.2013, 19:17 **[ТС]**

Так-с...у нас абсолютное значение...
Другими словами, если взять матрицу 4х4 и рассматривать угловой верхний левый элемент, то после Abs(i - j) < (m - 1) имеем: 0 < 3
В этом случае "0" вообще что ли не воспринимается как некоторое целое, нужно именно "положительное" число?

morgann55 · 11.07.2013, 19:22

Ну ведь 0<3 будет True и значит ВСЁ условие будет выполнено.... Угол (0,0) войдёт в Сумму...
(стучи в скайп - чего здесь ЭТО обсуждать-то)

@Super GT · 11.07.2013, 19:26 **[ТС]**

А, все понял!!!

Забыл определение, и был уверен, что главная диагональ имеет вид "/", из-за этого и ступор.
Спасибо за разъяснение, надо ж было так ступить

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .

@Super GT 6 / 6 / 1 Регистрация: 23.12.2012 Сообщений: 131
	11.07.2013, 18:39 [ТС]
	morgann55, спасибо, разобрался! Abs(i - j) < (m - 1) - хитро вы эту штуку придумали. Я минут 5 пытался осмыслить, сходу и не догадаешься, ведь как-то просто все вышло. 0

morgann55 1365 / 207 / 37 Регистрация: 09.02.2012 Сообщений: 745
	11.07.2013, 18:44
	Ну ведь и надо стремиться сделать как можно проще 1

@Super GT 6 / 6 / 1 Регистрация: 23.12.2012 Сообщений: 131
	11.07.2013, 18:46 [ТС]
	Черт, так и не понял, как это работает. 0

@Super GT 6 / 6 / 1 Регистрация: 23.12.2012 Сообщений: 131
	11.07.2013, 19:02 [ТС]
	Это ясно, непонятно, почему побочные элементы игнорируются. По сути, если встречается первая строка и первый столбец, там все равно элемент суммируется... Т.е. если взять матрицу 1 2 3 4 7 8 9 1 1 2 3 4 5 7 6 9 и сначала пояснить ту запись на примере 4-ки (жирной) - то да, правило соблюдается. Но если взять угловую единицу (подчеркнутую) - то правило также соблюдается. Добавлено через 7 минут исключаем из суммы когда (1,m) или (m,1)) => так ведь это для главной диагонали... 0

morgann55 1365 / 207 / 37 Регистрация: 09.02.2012 Сообщений: 745
	11.07.2013, 19:06
	Если (i=1 или j=1 или i=m или j=m) то вся скобка будет True ... И в тоже время не должно быть (1,m) (m,1) На главной диагонали углы (1,1) (m,m) http://www.fxyz.ru/%D1%84%D0%B... %86%D1%8B/ 1

@Super GT 6 / 6 / 1 Регистрация: 23.12.2012 Сообщений: 131
	11.07.2013, 19:17 [ТС]
	Так-с...у нас абсолютное значение... Другими словами, если взять матрицу 4х4 и рассматривать угловой верхний левый элемент, то после Abs(i - j) < (m - 1) имеем: 0 < 3 В этом случае "0" вообще что ли не воспринимается как некоторое целое, нужно именно "положительное" число? 0

morgann55 1365 / 207 / 37 Регистрация: 09.02.2012 Сообщений: 745
	11.07.2013, 19:22
	Ну ведь 0<3 будет True и значит ВСЁ условие будет выполнено.... Угол (0,0) войдёт в Сумму... (стучи в скайп - чего здесь ЭТО обсуждать-то) 1

@Super GT 6 / 6 / 1 Регистрация: 23.12.2012 Сообщений: 131
	11.07.2013, 19:26 [ТС]
	А, все понял!!! Забыл определение, и был уверен, что главная диагональ имеет вид "/", из-за этого и ступор. Спасибо за разъяснение, надо ж было так ступить 0

Найти сумму элементов по периметру

Решение