Найти сумму элементов, стоящих на четных местах из n элементов

@21monstarvgta · Регистрация: 29.12.2014

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

Добрый вечер нужна ваша помощь по VBA. Найти сумму элементов, стоящих на четных местах из n элементов. У меня никак не выходит.

@Vlad999 · 01.03.2015, 17:43

название темы очень информационное.

Сообщение от 21monstarvgta

У меня никак не выходит.

ваши попытки покажите.

@Hugo121 · 01.03.2015, 17:45

Visual Basic

    For Each el In x
        If считаем Then сумма = сумма + el
        считаем = Not считаем
    Next
    MsgBox сумма

@21monstarvgta · 01.03.2015, 17:55 **[ТС]**

Visual Basic

Sub ololo()
Dim m As Single
s = 0
n = InputBox("Ââåäèòå n")
For i = 1 To n
If i Mod 2 = 0 Then
s = s + i
End If
Next i
MsgBox ("ñóììà ÷åòíûõ = " + Str(s))
End Sub

Вот такое чудо у меня получилось в итоге. Укажите на ошибки если не трудно.

toiai · 01.03.2015, 17:59

Неправильно понял

@Hugo121 · 01.03.2015, 18:01

Ну я бы в конце повыкидывал лишнее, достаточно

Visual Basic

1	MsgBox "сумма четных = " & s

А по задаче - неужели там нигде не написано что это за " элементов, стоящих"?

@21monstarvgta · 01.03.2015, 18:12 **[ТС]**

Найти сумму элементов, стоящих на четных местах из n элементов.
Это действительно все условие задачи! А вот +Str понятное дело я исправил на & s

Добавлено через 7 минут
Вроде с таким условием я написал все верно. Вот только не ясно нужно ли вводить n т.к. по условию оно не дано.

@Hugo121 · 01.03.2015, 18:13

Ну обычно перебирают элементы какого-то массива, и суммируют значения этих элементов, а не их индексы/номера.

@21monstarvgta · 01.03.2015, 18:17 **[ТС]**

у меня это 3 лаба по vba , не могли бы вы подсказать как перебирать именно элементы массива.

@Hugo121 · 01.03.2015, 18:24

Visual Basic

1	s = s + массив(i)

Ну и в моём примере суммируются именно элементы массива x.
Вообще я не спец по лабам, так что я пас. Но уверен что если поискать - тут на форуме давно всё уже решено.

@21monstarvgta · 03.03.2015, 20:25 **[ТС]**

Все ребята , я разрулил ,

Visual Basic

Sub ololo()
Dim m As Single
Dim x As Single
x = 0
n = InputBox("Ââåäèòå êîëè÷åñòâî n ýëåìåíòîâ ")
For i = 1 To n
x = InputBox("Ââåäèòå ýëåìåíò ")
If i Mod 2 = 0 Then
s = s + x
End If
Next i
MsgBox ("ñóììà ÷åòíûõ = " & s)
End Sub

прикол в том что сам элемент тоже нужно задавать .

@Hugo121 · 03.03.2015, 21:11

И то верно - нафига тут вообще массив? Элементы они такие - они могут и так, голышом постоять, без всякой периодической системы... Раз элемент, два элемент...

@21monstarvgta 2 / 2 / 0 Регистрация: 29.12.2014 Сообщений: 22
		1
	Найти сумму элементов, стоящих на четных местах из n элементов 01.03.2015, 17:18. Показов 4375. Ответов 11 Метки нет (Все метки) Добрый вечер нужна ваша помощь по VBA. Найти сумму элементов, стоящих на четных местах из n элементов. У меня никак не выходит. 0

@Vlad999 3927 / 2324 / 786 Регистрация: 02.11.2012 Сообщений: 6,175
	01.03.2015, 17:43	2
	название темы очень информационное. Сообщение от 21monstarvgta У меня никак не выходит. ваши попытки покажите. 0

toiai 3218 / 967 / 223 Регистрация: 29.05.2010 Сообщений: 2,087
	01.03.2015, 17:59	5
	Неправильно понял 0

@21monstarvgta 2 / 2 / 0 Регистрация: 29.12.2014 Сообщений: 22
	01.03.2015, 18:12 [ТС]	7
	Найти сумму элементов, стоящих на четных местах из n элементов. Это действительно все условие задачи! А вот +Str понятное дело я исправил на & s Добавлено через 7 минут Вроде с таким условием я написал все верно. Вот только не ясно нужно ли вводить n т.к. по условию оно не дано. 0

@Hugo121 6958 / 2861 / 550 Регистрация: 19.10.2012 Сообщений: 8,742
	01.03.2015, 18:13	8
	Ну обычно перебирают элементы какого-то массива, и суммируют значения этих элементов, а не их индексы/номера. 1

@21monstarvgta 2 / 2 / 0 Регистрация: 29.12.2014 Сообщений: 22
	01.03.2015, 18:17 [ТС]	9
	у меня это 3 лаба по vba , не могли бы вы подсказать как перебирать именно элементы массива. 0

@Hugo121 6958 / 2861 / 550 Регистрация: 19.10.2012 Сообщений: 8,742
	03.03.2015, 21:11	12
	И то верно - нафига тут вообще массив? Элементы они такие - они могут и так, голышом постоять, без всякой периодической системы... Раз элемент, два элемент... 0

Найти сумму элементов, стоящих на четных местах из n элементов

Решение