Сформировать одномерный массив из элементов матрицы А по условию - VB

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

Составить процедуру, которая для заданного массива С из n элементов формирует массив из элементов, для которых значение f(Сi) попадает на заданный отрезок. Сформировать одномерный массив из элементов матрицы А, абсолютная величина которых попадает на отрезок [CA; 2CA], где СА - среднее арифметическое матрицы А. в VB


textual

Код к задаче: «Сформировать одномерный массив из элементов матрицы А по условию - VB»

Option Explicit
Dim A(3, 3) As Long
Dim B() As Long
Dim i%, j%, k%, u%, S%
Dim CA As Single
 
Private Sub com1_Click()
    Randomize Timer
    Cls
    For i = 0 To 3
    For j = 0 To 3
        A(i, j) = 20 * Rnd
        Print Format(A(i, j), "   00");
    Next: Print
    Next: Print
    
    For i = 0 To 3
    For j = 0 To 3
        S = S + A(i, j)
    Next j, i
    CA = S / 16
    Print "CA ="; CA
    
    For i = 0 To 3
    For j = 0 To 3
        If CA <= A(i, j) And A(i, j) <= 2 * CA Then k = k + 1
    Next j, i
    
    ReDim B(k - 1)
    
    For i = 0 To 3
    For j = 0 To 3
        If CA <= A(i, j) And A(i, j) <= 2 * CA Then
            B(u) = A(i, j)
            u = u + 1
        End If
    Next j, i
    
    For i = 0 To k - 1
        Print B(i);
    Next i
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 4.067 из 5

Источник