Дана матрица Аn?m. Получить вектор b1, b2, …, bn, где bi равно произведениям элементов строк. Составить программу на языке Basic

1 Январь 0001



Дана матрица А(n?m). Получить вектор b1, b2, …, bn, где bi равно произведениям элементов строк. Составить программу на языке Basic

  • Правильность не гарантирую, потому что проверить в данный момент код негде.

     

    Sub название

    Dim A() As Integer
    Dim b() As Integer
    Dim i, j As Integer

     

    ‘Задаем размерность массива
    Console.WriteLine (“Введите количество строк”)
    n = Console.ReadLine                                             
    Console.WriteLine (“Введите количество столбцов”)
    m = Console.ReadLine

    ReDim A(n, m) As Integer
    ReDim b(n) As Integer

     

    ‘Цикл ввода данных
    For i = 1 To n
    For j = 1 To m
    Console.WriteLine (“Введите число”)
    A(i, j) = Console.ReadLine
    Next j
    Next i

     

    ‘Все элементы массива b изначально делаем единичными, чтобы при умножении они не повлияли на значение
    For i = 1 To n
    b(i) = 1
    Next i



     

    ‘Цикл вычисления каждого элемента массива b
    For i = 1 To n
    For j = 1 To m
    b(i) = b(i) * A(i, j)
    Next j
    Next i



     

    ‘Вывод результата на экран
    For i = 1 To n
    Console.Write (b(i))
    Next i
    End Sub









Информатика

Комментарии закрыты.