Как посчитать две суммы элементов матрицы в шахматном порядке

@Ritochka94 · Регистрация: 17.05.2013

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

у меня вот такая задачка: дан двухмерный массив чисел n строк m столбцов задается пользователем но не более чем 10 на 10..Написать программу которая считает две суммы чисел клеток в шахматном порядке. Можно даже не сам код, а просто словесное описание, буду очень благодарна, заранее спасибо. Ecxel + VBA

toiai · 17.12.2013, 20:37

А что-же у Вас не получается?

Добавлено через 1 час 9 минут
Интересно было, вот и получилось:

Visual Basic

Sub SumShahmat()
    Dim n&, a&(), i&, k&, j&, s&()
    n = InputBox("Ñòðîê?")
    m = InputBox("Êîëîíîê?")
    ReDim a(1 To n, 1 To m)
    ReDim s(1 To 2) 'ìàññèâ ñóìì
    Cells.Clear
    Randomize
    For i = 1 To n
        For j = 1 To m
            a(i, j) = Int(100 * Rnd) + 1
        Next
    Next
    Cells(1, 1).Resize(n, m) = a
    For k = 1 To UBound(s)
        For i = 1 To n
            If k Mod 2 = 0 Then
                jTop = IIf(i Mod 2 = 0, 1, 2)
            Else
                jTop = IIf(Not i Mod 2 = 0, 1, 2)
            End If
            For j = jTop To m Step 2
                s(k) = s(k) + a(i, j)
            Next
        Next
    Next
    Cells(1, 1).Offset(n + 1, 0).Resize(1, UBound(s)) = s
End Sub

@Ritochka94 · 18.12.2013, 13:22 **[ТС]**

Спасибо:*

@Ritochka94 3 / 3 / 0 Регистрация: 17.05.2013 Сообщений: 58
		1
	Как посчитать две суммы элементов матрицы в шахматном порядке 17.12.2013, 15:57. Показов 1052. Ответов 2 Метки нет (Все метки) у меня вот такая задачка: дан двухмерный массив чисел n строк m столбцов задается пользователем но не более чем 10 на 10..Написать программу которая считает две суммы чисел клеток в шахматном порядке. Можно даже не сам код, а просто словесное описание, буду очень благодарна, заранее спасибо. Ecxel + VBA 0

@Ritochka94 3 / 3 / 0 Регистрация: 17.05.2013 Сообщений: 58
	18.12.2013, 13:22 [ТС]	3
	Спасибо:* 0