5.
sm
Из матрицы А построить матрицу В поменять местами
Строки и столбцы.
2.1 4.5
A= 5.2 7.8
2.1
5.3
6.1
6.1
8.4
Лабараторка в паскале
Ответы
Ответ дал:
0
Для того чтобы поменять строки и столбцы матрицы А и построить матрицу B, вы можете использовать следующий код на языке программирования Pascal:
```pascal
program MatrixTranspose;
const
N = 3; // Размер матрицы
var
A, B: array[1..N, 1..N] of Real;
i, j: Integer;
begin
// Заполним матрицу A
A[1, 1] := 2.1;
A[1, 2] := 4.5;
A[2, 1] := 5.2;
A[2, 2] := 7.8;
A[3, 1] := 2.1;
A[3, 2] := 5.3;
// Выведем матрицу A
writeln('Матрица A:');
for i := 1 to N do
begin
for j := 1 to N do
write(A[i, j]:4:1, ' ');
writeln;
end;
// Поменяем строки и столбцы и заполним матрицу B
for i := 1 to N do
for j := 1 to N do
B[j, i] := A[i, j];
// Выведем матрицу B
writeln('Матрица B (поменяны строки и столбцы):');
for i := 1 to N do
begin
for j := 1 to N do
write(B[i, j]:4:1, ' ');
writeln;
end;
end.
```
Этот код создает матрицу A, затем меняет строки и столбцы, создавая матрицу B, и выводит обе матрицы. Не забудьте, что Pascal - это устаревший язык программирования, и вы должны убедиться, что у вас установлена среда разработки, поддерживающая Pascal.
```pascal
program MatrixTranspose;
const
N = 3; // Размер матрицы
var
A, B: array[1..N, 1..N] of Real;
i, j: Integer;
begin
// Заполним матрицу A
A[1, 1] := 2.1;
A[1, 2] := 4.5;
A[2, 1] := 5.2;
A[2, 2] := 7.8;
A[3, 1] := 2.1;
A[3, 2] := 5.3;
// Выведем матрицу A
writeln('Матрица A:');
for i := 1 to N do
begin
for j := 1 to N do
write(A[i, j]:4:1, ' ');
writeln;
end;
// Поменяем строки и столбцы и заполним матрицу B
for i := 1 to N do
for j := 1 to N do
B[j, i] := A[i, j];
// Выведем матрицу B
writeln('Матрица B (поменяны строки и столбцы):');
for i := 1 to N do
begin
for j := 1 to N do
write(B[i, j]:4:1, ' ');
writeln;
end;
end.
```
Этот код создает матрицу A, затем меняет строки и столбцы, создавая матрицу B, и выводит обе матрицы. Не забудьте, что Pascal - это устаревший язык программирования, и вы должны убедиться, что у вас установлена среда разработки, поддерживающая Pascal.
Вас заинтересует
1 год назад
1 год назад
2 года назад