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

Обсуждение

давно
Megaloman
Модератор
137394
1850
13.01.2021, 00:33
общий
Адресаты:
О каком варианте/версии Basic идёт речь?
Об авторе:
Понеже не словес красных бог слушает, но дел наших хощет
в сети
Сергей Фрост
Управляющий
143894
2148
13.01.2021, 14:59
общий
Адресаты:
Когда-то, на заре своей юности, программировал на бейсике (тогда он был просто бейсиком).
Сейчас с удивлением узнал, что под язык разработали более 40 интерпритаторов, а официальных реализаций языка 35.
Неужели, все они так сильно отличаются друг от друга? Я еще могу поверить, что первые версии языка разительно будут отличаться от поздних...
Об авторе:
Устав – есть устав! Если ты устав – то отдыхай!
в сети
Сергей Фрост
Управляющий
143894
2148
13.01.2021, 17:08
общий
Адресаты:
Как видимо, посетитель не желает отвечать на ваш вопрос: думаю, можете смело давать ответ, как посчитаете нужным.
Об авторе:
Устав – есть устав! Если ты устав – то отдыхай!
давно
Megaloman
Модератор
137394
1850
13.01.2021, 17:26
общий
13.01.2021, 17:29
Адресаты:
определим систему координат: просят решить контрольный пример. А что в учебном заведении культивируется в процессе обучения - так наука умеет много гитик. Надо соответствовать.
Дан массив .... как дан? В матрице ... - откуда взялось? Понимаю, что придется какой-то рандом прикручивать.
Об авторе:
Понеже не словес красных бог слушает, но дел наших хощет
давно
Megaloman
Модератор
137394
1850
16.01.2021, 23:44
общий
это ответ
Здравствуйте, 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


Об авторе:
Понеже не словес красных бог слушает, но дел наших хощет
Форма ответа