Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Informatika (2 семестр) / 1 аттестация / Peremnozhenie_Matrits
.pas program umn;
const n=2;
var A,B,C: array [1..n, 1..n] of real;
i,j,k: integer;
procedure u(A,B: array [1..n, 1..n] of real; var C: array [1..n,1..n] of real);
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
for k:=1 to n do
begin
C[i,j]:=C[i,j]+A[i,k]*B[k,j];
end;
end;
end;
end;
begin
A[1,1]:= 1; A[1,2]:= 0;
A[2,1]:= 0; A[2,2]:= 1;
B[1,1]:= 4; B[1,2]:= 1;
B[2,1]:= 10; B[2,2]:= -3;
writeln('Матрица А');
writeln(A[1,1],' ',A[1,2]);
writeln(A[2,1],' ',A[2,2]);
writeln;
writeln('Матрица В');
writeln(B[1,1],' ',B[1,2]);
writeln(B[2,1],' ',B[2,2]);
writeln;
u(A,B,C);
writeln('Произведение A и B');
writeln(C[1,1],' ',C[1,2]);
writeln(C[2,1],' ',C[2,2]);
end.
const n=2;
var A,B,C: array [1..n, 1..n] of real;
i,j,k: integer;
procedure u(A,B: array [1..n, 1..n] of real; var C: array [1..n,1..n] of real);
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
for k:=1 to n do
begin
C[i,j]:=C[i,j]+A[i,k]*B[k,j];
end;
end;
end;
end;
begin
A[1,1]:= 1; A[1,2]:= 0;
A[2,1]:= 0; A[2,2]:= 1;
B[1,1]:= 4; B[1,2]:= 1;
B[2,1]:= 10; B[2,2]:= -3;
writeln('Матрица А');
writeln(A[1,1],' ',A[1,2]);
writeln(A[2,1],' ',A[2,2]);
writeln;
writeln('Матрица В');
writeln(B[1,1],' ',B[1,2]);
writeln(B[2,1],' ',B[2,2]);
writeln;
u(A,B,C);
writeln('Произведение A и B');
writeln(C[1,1],' ',C[1,2]);
writeln(C[2,1],' ',C[2,2]);
end.
Соседние файлы в папке 1 аттестация