Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 24.12.2010
Сообщений: 14
1

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

24.12.2010, 20:01. Просмотров 903. Ответов 9
Метки нет (Все метки)

Люди, помогите написать программу, очень срочно!!!!(((((((((
Дан массив А(n), найти произведение нечетных номеров элементов массива, значения которых принадлежит интервалу [2,5;4,5]
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.12.2010, 20:01
Ответы с готовыми решениями:

Вычислить среднее арифметическое нечетных элементов массива, значения которых принадлежат заданному интервалу
Вычислить среднее арифметическое нечетных элементов массива А (25), числовые значения которых...

Найти произведение номеров нечетных элементов массива
Найти произведение номеров нечетных элементов массива А=(1,2,3,4,5,6,7,8,9,10,11) Добавлено...

Найти количество элементов массива, числовые значения которых принадлежат заданному интервалу
Найти количество элементов массива В (15), числовые значения которых принадлежат интервалу

Определить число элементов массива, значение каждого из которых принадлежит интервалу -20 ..+20
Задан одномерный целый массив A, количество элементов которого не определено, но указан конец...

9
Заблокирован
24.12.2010, 20:48 2
Виолеточка,
как заполнить массив (с помощью Inputbox или с помощью генератора случайных чисел)?
0
0 / 0 / 0
Регистрация: 24.12.2010
Сообщений: 14
24.12.2010, 20:49  [ТС] 3
с помощью Inputbox
0
Заблокирован
24.12.2010, 21:02 4
Есть правки.
0
0 / 0 / 0
Регистрация: 24.12.2010
Сообщений: 14
24.12.2010, 21:06  [ТС] 5
Какие?
0
Заблокирован
24.12.2010, 21:07 6
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub m_1()
Dim A(1 To 5) As Single
Dim i As Byte
Dim Произведение As Single
Dim Количество As Byte
Произведение = 1
For i = 1 To 5
    A(i) = Val(InputBox("Введите значение для элемента массива. Дробные числа вводите, используя точку."))
Next i
For i = 1 To 5 Step 2
    If A(i) >= 2.5 And A(i) <= 4.5 Then
        Произведение = Произведение * A(i)
        Количество = Количество + 1
    End If
Next i
If Количество = 0 Then
    MsgBox "Данных, соответствующих заданным условиям, нет"
Else
    MsgBox "Произведение равно: " & Произведение
End If
End Sub
0
0 / 0 / 0
Регистрация: 24.12.2010
Сообщений: 14
24.12.2010, 21:09  [ТС] 7
Спасибо большое
0
729 / 405 / 95
Регистрация: 19.12.2010
Сообщений: 756
24.12.2010, 21:34 8
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'Дан массив А(n), найти произведение нечетных номеров элементов массива,
'значения которых принадлежит интервалу [2,5;4,5]
Dim a(1 To 10) As Single
Dim pr As Integer
pr = 1
For i = 1 To 10
a(i) = Rnd() * 5 + 1
Cells(1, i) = a(i)
Next i
For i = 1 To 10 Step 1
If a(i) > 2.5 And a(i) < 4.5 Then
pr = pr * i
Cells(3, i) = i
End If
Next i
Cells(1, 11) = "pr="
Cells(1, 12) = pr
0
Заблокирован
24.12.2010, 21:45 9
Visual Basic
1
a(i) > 2.5 And a(i) < 4.5
Уверен, что неравенства строгие?
0
0 / 0 / 0
Регистрация: 24.12.2010
Сообщений: 14
24.12.2010, 22:04  [ТС] 10
Нестрогие
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.12.2010, 22:04

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Возвести в квадрат те элементы матрицы, модуль значения которых принадлежит интервалу
Помогите написать подпрограммы к этой задаче и блок-схему Ввести двумерный массив АNxM, вывести...

Для массива найти произведение элементов, значения которых не лежат в пределах [2; 8]
написать программу на языке delphi (pascal) Для массива с1,с2...с30 найти произведение...

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

Найти произведение элементов массива, принадлежащих интервалу
Ввести одномерный массив A , вывести его. Найти произведение его элементов, принадлежащих интервалу...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.