0 / 0 / 0
Регистрация: 18.11.2020
Сообщений: 68
1

Вычислить среднее геометрическое нечётных чисел , стоящих на нечётных местах

13.12.2020, 17:37. Показов 3712. Ответов 10
Метки нет (Все метки)

помогите пожалуйста
какую программу написать для вычисления среднего геометрического нечётных чисел, стоящих на нечётных местах?
например если исходные данные это A,B,C,D,E,F
получается программа должна считать среднее геометрическое A,C,E при том что они должны быть нечётными, не понимаю как это сделать

на фото программа только для вычисления чётных чисел, стоящих на чётных местах,как переделать чтобы считало нечётные , на нечётных местах, подскажите пожалуйста
Миниатюры
Вычислить среднее геометрическое нечётных чисел , стоящих на нечётных местах  
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.12.2020, 17:37
Ответы с готовыми решениями:

Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах
Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах, и определить ...

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

Вычислить среднее геометрическое нечетных чисел в массиве
Вычислить среднее геометрическое нечетных чисел в массиве,заданном случайным образом в интервале

Найти среднее арифметическое элементов, стоящих на нечетных местах
Помогите можалуйста :( написать программу на qbasic и блок схему: Найти среднее арифметическое...

10
1762 / 1094 / 336
Регистрация: 11.07.2014
Сообщений: 3,868
13.12.2020, 18:49 2
Dora77, ну чуть-чуть извилины задействовать. Если A mod 2 =0 это для чётных, значит A mod 2 <> 0 признак нечётности числа
0
0 / 0 / 0
Регистрация: 18.11.2020
Сообщений: 68
21.12.2020, 17:35  [ТС] 3
Burk, так а что нужно поменять чтобы работало с нечетными, я не понимаю просто, подскажите пожалуйста
0
1762 / 1094 / 336
Регистрация: 11.07.2014
Сообщений: 3,868
21.12.2020, 18:32 4
Dora77, а вас не затруднит написать определение среднего геометрического?
0
0 / 0 / 0
Регистрация: 18.11.2020
Сообщений: 68
21.12.2020, 18:37  [ТС] 5
Burk, Средним геометрическим нескольких положительных вещественных чисел называется такое число, которым можно заменить каждое из этих чисел так, чтобы их произведение не изменилось
0
2455 / 1538 / 710
Регистрация: 23.03.2015
Сообщений: 4,881
21.12.2020, 21:21 6
Лучший ответ Сообщение было отмечено Dora77 как решение

Решение

Dora77,

С наступающим...
Кликните здесь для просмотра всего текста

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
33
Sub NNN()
Dim A As Integer, B As Integer, C As Integer, D As Integer, E As Integer, F As Integer
Dim ARR(1 To 6) As Integer
Dim Product As Integer, Counter As Integer, AV As Double
Randomize
 
'присвоим числам случайные значения
 A = Int(10 * Rnd + 1)
 B = Int(10 * Rnd + 1)
 C = Int(10 * Rnd + 1)
 D = Int(10 * Rnd + 1)
 E = Int(10 * Rnd + 1)
 F = Int(10 * Rnd + 1)
' "пихнем "  эти числа в массив
ARR(1) = A
ARR(2) = B
ARR(3) = C
ARR(4) = D
ARR(5) = E
ARR(6) = F
'_____________________________________________________________
Product = 1 'переменная для произведения нечетных чисел
For i = 1 To 6 Step 2 ' цикл по нечнтным элементам массива  ( шаг=2) сначала i=1, потом  i=1+2=3 и т.д.
    Counter = Counter + 1  ' зто счетчик нечетных мест
    If ARR(i) Mod 2 > 0 Then
    Product = Product * ARR(1)
    End If
    AV = Product / Counter
Next
'__________________________________________
MsgBox ("среднее геометрическое нечётных чисел из ряда " & A & "; " & B & "; " & C & "; " & D & "; " & E & "; " & F & " ," & Chr(13) & " стоящих на нечётных местах =" & AV)
 
End Sub
0
0 / 0 / 0
Регистрация: 18.11.2020
Сообщений: 68
21.12.2020, 21:50  [ТС] 7
Narimanych, спасибо большое!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!
0
2455 / 1538 / 710
Регистрация: 23.03.2015
Сообщений: 4,881
21.12.2020, 22:00 8
Лучший ответ Сообщение было отмечено Dora77 как решение

Решение

Dora77,
Цитата Сообщение от Dora77 Посмотреть сообщение
спасибо большое!!!!!!!!!!
С новым годом


Не по теме:


Берегите себя

0
0 / 0 / 0
Регистрация: 18.11.2020
Сообщений: 68
21.12.2020, 22:19  [ТС] 9
Narimanych, а что нужно исправить в прикрепленной фотографии, чтобы работало, просто это задание мне в середину программы вставить надо, подскажите пожалуйста, если не сложно
0
2455 / 1538 / 710
Регистрация: 23.03.2015
Сообщений: 4,881
21.12.2020, 22:44 10
Лучший ответ Сообщение было отмечено Dora77 как решение

Решение

Dora77,

У вас на картинке ус отклеился один "end if" -лишний..
Вот вам новая картинка...
Миниатюры
Вычислить среднее геометрическое нечётных чисел , стоящих на нечётных местах  
0
0 / 0 / 0
Регистрация: 18.11.2020
Сообщений: 68
21.12.2020, 22:47  [ТС] 11
Narimanych, спасибо!!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.12.2020, 22:47
Помогаю со студенческими работами здесь

Вычислить сумму элементов матрицы, стоящих на нечетных местах
Дан вектор Х(n), вычислить сумму элементов, стоящих на нечетных местах. Обьясните или покажите как...

Подсчитать количество чисел, стоящих на нечётных местах, и вычислить среднее арифметическое чисел, меньших заданного X
Подсчитать количество чисел, стоящих на нечётных местах, и вычислить среднее арефметическое чисел,...

Среднее арифметическое чисел, стоящих на нечетных местах .
Дан одномерный массив D, состоящий из N элементов. Найти среднее арифметическое чисел, стоящих на...

Найти среднее арифметическое положительных чисел матрицы, стоящих на нечётных местах
Дан одномерный массив A(n). Найти среднее арифметическое положительных чисел, стоящих на нечётных...

Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах
Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах , и подсчитать...

Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах
Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах, и определить...


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

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

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