Mam tyle, ale to jest źle:
Kod: Zaznacz cały
program mnozeniemacierzy;
var
t:array[1..2,1..2] of real;
t1:array[1..2,1..2] of real;
t2:array[1..2,1..3] of real;
n,i,j:integer;
k,l,p,r:integer;
begin
begin
for i:=1 to 2 do
for j:=1 to 2 do
begin
writeln('podaj elementy macierzy A[',i,',',j,']: ');
readln(t[i,j]);
end;
begin
for k:=1 to 2 do
for l:=1 to 3 do
begin
writeln('podaj elementy macierzy B[',k,',',l,']: ');
readln(t[k,l]);
end;
begin
for p:=1 to 2 do
for r:=1 to 3 do
begin
t2[p,r]=t[p,j]*t1[k,r];
writeln('podaj elementy pomnozonej macierzy C[',p,',',r,']: ');
readln(t2[p,r]);
readln;
end;
end;
end;
end;
end.
Jak to zrobić dla dowolnych macierzy?