|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.12.2017, 20:35 | #1 |
Новичок
Джуниор
Регистрация: 04.12.2017
Сообщений: 5
|
Среднее арефметическое всех непарних номеров
Вообщем есть формулы, только не знаю где считать среднее арифметическое и по какому коду.
Помогите) |
04.12.2017, 22:07 | #2 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Чего?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
04.12.2017, 22:28 | #3 |
Новичок
Джуниор
Регистрация: 04.12.2017
Сообщений: 5
|
Среднее арифметическое всех нечетных чисел, допустим чисел n надо найти среднее арифметическое именно нечетных из этих 30.
|
04.12.2017, 22:41 | #4 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Напиши ввод N чисел, а дальше помогу.
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
04.12.2017, 22:58 | #5 |
Новичок
Джуниор
Регистрация: 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. |
04.12.2017, 22:58 | #6 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
да с такими-то кодами можно всех посчитать не только непарных!
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
04.12.2017, 23:05 | #7 |
Новичок
Джуниор
Регистрация: 04.12.2017
Сообщений: 5
|
подскажите?
|
04.12.2017, 23:20 | #8 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Сумма k членов прогрессии 1,3,5,... это k*k. Число членов прогрессии, не превосходящих n равно (n+1)\2. Итого
Код:
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
04.12.2017, 23:23 | #9 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
04.12.2017, 23:37 | #10 |
Новичок
Джуниор
Регистрация: 04.12.2017
Сообщений: 5
|
Спасибо огромное. Если не затруднит можете описать или сказать что поменять если n=300
Что значит: ReDim.Int.Rnd.Mid.Len.vbNewLine Последний раз редактировалось valperamus; 04.12.2017 в 23:47. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
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 |