Основы программирования на VBA. Регеда В.В - 45 стр.

UptoLike

Составители: 

2.11.3. Дописать в программу строки для определения и вывода
на экран монитора суммы элементов матрицы A(i, j) по строкам:
FOR i=1 TO 9
s=0
FOR j=1 TO 9
S=S+A(i, j)
NEXT j
PRINT “S=“;
PRINT USING “####.#”; S
NEXT i
2.11.4. Самостоятельно добавить в программу строки для вы-
числения и вывода на экран произведения элементов матрицы B(i,j) по
столбцам.
2.11.5. Дописать в программу строки для перестановки строк
матрицы B(i,j) по убыванию значений первых элементов её строк. Вы-
вести на экран полученную матрицу:
FOR i=1 TO 9
MAX=B(i,1)
Нахождение наибольшего первого элемента в строках
матрицы и номера этой строки imax
FOR k=i TO 9
IF B(k,1)>=MAX THEN MAX=B(k,1)
imax=k
NEXT k
FOR j=1 TO 9
Вывод на экран текущей строки imax
PRINT USING “####.#”;B(imax,j);
Исключение этой строки из дальнейшего анализа
SWAP B(imax,j),B(i,j)
NEXT j
PRINT
NEXT i
2.11.6. Добавить в программу строки для перестановки столб-
цов матрицы
A(i,j) по возрастанию значений первых элементов её
столбцов.
      2.11.3.    Дописать в программу строки для определения и вывода
на экран монитора суммы элементов матрицы A(i, j) по строкам:
      FOR i=1 TO 9
                 s=0
            FOR j=1 TO 9
                 S=S+A(i, j)
            NEXT j
                 PRINT “S=“;
                 PRINT USING “####.#”; S
      NEXT i
      2.11.4.    Самостоятельно добавить в программу строки для вы-
числения и вывода на экран произведения элементов матрицы B(i,j) по
столбцам.
      2.11.5.    Дописать в программу строки для перестановки строк
матрицы B(i,j) по убыванию значений первых элементов её строк. Вы-
вести на экран полученную матрицу:
FOR i=1 TO 9
            MAX=B(i,1)
‘Нахождение наибольшего первого элемента в строках
‘матрицы и номера этой строки imax
            FOR k=i TO 9
                 IF B(k,1)>=MAX THEN MAX=B(k,1)
                 imax=k
            NEXT k
      FOR j=1 TO 9
      ‘Вывод на экран текущей строки imax
            PRINT USING “####.#”;B(imax,j);
      ‘Исключение этой строки из дальнейшего анализа
            SWAP B(imax,j),B(i,j)
      NEXT j
            PRINT
NEXT i
      2.11.6.    Добавить в программу строки для перестановки столб-
цов матрицы A(i,j) по возрастанию значений первых элементов её
столбцов.