Задан массив целых чисел М * Н. Найти элементы, которые делятся на 7 и образовать из них одномерный массив - VB

Узнай цену своей работы

Формулировка задачи:

задано массив целых числе М * Н найти элементы, которые делятся на 7 и образовать из них одномерный массив

Решение задачи: «Задан массив целых чисел М * Н. Найти элементы, которые делятся на 7 и образовать из них одномерный массив»

textual
Листинг программы
Private Sub Form_Load()
    Dim M As Long, H As Long, Ar() As Long, Res() As Long, Init As Boolean
    Dim i As Long, j As Long
    Me.AutoRedraw = True
    Randomize
    M = 5: H = 6
    ReDim Ar(M - 1, H - 1)
    ' Заполняем и выводим
    Me.Print "Исходный массив: {"
    For i = 0 To UBound(Ar, 1): For j = 0 To UBound(Ar, 2)
        Ar(i, j) = Int(Rnd * 100)
        Me.Print Ar(i, j);
    Next: Me.Print: Next
    Me.Print "}"
    ' Выделяем кратные числу 7
    For i = 0 To UBound(Ar, 1): For j = 0 To UBound(Ar, 2)
        If Ar(i, j) / 7 = Fix(Ar(i, j) / 7) Then
            If Init Then ReDim Preserve Res(UBound(Res) + 1) Else ReDim Res(0): Init = True
            Res(UBound(Res)) = Ar(i, j)
        End If
    Next: Next
    ' Отображаем результирующий массив
    If Init Then
        Me.Print "Результат :{"
        For i = 0 To UBound(Res)
            Me.Print Res(i);
        Next
        Me.Print "}"
    Else
        Me.Print "Элементы отсутствуют"
    End If
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.2 из 5
Похожие ответы