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

[Denis0993]

Неверно умножает матрицы, пожалуйста помогите найти ошибку.

procedure TForm5.BitBtn2Click(Sender: TObject);// умножение матриц(StringGrid1 и StringGrid2)
var Sg1,Sg2,Sg3: integer;
begin
for i:=0 to StringGrid1.RowCount-1 do
  for j:=0 to StringGrid2.ColCount-1 do
   begin
   if n<>1 then
    if (StringGrid1.Cells[i,j]='') or (StringGrid2.Cells[i,j]='') then
     begin
      MessageBox(handle, PChar('Матрицы заполнены неправильно!'),
        PChar('Внимание!'), MB_OK+MB_ICONWARNING);
      n:=n+1;
      break;
     end
      else
      begin
      Sg3:=0;
      Sg1:=StrToInt(StringGrid1.Cells[i,k]);
      Sg2:=StrToInt(StringGrid2.Cells[k,j]);
        for k:=0 to StringGrid2.RowCount-1 do
        Sg3:=Sg3+Sg1*Sg2;
        StringGrid3.Cells[j,i]:=IntToStr(Sg3);
      end;
   end;
end;

[BDA]

Скорее всего:

begin
  Sg3:=0;
  for k:=0 to StringGrid2.RowCount-1 do
  begin
      Sg1:=StrToInt(StringGrid1.Cells[i,k]);
      Sg2:=StrToInt(StringGrid2.Cells[k,j]);
      Sg3:=Sg3+Sg1*Sg2;
  end;
  StringGrid3.Cells[j,i]:=IntToStr(Sg3);
end;

Но стоит переписать весь код:
1) Перенести оба стринггрида в динамические массивы, проверяя на корректность данные
2) Перемножить 2 массива
3) Перенести данные из массива-результата в стринггрид

[Denis0993]

с массивами не люблю работать и не понимаю я их =(( пожалуйста объясните где в моем коде ошибка и покажите правильный вариант =ю

[BDA]

Лучше 1 раз разобраться с массивами, так как это одна из ступенек к более сложным понятиям. Многие алгоритмы основаны на использовании массива.

Я показал Вам правильный вариант (насколько он правилен, Вы убедитесь сами при тестировании) - приведенный мною код, Ваша ветка else. Это исправит ошибки счета, но не спасет от ошибочно заполненных стринггридов.

[Denis0993]

спасибо разобрался с массивами и сделал =)