Найти сумму элементов четных и нечетных строк матрицы

@nikolaj008 · Регистрация: 29.10.2015

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

Помогите с написание кода програмы.)
Дана матрица (4 ряда, 6 столбцов), найти суму элементов четных и нечетных строк.
Код для Visual Basic.
Спасибо!)

@Kapytan · 07.11.2015, 10:33

Visual Basic

Sub Matr()
Dim M(1 To 4, 1 To 6) As Integer, s1 As Integer, s2 As Integer
Cls
Form1.Font = "Courier New"
Randomize Timer
s1 = 0: s2 = 0
For i = 1 To 4
For j = 1 To 6
   M(i, j) = 80 * Rnd - 40
   T = Space(3 - Len(Trim(Str(M(i, j))))) & Trim(Str(M(i, j)))
   Print "  " & T;
   If i Mod 2 = 0 Then
        s1 = s1 + M(i, j)
        Else
        s2 = s2 + M(i, j)
   End If
Next j: Print
Next i
Print "Сумма элементов четных строк = " & s1
Print "Сумма элементов нечетных строк = " & s2
End Sub

echs · 07.11.2015, 10:46

Что-то так

Visual Basic

Dim A(1 To 4, 1 To 6)
Dim B(1 To 4)
 
For i=1 To 4
For j=1 To 6
   A (i, j)=10*Rnd
Next j
Next i
 
For i=1 To 4
For j=1 To 6
   B(i)=B(i)+A (i, j)
Next j
Next i

Добавлено через 7 минут
Kapytan,
Я неправильно понял условие, но мой код можно
поправить. Надо добавить строки

Visual Basic

1 2	S1= B(1)+B(3) S1= B(2)+B(4)

@Kapytan · 07.11.2015, 11:08

geh, а как увидеть исходную матрицу и результаты?

echs · 07.11.2015, 11:28

Kapytan,
Вы правы. Я как-то упустил и это.
Спасибо!
PS
Что-то я много в этой теме сделал упущений

@Alex77755 · 07.11.2015, 12:05

Не по теме:

geh, а как увидеть исходную матрицу и результаты?

А такого вопроса не стояло!
:D

@Kapytan · 07.11.2015, 13:11

Не по теме:

Сообщение от Alex77755

А такого вопроса не стояло!

А я и не утверждал, что это обязательно.

@nikolaj008 5 / 5 / 3 Регистрация: 29.10.2015 Сообщений: 103
		1
	Найти сумму элементов четных и нечетных строк матрицы 06.11.2015, 23:27. Показов 2183. Ответов 6 Метки нет (Все метки) Помогите с написание кода програмы.) Дана матрица (4 ряда, 6 столбцов), найти суму элементов четных и нечетных строк. Код для Visual Basic. Спасибо!) 0

@Kapytan 133 / 148 / 64 Регистрация: 27.06.2013 Сообщений: 536
	07.11.2015, 11:08	4
	geh, а как увидеть исходную матрицу и результаты? 1

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	07.11.2015, 11:28	5
	Kapytan, Вы правы. Я как-то упустил и это. Спасибо! PS Что-то я много в этой теме сделал упущений 0

@Alex77755
	07.11.2015, 12:05 #6
	Не по теме: geh, а как увидеть исходную матрицу и результаты? А такого вопроса не стояло! :D 0

@Kapytan
	07.11.2015, 13:11 Найти сумму элементов четных и нечетных строк матрицы #7
	Не по теме: Сообщение от Alex77755 А такого вопроса не стояло! А я и не утверждал, что это обязательно. 0

Опции темы