перемножение матриц

[mozg2011]

вот посмотрите, немогу понять где ошибка
SG1 и SG2 это матрицы, которые мы вводим!
SG3 это их произведение!
вот код:

procedure TForm3.Multiply;
var
w: string;
q: Integer;
begin
for i := 0 to SG3.ColCount-1 do
for j := 0 to SG3.RowCount-1 do
begin
SG3.Cells[i,j]:='0';
end;
for i := 0 to SG3.ColCount-1 do
for j := 0 to SG3.RowCount-1 do
begin
for q := 0 to SG1.ColCount-1 do
begin
w:=IntToStr(StrToInt(SG1.Cells[i,q])*StrToInt(SG2.Cells[q,j]));
SG3.Cells[i,j]:=IntToStr(StrToInt(SG3.Cells[i,j])+StrToInt(w));
end;
end;
end;

он не хочет выводить все ячейки и пишет вот такую ошибку
is not a valid integer value.

[mozg2011]

ну блин, может поможет ктонить???

[Прячущая Хвост]

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

ну блин, может поможет ктонить???

Так ошибки не вижу. F7 - и гоу проверять значения глазками, авось найдёшь какое выходит не integer.

Если приложение не очень большое и не жалко, кинь архив, я посмотрю.

[TorrentTor]

Привожу твой код в котором ты складывал (только теперь тут умножаем да и только, а то ты что-то совсем намудрил тут)

procedure TForm3.Button2Click(Sender: TObject);
var i,j: integer;
a,b: integer;
begin
for i := 0 to SG1.ColCount-1 do
for j := 0 to SG1.RowCount-1 do
begin
a:= StrToInt(SG1.Cells[i,j]);
b:= StrToInt(SG2.Cells[i,j]);
SG3.Cells[i,j]:= IntToStr(a * b);
end;
SG3.Visible:=True;
end;

[phomm]

Задание кинь, а то непонятно зачем тебе тройной цикл.

Проверь, чтобы параметры гридов были одинаковы, а то может где-то выходишь за размерность.

А вообще очень вероятно что у тебя где-то в SG1/2 есть просто пустые строчки, например фиксированные колонки/столбцы, пустая строка не может быть переведена в число вот и выдает ошибку.
Можно использовать Strtointdef чтобы при неверном вводе получать законный 0, а не ошибку.

[mozg2011]

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

только теперь тут умножаем да и только, а то ты что-то совсем намудрил тут

это перемножение матриц, так не прокатит!!

[mozg2011]

Сообщение от Прячущая Хвост

Так ошибки не вижу. F7 - и гоу проверять значения глазками, авось найдёшь какое выходит не integer.

я пробовал проверять, не нашел!!

[GBAXA]

Когдато сам делал курсовую. Нужно быбо с матрицами поработать. Если надо могу модуль который сам написал скинуть. Только давно ето было и сам уже наверно не обень в нем разбирусь

[mozg2011]

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

Когдато сам делал курсовую. Нужно быбо с матрицами поработать. Если надо могу модуль который сам написал скинуть. Только давно ето было и сам уже наверно не обень в нем разбирусь

о скинь пожаласта, попробую разобраться!

[munthrekosh]

Последний раз когда делал перемножение матриц. Делал следующие:

Это если просто внутри составлять матрицы

var
  A,B,C:
     array of array of extended;

procedure TForm1.Button1Click(Sender: TObject);

var
  n, m, k,i,j,idigits,ipos: integer;
  s: string;
  l: Integer;

begin
  label3.Caption:='Програма начала работу'+char(13)+char(10)+DateToStr(Now)+char(13)+char(10)+TimeToStr(Now);

  idigits:=6;
  ipos:=8+idigits;

  if LabeledEdit1.Text=''
    then
      begin
        ShowMessage('Где n?');
        Exit;
      end;

  if LabeledEdit2.Text=''
    then
      begin
        ShowMessage('Где m?');
        Exit;
      end;

  if LabeledEdit3.Text=''
    then
      begin
        ShowMessage('Где k?');
        Exit;
      end;

  n:=StrToInt(LabeledEdit1.Text);
  m:=StrToInt(LabeledEdit2.Text);
  k:=StrToInt(LabeledEdit3.Text);

  SetLength(A,n,m);
  SetLength(B,m,k);
  SetLength(C,n,k);

  for i:= 0 to n-1 do
    for j:= 0 to m-1 do
      A[i,j]:=i+j+1;

  Memo1.Lines.Add('Матрица А');

  for i:= 0 to n-1 do
    begin
      s:='';
      for j := 0 to m-1 do
        s:=s+Format('%*.*e',[ipos,idigits,A[i,j]]);
      Memo1.Lines.Add(s);
    end;

  Memo1.Lines.Add('');
  Memo1.Lines.Add('Матрица B');

  for i:= 0 to m-1 do
    for j:= 0 to k-1 do
      B[i,j]:=1.0/(i+j+1.0);

  for i:= 0 to m-1 do
    begin
      s:='';
      for j := 0 to k-1 do
        s:=s+Format('%*.*e',[ipos,idigits,B[i,j]]);
      Memo1.Lines.Add(s);
    end;

  for i := 0 to n - 1 do
    for j := 0 to k - 1 do
      begin
        C[i,j]:=0;
        for l := 0 to m - 1 do
          C[i,j]:=C[i,j]+A[i,l]*B[l,j];
      end;

  Memo1.Lines.Add('');
  Memo1.Lines.Add('Матрица C');

  for i:= 0 to n-1 do
    begin
      s:='';
      for j := 0 to k-1 do
        s:=s+Format('%*.*e',[ipos,idigits,C[i,j]]);
      Memo1.Lines.Add(s);
    end;

    label4.Caption:='Програма закончила работу'+char(13)+char(10)+DateToStr(Now)+char(13)+char(10)+TimeToStr(Now);

end;

А так делал если из файла

procedure TForm1.Button2Click(Sender: TObject);

var
f_name,s: string;
fff: TextFile;
n,m,k,i,j,l,ipos,idigits: integer;

begin

  idigits:=6;
  ipos:=8+idigits;

  ForceCurrentDirectory:=true;

  if OpenDialog1.Execute
    then
      f_name:=OpenDialog1.FileName
    else
      begin
        ShowMessage ('Файл не выбран!');
        Exit;
      end;

  label3.Caption:='Програма начала работу'+char(13)+char(10)+DateToStr(Now)+char(13)+char(10)+TimeToStr(Now);

  AssignFile(fff,f_name);
  Reset (fff);
  readln(fff);
  readln(fff);
  readln(fff);
  readln(fff,n);
  readln(fff);
  readln(fff);
  readln(fff,m);
  readln(fff);

  LabeledEdit1.Text:=IntToStr(n);
  LabeledEdit2.Text:=IntToStr(m);

  SetLength(A,n,m);

  readln(fff);

  for i:=0 to n-1 do
    for j:=0 to m-1 do
      if j=m-1
        then
          readln(fff,A[i,j])
        else
          read(fff,A[i,j]);

  Memo1.Lines.Add('Матрица А');

  for i:= 0 to n-1 do
    begin
      s:='';
      for j := 0 to m-1 do
        s:=s+Format('%*.*e',[ipos,idigits,A[i,j]]);
      Memo1.Lines.Add(s);
    end;

    readln(fff);
    readln(fff);
    readln(fff,k);
    readln(fff);

    LabeledEdit3.Text:=IntToStr(k);

    SetLength(B,m,k);

    readln(fff);

    Memo1.Lines.Add('');

    for i:=0 to m-1 do
      for j:=0 to k-1 do
        if j=k-1
          then
            readln(fff,B[i,j])
          else
            read(fff,B[i,j]);

  Memo1.Lines.Add('Матрица B');

  for i:= 0 to m-1 do
    begin
      s:='';
      for j := 0 to k-1 do
        s:=s+Format('%*.*e',[ipos,idigits,B[i,j]]);
      Memo1.Lines.Add(s);
    end;

    SetLength(C,n,k);

    for i := 0 to n - 1 do
      for j := 0 to k - 1 do
        begin
          C[i,j]:=0;
          for l := 0 to m - 1 do
            C[i,j]:=C[i,j]+A[i,l]*B[l,j];
        end;

  Memo1.Lines.Add('');
  Memo1.Lines.Add('Матрица C');

  for i:= 0 to n-1 do
    begin
      s:='';
      for j := 0 to k-1 do
        s:=s+Format('%*.*e',[ipos,idigits,C[i,j]]);
      Memo1.Lines.Add(s);
    end;

  label4.Caption:='Програма закончила работу'+char(13)+char(10)+DateToStr(Now)+char(13)+char(10)+TimeToStr(Now);    

end;