Пересчитать первую строку матрицы W - VB

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

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

Пересчитать первую строку матрицы W размерности m*n так, чтобы значение каждого ее элемента было равно произведению элементов столбца, в котором он находится. Помогите написать код(((

Решение задачи: «Пересчитать первую строку матрицы W»

textual
Листинг программы
Option Explicit
Dim i As Integer, j As Integer
Dim m As Integer, n As Integer
Dim W() As Double
Dim Temp As Double
Private Sub Command1_Click()
Randomize 'Иницилизация генератора случайных чисел
Cls       'Очищаем форму
n = 4    ' InputBox("Enter n")
m = 7    ' InputBox("Enter m")
ReDim W(n, m) ' Размеры массива А -  n-строк, m-столбцов
For i = 1 To n
 For j = 1 To m
    W(i, j) = Int(Rnd * 10 + 1) 'Заполняем массив случайными числами
    Print W(i, j); vbTab;
 Next j
 Print
Next i
 
 Print
 
For j = 1 To m
 Temp = 1
 For i = 1 To n
    Temp = Temp * W(i, j)
 Next i
  W(1, j) = Temp
Next j
 
Print "Новый массив"
 
For i = 1 To n
 For j = 1 To m
     Print W(i, j); vbTab;
 Next j
 Print
Next i
 
End Sub

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


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

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

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