Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.95/21: Рейтинг темы: голосов - 21, средняя оценка - 4.95
flinn
0 / 0 / 0
Регистрация: 19.05.2011
Сообщений: 6
1

Вычисления суммы всех элементов для заданного двумерного массива

24.05.2011, 19:29. Просмотров 4125. Ответов 1
Метки нет (Все метки)

1) написать процедуру вычисления суммы всех элементов для заданного двумерного массива А состоящего из 5-ти строк и 6-ти столбцов .
2) задан одномерный массив размером N . сформировать два массива размером N\2, включая первый элемент исходного массива с четными индексами , а во второй с нечетными . вычислить суммы элементов каждого из массивов .
взмоляю о помощи !
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.05.2011, 19:29
Ответы с готовыми решениями:

Составьте программу вычисления суммы элементов двумерного массива
1) Составьте программу вычисления суммы тех положительных Элементов двумерного массива А, которые...

Разработать функцию для определения суммы чисел всех элементов одномерного массива с четным порядковым номером
/VBA/ Разработать функцию для определения суммы чисел всех элементов одномерного массива с четным...

Написать процедуру для вычисления суммы положительных элементов
написать процедуру для вычисления суммы положительных элементов, заданного массива А,состоящего из...

Написать процедуру вычисления суммы всех элементов для заданного двумерного массива A
Написать процедуру вычисления суммы всех элементов для заданного двумерного массива A состоящего из...

Требуется программка для вычисления суммы всех элементов массива
Требуется программка для вычисления суммы всех элементов массива A, которые меньше числа L

1
Busine2009
Заблокирован
25.05.2011, 08:43 2
Код 1:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub P1()
Dim A(1 To 5, 1 To 6) As Double
Dim i As Integer, j As Integer
Dim Сумма As Double
'Заполняем массив числами из Excel с активного листа (это тот, который открыт).
For i = 1 To 5 Step 1
    For j = 1 To 6 Step 1
        A(i, j) = Cells(i, j).Value
    Next j
Next i
'Собственно решение задачи.
For i = 1 To 5 Step 1
    For j = 1 To 6 Step 1
        Сумма = Сумма + A(i, j)
    Next j
Next i
'Выводим результат на монитор компьютера.
MsgBox Сумма
End Sub

Код 2:
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
27
28
29
30
31
32
Sub P2()
Dim Массив(1 To 10) As Double
Dim Нечётный(1 To 5) As Double, Чётный(1 To 5) As Double
Dim i As Integer, j As Integer
Dim СуммаНечётный As Double, СуммаЧётный As Double
'Просто заполняем из Excel Массив, чтобы было с чем работать.
'Заполняем с первого листа.
For i = 1 To 10 Step 1
    Массив(i) = Worksheets(1).Cells(i, 1).Value
Next i
'Заполняем массив Нечётный нечётными элементами и сразу подсчитываем сумму.
For i = 1 To 10 Step 2
    j = j + 1
    Нечётный(j) = Массив(i)
    СуммаНечётный = СуммаНечётный + Массив(i)
Next i
j = 0
'Заполняем массив Чётный чётными элементами и сразу подсчитываем сумму.
For i = 2 To 10 Step 2
    j = j + 1
    Чётный(j) = Массив(i)
    СуммаЧётный = СуммаЧётный + Массив(i)
Next i
'Выводим нечётные и чётные массивы на разные листы Excel (чтобы проще было).
For i = 1 To 5 Step 1
    Worksheets(2).Cells(i, 1).Value = Нечётный(i)
    Worksheets(3).Cells(i, 1).Value = Чётный(i)
Next i
'Выводим суммы на монитор.
MsgBox "Сумма в нечётном массиве: " & СуммаНечётный
MsgBox "Сумма в чётном массиве: " & СуммаЧётный
End Sub
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.05.2011, 08:43

Составить программу для вычисления суммы всех элементов массива, имеющих четный индекс
В общем, нужно мне составить программу решения задачи. Задача: Задать случайным образом из...

Программа вычисления суммы положительных элементов двумерного массива
Возникли трудности с решением задачи: "Составьте программу вычисления суммы тех положительных...

Вычисления суммы тех положительных элементов двумерного массива
нужно составить программу вычисления суммы тех положительных элементов двумерного массива А,которые...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.