Сформировать одномерный массив из элементов матрицы А по условию - VB
Формулировка задачи:
Составить процедуру, которая для заданного массива С из n элементов формирует массив из элементов, для которых значение f(Сi) попадает на заданный отрезок.
Сформировать одномерный массив из элементов матрицы А, абсолютная величина которых попадает на отрезок [CA; 2CA], где СА - среднее арифметическое матрицы А.
в VB
Решение задачи: «Сформировать одномерный массив из элементов матрицы А по условию»
textual
Листинг программы
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д