Все выпуски  

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


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

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

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

∙ Basic

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

Консультация # 200087: Здравствуйте! У меня возникли сложности с таким вопросом:Нужно написать программу basic и составить блок схему по 18 варианту...

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

Здравствуйте! У меня возникли сложности с таким вопросом:Нужно написать программу basic и составить блок схему по 18 варианту

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


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

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

Option Explicit

Const N = 125           'Значение верхней границы массива
Const MinQ = -123.45    'Значение минимального элемента массива
Const MaxQ = 678.9      'Значение максимального элемента массива

Dim i, LMax, LMin, iMax, iMin
ReDim L(N)

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

LMax = L(0)
iMax = 0

LMin = L(0)
iMin = 0

For i = 0 To N      ' Определение минимального и максимального элемента массива и их значений
    If L(i) >= LMax Then
        LMax = L(i)
        iMax = i
    End If
    
    If L(i) < LMin Then
        LMin = L(i)
        iMin = i
    End If
Next

MsgBox "В массиве L (верхняя граница размерности=" + CStr(N) + ")" + vbCrLf + vbCrLf + _
    "элемент " + CStr(iMin) + vbTab + "=" + CStr(LMin) + " (минимальный)" + vbCrLf + _
    "элемент " + CStr(iMax) + vbTab + "=" + CStr(LMax) + " (максимальный)"

Option Explicit

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

Dim M, i, j, NMult

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

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

NMult = 0
For i = 0 To M - 1    ' Подсчет кол-ва элементов матрицы кратных заданному значению выше главной диоганали
    For j = i + 1 To M
        If Q(i, j) Mod Mult = 0 Then NMult = NMult + 1
    Next
Next

MsgBox "В квадратной матрице порядка" + vbTab + CStr(N) + vbCrLf + _
    "количество элементов кратных" + vbTab + CStr(Mult) + vbCrLf + _
    "расположенных выше главной диагонали=" + vbTab + CStr(NMult)



Консультировал: Megaloman (Мастер-Эксперт)
Дата отправки: 17.01.2021, 01:05

5
нет комментария
-----
Дата оценки: 17.01.2021, 15:01

Рейтинг ответа:

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


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

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

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


В избранное