Определить виды матриц из данного примера: (2ae)+t для vba, знаю только, что e-треугольная. sub sup() dim a() as integer dim b() as integer dim c() as integer dim d() as integer dim e() as integer dim t() as integer dim n as integer dim i as integer dim j as integer dim k as integer n = inputbox("введите количество столбцов") redim a(n, n) redim b(n, n) redim c(n, n) redim d(n, n) redim e(n, n) redim t(n, n) randomize range("a1").value = "(2at)+e" range("a2").value = "матрица a" for i = 1 to n for j = 1 to n if i < > j then a(i, j) = 1 end if next j next i for i = 1 to n for j = 1 to n cells(2 + 1, j).value = a(i, j) next j next i cells(3 + n, 1).value = "матрица t" for i = 1 to n for j = 1 to n if i > = j then t(i, j) = 0 else t(i, j) = rnd * 10 end if next j next i for i = 1 to n for j = 1 to n cells(3 + n + i, j).value = t(i, j) next j next i cells(4 + n * 2, 1).value = "матрица e" for i = 1 to n for j = 1 to n e(i, j) = rnd * 10 if i < > j then e(j, i) = c(i, j) next j next i for i = 1 to n for j = 1 to n cells(4 + n * 2 + i, j).value = e(i, j) next j next i cells(5 + n * 3, 1).value = "c=at" for i = 1 to n for j = 1 to n e(i, j) = 0 for k = 1 to n e(i, j) = e(i, j) + a(i, k) t(k, j) next k next j next i for i = 1 to n for j = 1 to n cells(5 + n * 3 + i, j).value = c(i, j) next j next i cells(6 + n * 4, 1).value = "b=c2" for i = 1 to n for j = 1 to n b(i, j) = c(i, j) 2 next j next i for i = 1 to n for j = 1 to n cells(6 + n * 4 + i, j).value = t(i, j) next j next i cells(7 + n * 5, 1).value = "d=b+c" for i = 1 to n for j = 1 to n d(i, j) = b(i, j) + c(i, j) next j next i for i = 1 to n for j = 1 to n cells(7 + n * 5 + i, j).value = d(i, j) next j next i end sub

👇

Ответ:

НикаНик1111

17.10.2021

В первом вложении правильный код, во втором - пример картинки.

Определить виды матриц из данного примера: (2*a*e)+t для vba, знаю только, что e-треугольная. sub su

Определить виды матриц из данного примера: (2*a*e)+t для vba, знаю только, что e-треугольная. sub su

4,7(80 оценок)

Открыть все ответы

Ответ:

raku13

17.10.2021

1. Создаем файл MatInt.pas следующего содержания:

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
unit MatInt;

interface

type
Matrix=array[,] of integer;

function MatCreate(m,n:integer):Matrix;
procedure MatPrint(a:Matrix;w:integer);
procedure MatMax(a:Matrix;var x,imax,jmax:integer);

implementation

function MatCreate(m,n:integer):Matrix;
// создает матрицу и инициализирует её нулями
begin
SetLength(Result,m,n);
end;

procedure MatPrint(a:Matrix;w:integer);
// выводит матрицу, отводя w позиций под элемент
begin
var n:=Length(a,1)-1;
for var i:=0 to Length(a,0)-1 do begin
    for var j:=0 to n do Write(a[i,j]:w);
    Writeln
    end
end;

procedure MatMax(a:Matrix;var x,imax,jmax:integer);
// возвращает значение максимального элемента и его координаты
begin
imax:=0; jmax:=0;
var n:=Length(a,1)-1;
for var i:=0 to Length(a,0)-1 do
    for var j:=0 to n do
      if a[i,j]>a[imax,jmax] then (imax,jmax):=(i,j);
Inc(imax); Inc(jmax); x:=a[imax-1,jmax-1]
end;

end.

2. Компилируем файл, получая библиотеку MatInt.pcu

3. Пишем основную программу:

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
uses
MatInt;
begin
var a:=MatCreate(5,8);
var n:=Length(a,1)-1;
for var i:=0 to Length(a,0)-1 do
for var j:=0 to n do a[i,j]:=Random(-50,50);
MatPrint(a,4);
var irow,jcol,max:integer;
MatMax(a,max,irow,jcol);
Writeln('Максимальный А[',irow,',',jcol,']=',max)
end.

Тестовое решение
11 -16 11 16 23 -4 -17 -34
-12 -5 20   9 16 47 43 17
-46 -26 47 -40 12 -31 -25 13
-7 39 -20 26 11 -19 32 -15
45 -10 -28 31 -46 -29 -29 -22
Максимальный А[2,6]=47

4,6(48 оценок)

Ответ:

ILoveChemistry2

17.10.2021

1 - True/False

2 - логическая операция, которая объединяет два высказывания в одно новое, которое будет являться истинным тогда и только тогда, когда оба исходных высказывания ложны.

3 - Конъюнкция

4 - X И Y И Z

5 - OR

6 - 1. Инверсия;

2. Конъюнкция;

3. Дизъюнкция;

4. Импликация;

5. Эквивалентность.

7 - логическая операция, которая преобразует исходное высказывание в новое, значение которого противоположно исходному.

8 - Импликация

9 - логическая операция, которая объединяет два высказывания в одно новое, которое будет являться истинным тогда и только тогда, когда оба исходных высказывания истинны

10 - Конъюнкция

11 - ?

12 - ?

Объяснение:

4,6(61 оценок)

Это интересно:

Здоровье

10.07.2021

Голубые глаза: миф или реальность?...

Компьютеры-и-электроника

04.07.2022

Как удалить историю поиска в iPod Touch: шаги по настройке конфиденциальности...