составить программу умножения двух квадратных матриц

[maladoy]

а и не надо это не мое

Программист: Позднышев А.А. группа 316

Найдено на просторах бескрайнего!!!

[gnom63]

Program dodelay;
uses crt;
Const
Nmax=10; Type
Matrics=array[1..Nmax,1..Nmax] of integer;
Masiv=array[1..Nmax] of integer;
Var
X,Y,Z,A,B:matrics;
M,N:masiv;
i,j,t:integer;
Procedure Vvod (t:integer; Var X:matrics);
Var
i,j:integer;
Begin
For i:=1 to t do
For j:=1 to t do
Begin
Write ('[',i,',',j,']=');
Read (X[i,j]);
End;
For i:=1 to t do
Begin
For j:=1 to t do
Write (X[i,j]:5);
Writeln
End
End;
Procedure Echo (t:integer; X:matrics);
var
i,j:byte;
begin
For i:=1 to t do
Begin
For j:=1 to t do
Write (X[i,j]:5);
Writeln
End
end;
Procedure Umn (X,Y:matrics; t:integer; Var Z:matrics);
var
i,j,k,s:integer;
begin {Umno}
for i:=1 to t do
for j:=1 to t do
begin
S:=0;
for k:=1 to t do
s:=s+X[k,i]*Y[j,k];
Z[i,j]:=s;
end;
end;
begin
clrscr;
writeln('введите размерность матрицы X,Y:');read(t);
writeln('введите,t*t,' элементов каждой матрицы:');
writeln('матрица X:');vvod(t,X);
writeln('матрица Y:');vvod(t,Y);
Echo(t,A);
Echo(t,B);
writeln('произведение матрицп:');
Umn(x,y,t,z) ;
echo(t,z)
end.

********************
в чём ошибка после выаода второй матрицы выводятся ещё нули как это убрать?????????

[gnom63]

Program dodelay;
uses crt;
Const
Nmax=10; Type
Matrics=array[1..Nmax,1..Nmax] of integer;
Masiv=array[1..Nmax] of integer;
Var
X,Y,Z,A,B:matrics;
M,N:masiv;
i,j,t:integer;
Procedure Vvod (t:integer; Var X:matrics);
Var
i,j:integer;
Begin
For i:=1 to t do
For j:=1 to t do
Begin
Write ('[',i,',',j,']=');
Read (X[i,j]);
End;
For i:=1 to t do
Begin
For j:=1 to t do
Write (X[i,j]:5);
Writeln
End
End;
Procedure Echo (t:integer; X:matrics);
var
i,j:byte;
begin
For i:=1 to t do
Begin
For j:=1 to t do
Write (X[i,j]:5);
Writeln
End
end;
Procedure Umn (X,Y:matrics; t:integer; Var Z:matrics);
var
i,j,k,s:integer;
begin {Umno}
for i:=1 to t do
for j:=1 to t do
begin
S:=0;
for k:=1 to t do
s:=s+X[k,i]*Y[j,k];
Z[i,j]:=s;
end;
end;
begin
clrscr;
writeln('введите размерность матрицы X,Y:');read(t);
writeln('введите,t*t,' элементов каждой матрицы:');
writeln('матрица X:');vvod(t,X);
writeln('матрица Y:');vvod(t,Y);
Echo(t,A);
Echo(t,B);
writeln('произведение матрицп:');
Umn(x,y,t,z) ;
echo(t,z)
end.

********************
в чём ошибка после выаода второй матрицы выводятся ещё нули как это убрать?????????????

[maladoy]

writeln('матрица X:');vvod(t,A);
writeln('матрица Y:');vvod(t,B);
Echo(t,A);
Echo(t,B);
writeln('произведение матрицп:');
Umn(A,B,t,Z) ;
echo(t,Z)
end.

вот так вот концовочку исправь

[gnom63]

ага понял спасибо

[Вера94]

помогите пожалуйста.
В среде Delphi разработать программу умножения квадратных матриц произвольного размера. Разработать и использовать для этого класс TMatrix, обладающий методом Mul, позволяющим получить матрицу путём перемножения двух других матриц.