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

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

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

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

Visual Basic

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

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 **[ТС]**

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

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

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

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

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

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

morgann55 1365 / 207 / 37 Регистрация: 09.02.2012 Сообщений: 745
	11.07.2013, 18:49	6
	Сообщение от Super GT Черт, так и не понял, как это работает. Если разность по модулю между i j меньше разности (m -1) (исключаем из суммы когда (1,m) или (m,1)) 1

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

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

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

Решение