Лидеры рейтинга

ID: 226425

Konstantin Shvetski

Мастер-Эксперт

959

Россия, Северодвинск


ID: 259041

Алексеев Владимир Николаевич

Мастер-Эксперт

548

Россия, пос. Теплоозёрск, ЕАО


ID: 401284

Михаил Александров

Академик

354

Россия, Санкт-Петербург


ID: 137394

Megaloman

Мастер-Эксперт

312

Беларусь, Гомель


ID: 400669

epimkin

Профессионал

275


ID: 400484

solowey

Профессор

73


ID: 401888

puporev

Профессор

53

Россия, Пермский край


8.1.6

02.01.2021

JS: 2.2.2
CSS: 4.2.0
jQuery: 3.5.1


 

• Basic

Создание программ на языке Basic.

Администратор раздела: Андреенков Владимир (Академик)


Megaloman
Статус: Мастер-Эксперт
Рейтинг: 312
Gluck
Статус: 6-й класс
Рейтинг: 221
solowey
Статус: Профессор
Рейтинг: 73
 

Перейти к консультации №:
 

Консультация онлайн # 200087
Раздел: • Basic
Автор вопроса: NIKOLAI Shilcev (Посетитель)
Дата: 13.01.2021, 16:27
Поступило ответов: 1

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

-----
Прикрепленное изображение (кликните по картинке для увеличения):

Состояние: Консультация закрыта

Ответ # 280649 от 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

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

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