Нужна ваша . vba excel определить столбец матрицы в, сумма модулей элементов которого максимальна, если b=3a^2-a-7e , где e - единичная матрица, a - матрица размерности 5x5 , элементы которой определяется по формуле aij= i - j,если i=j i - 2*j если i неравно j вывести на печать указанный столбец и его номер. оформление на подобие этого! sub pr() dim a(1 to 5, 1 to 5) as single dim b(1 to 5, 1 to 5) as single dim c(1 to 5, 1 to 5) as single dim d(1 to 5) as single dim i as integer, j as integer, k as integer for i = 1 to 5 step 1 for j = 1 to 5 step 1 if i = j then a(i, j) = 5 - i - j else a(i, j) = i - j next

134

209

Посмотреть ответы 2

Ответы на вопрос:

aloaloaloalo

Информатика

4,8(18 оценок)

Option explicit sub aaa() const n = 5 dim a(1 to n, 1 to n) as long, e(1 to n, 1 to n) as long dim i as integer, j as integer, k as integer ' инициализация матриц for i = 1 to n for j = 1 to n if i = j then a(i, j) = 0 ' глупо тут вычислять i-j e(i, j) = 1 else a(i, j) = i - 2 * j e(i, j) = 0 end if next j next i ' a^2 - просто умножение матрицы самой на себя dim b(1 to n, 1 to n) as long for i = 1 to n for j = 1 to n b(i, j) = 0 for k = 1 to n b(i, j) = b(i, j) + a(i, k) * a(k, j) next k next j next i ' 3a^2 - a + 7e for i = 1 to n for j = 1 to n b(i, j) = 3 * b(i, j) - a(i, j) + 7 * e(i, j) next j next i ' поиск столбца b с максимальной суммой модулей элементов dim s as long, max as long, jj as long max = -1000000 for j = 1 to n s = 0 for i = 1 to n s = s + abs(b(i, j)) next i if s > max then max = s jj = j end if next j ' вывод на лист excel range(cells(1, 1), cells(n + 1, cells(1, 1) = "столбец " + cstr(jj) for i = 1 to n cells(i + 1, 1) = b(i, jj) next i end sub