Все выпуски  

RFpro.ru: Программирование на Basic / VBA


РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты в разделе

Megaloman
Статус: Мастер-Эксперт
Рейтинг: 308
∙ повысить рейтинг »
Gluck
Статус: 6-й класс
Рейтинг: 220
∙ повысить рейтинг »
solowey
Статус: Профессор
Рейтинг: 95
∙ повысить рейтинг »

∙ Basic

Номер выпуска:1150
Дата выхода:17.01.2021, 21:45
Администратор рассылки:Андреенков Владимир (Академик)
Подписчиков / экспертов:15 / 14
Вопросов / ответов:1 / 1

Консультация # 200085: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: составить программу и начертить блок схему к заданиям 1)Дан массив чисел Q(1051). Вычислить среднее арифмитическое значение нечетных элементов кратных 7 2)В квадратной матрице порядка N найти в каждом столбце количество элементов превышающих число 5,7...

Консультация # 200085:

Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: составить программу и начертить блок схему к заданиям
1)Дан массив чисел Q(1051). Вычислить среднее арифмитическое значение нечетных элементов кратных 7
2)В квадратной матрице порядка N найти в каждом столбце количество элементов превышающих число 5,7

Дата отправки: 12.01.2021, 21:18
Вопрос задал: NIKOLAI Shilcev (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Megaloman (Мастер-Эксперт):

Здравствуйте, NIKOLAI Shilcev!
У меня есть только VBS -он стандартно присутствует в системе (скопируйте код, сохраните его в файл с расширением vbs, запустите на выполнение).

Option Explicit

Const N = 1051          'Размерность массива
Const MinQ = -1000      'Значение минимального элемента массива
Const MaxQ = 1000       'Значение максимального элемента массива
Const Mult = 7          'Значение кратности

ReDim Q(N)
Dim i, Qsum

Randomize
For i = 0 To N      ' Определение элементов массива случайными числами
    Q(i) = Int((MaxQ - MinQ + 1) * Rnd + MinQ)
Next

Qsum = 0
For i = 1 To N Step 2   ' Подсчет суммы нечетных элементов кратных заданной величине
    If Q(i) Mod Mult = 0 Then Qsum = Qsum + Q(i)
Next

Qsum = Qsum / Int((N + 1) / 2)  'Среднее значение нечетных элементов массива кратных заданной величине

MsgBox "Среднее значение" + vbCrLf + "нечетных элементов массива" + vbCrLf + "кратных  " + CStr(Mult) + "=    " + CStr(Qsum)

Option Explicit

Const N = 20            'Размерность матрицы
Const P = 5.7           'Граничное значение
Const MinQ = 0          'Значение минимального элемента массива
Const MaxQ = 10         'Значение максимального элемента массива

Dim M, i, j, Summ, QP

M = N - 1
ReDim Q(M, M)

Randomize
For i = 0 To M      ' Определение элементов массива случайными числами
    For j = 0 To M
        Q(i, j) = (MaxQ - MinQ + 1) * Rnd + MinQ
    Next
Next

QP = "Подсчет кол-ва элементов в столбцах > " + CStr(P) + vbCrLf

For i = 0 To M      ' Подсчет кол-ва элементов в столбцах > P
    Summ = 0
    For j = 0 To M
        If Q(j, i) > P Then Summ = Summ + 1
    Next
    QP = QP + vbCrLf + "Столбец= " + CStr(i + 1) + vbTab + "Количество= " + CStr(Summ)
Next

MsgBox QP


Консультировал: Megaloman (Мастер-Эксперт)
Дата отправки: 16.01.2021, 23:44
Рейтинг ответа:

НЕ одобряю +2 одобряю!


Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!


В избранное