Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.12.2017, 20:35   #1
valperamus
Новичок
Джуниор
 
Регистрация: 04.12.2017
Сообщений: 5
Восклицание Среднее арефметическое всех непарних номеров

Вообщем есть формулы, только не знаю где считать среднее арифметическое и по какому коду.
Помогите)
valperamus вне форума Ответить с цитированием
Старый 04.12.2017, 22:07   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Чего?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 04.12.2017, 22:28   #3
valperamus
Новичок
Джуниор
 
Регистрация: 04.12.2017
Сообщений: 5
По умолчанию

Среднее арифметическое всех нечетных чисел, допустим чисел n надо найти среднее арифметическое именно нечетных из этих 30.
valperamus вне форума Ответить с цитированием
Старый 04.12.2017, 22:41   #4
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Напиши ввод N чисел, а дальше помогу.
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 04.12.2017, 22:58   #5
valperamus
Новичок
Джуниор
 
Регистрация: 04.12.2017
Сообщений: 5
По умолчанию

Sub rgr3()
Dim A(1 To 30) As Integer
Dim n As Integer
Dim i As Integer
n = 30
n = InputBox("количество елементов")
For i = 1 To n
If A(i) >= 0 & A(i) Mod 2 = 1 Then Sum = Sum + A(i)
A(i) = InputBox("значения елемента A(" + Str(i) + ")=")
Next i
MsgBox ("сума всех не парних=" + Str(Sum))
End S


Должно быть по идеи как-то так, но сума почему-то равна 0 и каждое значение A(i) приходится вводить вручную, а надо бы автомат)
Ах да, это примерно вычисление сумы а надо арифметическое число.

Последний раз редактировалось valperamus; 04.12.2017 в 23:00.
valperamus вне форума Ответить с цитированием
Старый 04.12.2017, 22:58   #6
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

да с такими-то кодами можно всех посчитать не только непарных!
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 04.12.2017, 23:05   #7
valperamus
Новичок
Джуниор
 
Регистрация: 04.12.2017
Сообщений: 5
По умолчанию

подскажите?
valperamus вне форума Ответить с цитированием
Старый 04.12.2017, 23:20   #8
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

Сумма k членов прогрессии 1,3,5,... это k*k. Число членов прогрессии, не превосходящих n равно (n+1)\2. Итого
Код:
Sub rgr3()
Dim n As Long
  n = InputBox("количество елементов")
  MsgBox "сума всех не парних= " & ((n + 1) \ 2) ^ 2
End Sub
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Старый 04.12.2017, 23:23   #9
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:

Sub rgr3()
    Dim A() As Integer
    Dim n As Integer
    Dim i As Integer
    Dim Sum As Double
    Dim C As Integer
    Dim s As String
    n = InputBox("Кількість елементів", , 30)
    ReDim A(1 To n)
    For i = 1 To n
        A(i) = Int(11) * Rnd - 10
        s = s & A(i) & ", "
        If A(i) Mod 2 <> 0 Then
             Sum = Sum + A(i)
            C = C + 1
        End If
    Next i
    s = Mid(s, 1, Len(s) - 2)
    If C > 0 Then
        Sum = Sum / C
        MsgBox (s & vbNewLine & "Середнє непарних =" & Sum)
    Else
        MsgBox ("Жодне число не задовільняє умови")
    End If
End Sub
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 04.12.2017, 23:37   #10
valperamus
Новичок
Джуниор
 
Регистрация: 04.12.2017
Сообщений: 5
По умолчанию

Спасибо огромное. Если не затруднит можете описать или сказать что поменять если n=300
Что значит: ReDim.Int.Rnd.Mid.Len.vbNewLine

Последний раз редактировалось valperamus; 04.12.2017 в 23:47.
valperamus вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
SQL-запрос для вывода всех табельных номеров сотрудников Mitzzz SQL, базы данных 2 28.03.2017 17:37
[C++]: Даны три числа. Если сумма двух наименьших из них больше третьего, найти среднее геометрическое всех трех чисел, иначе - среднее арифметическое LanaTsvik Помощь студентам 2 08.10.2016 15:05
Найти среднее арифметическое номеров максимального и минимального элементов в массивах В(18) и Р(14). Amaday Помощь студентам 2 10.12.2012 18:12
Найти среднее арифметическое номеров максимального и минимального элементов в массивах В(18) и Р(14). Amaday Паскаль, Turbo Pascal, PascalABC.NET 0 09.12.2012 15:39