kakkos
1

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

13.01.2014, 22:34. Показов 932. Ответов 1
Метки нет (Все метки)

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

Помогите кто понимает в этом
Очень нужна ваша помощь, буду очень благодарен
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.01.2014, 22:34
Ответы с готовыми решениями:

Для динамического массива подсчитать количество его отрицательных элементов с четным порядковым номером
Для динамического массива подсчитать количество его отрицательных элементов с четным порядковым...

Написать функцию для определения суммы положительных элементов одномерного массива
Написать функцию для определения суммы положительных элементов одномерного массива.

Найти наибольший элемент среди элементов массива с четным порядковым номером
Доброго времени суток. Племяннику в 9 классе по информатике дали следующие задания. Кто может...

Найти суммы четных элементов (элементов с четным номером) массива вещественных чисел A(22) и нечетных элементов
Здравствуйте, дорогие форумчане. Не могли бы вы мне помочь? Мне нужно составить программу с таким...

1
Почетный модератор
Эксперт HTML/CSSЭксперт PHP
16842 / 6720 / 880
Регистрация: 12.06.2012
Сообщений: 19,967
13.01.2014, 23:41 2
в VBA не шарю, помогу, чем могу:
Цитата Сообщение от kakkos Посмотреть сообщение
Разработать функцию для определения суммы чисел всех элементов одномерного массива с четным порядковым номером
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
Function GetSum(arr() As Integer)
    Dim sum As Integer
    
    sum = 0
    
    For i = 0 To UBound(arr) Step 2
        sum = sum + arr(i)
        MsgBox "Ýëåìåíò ¹" & i & " = " & arr(i)
    Next
    
    GetSum = sum
    
End Function
 
Sub Main()
    Dim arr(0 To 10) As Integer
    
    Randomize
    
    For i = 0 To 10
        arr(i) = Int((999 - 100 + 1) * Rnd + 100)
    Next
    
    MsgBox GetSum(arr())
    
End Sub
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.01.2014, 23:41
Помогаю со студенческими работами здесь

Найти сумму чисел с четным порядковым номером
вводить числа до тех пор пока очередное не окажется равно 0,найти сумму чисел с четным порядковым...

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

Написать функцию для определения количества элементов одномерного массива, кратных k
Написать функцию для определения количества элементов одномерного массива, кратных k.

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru