Умножение двух матриц одинаковой размерности 3х3 в Delphi

[Htebazile]

Умножение Матриц 3х3 в Делфи, вот и все что надо сделать. Нужно написать простенькую программу, но я в дельфи вообще практически не разбираюсь(перевелся на др. специальность, теперь надо закрыть академ разницу, а мы не проходили практически делфи). Помогите плиз доделать, или объясните как. Вот я написал для начала, но не знаю почему не умножает. Там осталось доделать на 5 мин работы наверно. Ошибок не выдает.
P.S. Пожалуйста не смейтесь.

[Htebazile]

Объясните пожалуйста, что мне еще там нужно доделать.

[evg_m]

procedure TForm1.Button1Click(Sender: TObject);
Var 
  c,d,n2: array[1..10,1..10] of real;
  i,j,k:integer;
begin
 For i:=0 to 3 do
   For j:= 0 to 3 do
     c[i,j]:= StrToInt(A.Cells[j,i]);

 For i:=0 to 3 do
   For j:= 0 to 3 do
     d[i,j]:= StrToInt(B.Cells[j,i]);

 for j:=0 to 3 do 
 begin
   For i:=0 to 3 do 
   begin
     n2[i,j]:=0;
     for k:= 0 to 3 do
     begin 
       n2[i,j]:= n2[i,j]+c[i,k]*d[k,j];
     end;
//можно выводить сразу как посчитали и тогда следующий цикл не нужен.
     AB.Cells[j,i]:=FloatToStr(n2[i,j]);
   end;
 end;

begin // ЗДЕСЬ begin не нужен.  
For i:=0 to 3 do
For j:=0 to 3 do
   n2[k,i]:=n2[k,i]+c[k,j]*d[j,i]; //а что такое k ЗДЕСЬ для ЭТОГО цикла? зачем здесь после подсчета еще раз считать?

AB.Cells[j,i]:=FloatToStr(n2[i,j]);//а вот это в цикл не входит, после оператора цикла(for do) НЕТ begin посему и не выводит ("не считает")

end;// если нет begin то и end не нужен.

end;

//а что такое k ЗДЕСЬ для ЭТОГО цикла?

про такое компилятор вообще-то сообщает. называется [Warning]
т.е. вообще-то допустимо, но скорее что-то будет не так как вы ожидаете.

[Warning] controller.pas(330): FOR-Loop variable 'k' may be undefined after loop

[Htebazile]

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

1 -   n2[k,i]:=n2[k,i]+c[k,j]*d[j,i]; //а что такое k ЗДЕСЬ для ЭТОГО цикла? зачем здесь после подсчета еще раз считать?

2 - AB.Cells[j,i]:=FloatToStr(n2[i,j]);//а вот это в цикл не входит, после оператора цикла(for do) НЕТ begin посему и не выводит ("не считает")

end;// если нет begin то и end не нужен.


end;

Я делал по методичке, поэтому наверно лишнее тут k. Получается для того, чтобы работала программа, "1" - мне нужно вообще убрать, а "2" исправить? Перед оператором цикла поставить begin?

[evg_m]

"1" - мне нужно вообще убрать, а "2" исправить?

именно так. и при удалении 1. следующая строка попадает в цикл и 2. автоматически исправляется.

а еще можно воспользоваться 0

//можно выводить сразу как посчитали и тогда следующий цикл не нужен.
AB.Cells[j,i]:=FloatToStr(n2[i,j]);

[Htebazile]

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

именно так. и при удалении 1. следующая строка попадает в цикл и 2. автоматически исправляется.

а еще можно воспользоваться 0

Вот я привел вроде в божеский вид(скидываю), но когда пытаюсь умножить, выскакивает вот такая ошибка.

[evg_m]

:=strtoint(a.Cells[j,i]);
ищите где вы используете для получения числа ПУСТУЮ ячейку. (без всякого явно заданного числа).
Delphi такую строку(пустую) не считает числом.

[Htebazile]

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

:=strtoint(a.Cells[j,i]);
ищите где вы используете для получения числа ПУСТУЮ ячейку. (без всякого явно заданного числа).
Delphi такую строку(пустую) не считает числом.

Извините за мою некомпетентность, но не очень понимаю о чем, т.к. говорю, что дельфи практически не проходил=( вроде как раз нигде не использую пустую ячейку, в коде такой пустой строки не нашел, ч/з F8 не находит ничего. Чтобы не менял, все та же ошибка=(
Как именно можно это исправить?

[GetMax]

У вас все StringGrid'ы имеют размерность 3х3, а соответственно номер последнего столбца и строки будет 2. И циклы соответственно должны быть от 0 до 2. И чтобы избежать подобной ошибки лучше пользовать циклом вида

for i := 0 to SG.RowCount - 1 do
  for j := 0 to SG.ColCount - 1 do

где SG - имя вашего грида.
И еще у вас все циклы начинаются с 0, а массивы объявлены как [1..10, 1..10]. Тогда уж и массивы описывайте [0..9,0..9].