Delphi. Умножение матриц.

[Manik]

С матрицами беда.

Ниже кусок кода, который умеет умножать квардратные матрицы, но вылетает на остальных.

Не могу понять ,почему не считает ...
Помогите, если сможете,пожалуйста!

var i,j,k,s,s1:integer;
arr1,arr2,arr3:array of array of integer;

...

Setlength(arr1,m1,n1);
Setlength(arr2,m2,n2);
Setlength(arr3,m1,n2);

.....


k:=0;
for i:= 0 to m1-1 do
 for j:= 0 to n2-1 do begin
   s:=0;s1:=1;
    for k:=0 to m2-1 do begin
     s1:=arr2[i,k]*arr1[k,j];
     s:=s+s1;
   end;
  arr3[i,j]:=s;

Заранее спасибо)

[Stilet]

А вылетать он может потому что arr2 и arr1 несовместимы по координатам.
Вообще поставить условие можно:

 if (k<length(arr2[i]))and(k<Length(arr1)) then
  s1:=arr2[i,k]*arr1[k,j] 
 else 
  s1:=0;

[Alex_FF]

const
  N = 10;
  M = 20;

type Matrix = Array[1..N, 1..M] of Integer;

function Min(A, B: Integer): Integer;
begin
  if A < B then Min := A else Min := B;
end;

var
  I, J, K: Integer;
  A, B, C: Matrix;
begin
  {...............................}
  for I := 1 to N do
    for J := 1 to M do
    begin
      C[I, J] := 0;
      for K := 1 to Min(N, M) do
         C[I, J] := C[I, J] + A[I, K] * B[K, J];
    end;
  { С есть произведение A на B }
end.

[Manik]

Спасибо за ответы!
только вот лыжи всё не едут...

Stilet, то ли не так вставила, то ещё что, но не помогло.

Алекс, полный код программы ниже.
Не могу понять, что я сделала не так, но считать она считает,но считает неправильно...
да, и всё же мне нужны динамические массивы...
но это я наверное сама...как только заработает)

const
  N = 10;
  M = 20;

type Matrix = Array[1..N, 1..M] of Integer;

function Min(A, B: Integer): Integer;
begin
  if A < B then Min := A else Min := B;
end;

var
  I, J, K,m1,n1,m2,n2: Integer;
  A, B, C: Matrix;

begin
  write(rus('Введите размерность матрицы --> ')); readln(m1,n1);
  write(rus('Введите '), n1*m1,(rus(' элементов матрицы 1 --> ')));
   for i :=1 to m1 do
    for j :=1 to n1 do
     read ( a [ i , j ]);
  writeln(rus('Вы ввели матрицу: '));
   for i :=1 to m1 do
    begin
     for j :=1 to n1 do
      write ( a [ i , j ]:4);
      writeln
    end;
     write(rus('Введите размерность матрицы --> ')); readln(m2,n2);
  write(rus('Введите '), n2*m2,(rus(' элементов матрицы 2 --> ')));
  for i :=1 to m2 do
    for j :=1 to n2 do
     read ( b [ i , j ]);
  writeln(rus('Вы ввели матрицу: '));
   for i :=1 to m2 do
    begin
     for j :=1 to n2 do
      write ( b [ i , j ]:4);
      writeln
    end;

   for I := 1 to m1 do
    for J := 1 to n2 do
    begin
      C[I, J] := 0;
      for K := 1 to Min(m1, n2) do
         C[I, J] := C[I, J] + A[I, K] * B[K, J];
    end;
  { С есть произведение A на B }

  writeln(rus('Получилось : '));
   writeln;
   for i :=1 to m1 do
    begin
     for j :=1 to n2 do
      write ( c [ i , j ]:4);
      writeln
      end;
 readln;
 readln
end.

помогите, пожалуйста..

[Stilet]

Ну и чо такое rus?

[s.Creator]

Сообщение от Stilet

Ну и чо такое rus?

Скорее всего функция переводящая из win кодировки в dos.

Если я правильно помню то должно
n1 = m2

var i,j,k,s,s1:integer;
arr1,arr2,arr3:array of array of integer;

...

Setlength(arr1,m1,n1);
Setlength(arr2,n1,n2);
Setlength(arr3,m1,n2);

.....


k:=0;
for i:= 0 to m1-1 do
 for j:= 0 to n2-1 do begin
   s:=0;s1:=1;
    for k:=0 to n1-1 do begin
     s1:=arr1[i,k]*arr2[k,j];
     s:=s+s1;
   end;
  arr3[i,j]:=s;
  end;

[Stilet]

Скорее всего функция переводящая из win кодировки в dos.

Да в другой теме е уже выложили.

[Manik]

Спасибо за ответы!

кусок кода про rus забыла, изивините)
но все всё правильно поняли)

уже вроде всё исправила,переписала...
всё равно ничего не считается, вылетает с ошибкой и всё...

*снова код:
(проверка n1=m2) есть ...

**разъясняю что это такое перед собственно программой умножения:
это я так считываю то, что ввели StringGrid, то, что не ввели заменяю нулями и всё это вывожу.
***по этой схеме тоже есть вопросы, но это уже потом....

m1,n1,m2,n2-глобальные переменные.

procedure TForm1.Button8Click(Sender: TObject);  //*
var i,j,k,s,s1:integer;
arr1,arr2,arr3:array of array of integer;

begin
Setlength(arr1,m1,n1);
Setlength(arr2,m2,n2);
Setlength(arr3,m1,n2);
StringGrid3.Visible:=true;
StringGrid3.ColCount:=n2;
StringGrid3.RowCount:=m1;

if (n1=m2) then begin

for i:= 0 to m1-1 do
 for j:= 0 to n1-1 do
  if Length(StringGrid1.Cells[i,j])<>0 then
   arr1[i,j]:= StrToInt(StringGrid1.Cells[i,j]);

for i:= 0 to m1-1 do
 for j:= 0 to n1-1 do
 if Length(StringGrid2.Cells[i,j])<>0 then
   arr2[i,j]:= StrToInt(StringGrid2.Cells[i,j]);

for i:= 0 to m1-1 do
 for j:= 0 to n1-1 do
  if Length(StringGrid1.Cells[i,j])<>0 then
   StringGrid1.Cells[i,j]:=IntToStr(arr1[i,j])
  else StringGrid1.Cells[i,j]:=IntToStr(0);

for i:= 0 to m1-1 do
 for j:= 0 to n1-1 do
  if Length(StringGrid2.Cells[i,j])<>0 then
   StringGrid2.Cells[i,j]:=IntToStr(arr2[i,j])
  else StringGrid2.Cells[i,j]:=IntToStr(0);

//умножение

k:=0;
for i:= 0 to m1-1 do
 for j:= 0 to n2-1 do begin
   s:=0;s1:=1;
   for k:=0 to n1-1 do begin
    s1:=arr2[i,k]*arr1[k,j];
    s:=s+s1
    end;
    arr3[i,j]:=s;
    StringGrid3.cells[i,j]:=IntToStr(arr3[i,j])
    end;
  end
 else Label8.Caption:='Операцию выполнить невозможно!'+#13#10+'Проверьте размеры матриц';

чую, что подстава где-то здесь
s1:=arr2[i,k]*arr1[k,j];

ибо более логичное, написанное s.Creator, даёт неверный результат.

[s.Creator]

А нельзя ли прикрепить проект, чтоб посмотреть нормально?

[Manik]

можно, конечно...)

он правда кривой страшно, но пока с функционалом разбираюсь...

*надеюсь, выложила именно то, что нужно...