Порядок выполнения работы (Iуровень)

1. Входные данные:

(N+1) – количество строк матрицы A, (M+1) – количество столбцов матрицы A,

A(,) – двумерный массив из (N+1)*(M+1)элементов.

Выходные данные:

AMAXN - наибольший элемент в последней строке матрицы A, B() - массив, элементы которого равны суммам соответствующих строк матрицы A, D() - массив, элементы которого равны суммам соответствующих столбцов матрицы A.

2.Блок-схема (рис. 5.1)

Рис. 5.1. Блок – схема программы

3. Текстпрограммы:

ModuleModule1

‘ Заголовок программной секции, относящейся к категории программных модулей

SubMain()

‘ Заголовок программной секции, относящейся к категории головного модуля программы

Dim N, M, I, J As Integer

DimA(,) AsSingle = {{7,-1,2,0},{4,5,-3,1},{-6,11,8,-4}}

‘ Явный способ задания двумерного массива А(,) с вещественными (Single) элементами, значения которым присваиваются после символа = построчно, то есть три строки по 4 элемента в каждой

N = A.GetUpperBound(0)

‘ Параметру N присвоено значение верхней границы 1-ой (0) размерности двумерного массива А(,)

M = A.GetUpperBound(1)

‘ Параметру M присвоено значение верхней границы 2-ой (1) размерности двумерного массива А(,)

Console.WriteLine("N={0} M={1}", N, M)

‘ Вывод значений параметров N и M

Console.WriteLine("КоличествострокматрицыAравноN+1={0}", N + 1)

Console.WriteLine("Количество столбцов матрицы A равно M+1={0}", M + 1)

‘Количество строк и столбцов матрицы A равны, соответственно, N+1 и M+1, так как стандартная нумерация элементов ведется для строк с 0 до N-1, для столбцов –с 0 до M-1.

Dim B(N), D(M) As Single

Dim Z As Single

Dim AMAXN As Single

I = 0 : AMAXN = A(N, I)

‘ Параметру AMAXN присваивается начальное значение, равное значению элемента матрицы A(,), расположенному в N-ой строке и 0-ом столбце

For I = 0 To M

If AMAXN < A(N, I) Then AMAXN = A(N, I)

Next I

   Console.WriteLine("")

Console.WriteLine("НАИБОЛЬШИЙЭЛЕМЕНТПОСЛЕДНЕЙСТРОКИ AMAXN ={0}", AMAXN)

   Console.WriteLine("")

Console.WriteLine("МАССИВЗНАЧЕНИЙСУММСТРОКМАТРИЦЫA():")

For I = 0 To N

       B(I) = 0

For J = 0 To M

           B(I) = B(I) + A(I, J)

Next J

       Console.WriteLine("B({0})={1}", I, B(I))

Next I

   Console.WriteLine("")

Console.WriteLine("МАССИВЗНАЧЕНИЙСУММСТОЛБЦОВМАТРИЦЫA():")

For J = 0 To M

       D(J) = 0

For I = 0 To N

       D(J) = D(J) + A(I, J)

Next I

       Console.WriteLine("D({0})={1}", J, D(J))

Next J

   Console.ReadLine()

EndSub

‘ Конец текста программы головного модуля

EndModule

‘ Конец программной секции, относящейся к категории программных модулей

4. Результатыработы программы представлены на рис. 5.2.

Рис. 5.2. Скриншот результатов работы программы