Delphi. Матрицы

[Lee_P]

Доброго времени суток всем!
Такая проблемка.
Задача на матрицы.
Составить описание объектного типа Матрица, обеспечивающего размещение матрицы произвольного размера, вывода на экран подматрицы любого размера и всей матрицы, перемножение 2-х матриц, транспонирование матрицы, получение обратной матрицы.

Сначала сделал вывод на экран трех матриц. Все работало. Потом решил сделать перемножение. Первые две матрицы оставил неизменными. А третью изменил. Стало выдавать ошибку.

В общем вот код:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button1: TButton;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    StringGrid3: TStringGrid;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    procedure Button1Click(Sender: TObject);
 
 
 
  private
    { Private declarations }
  public
  Procedure Install();   // Ввод массивов
  Procedure Print();     // Ввод массивов в таблицы
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  A,B,C: array of array of Integer;  //Исходные массивы
  N : Byte  ;       //Размеры исходных массивов
 
implementation
 
{$R *.dfm}
 
Procedure TForm1.Install();     //Ввод данных в массив
var
  i,j,k: Byte;//здесь изначально были только i,j потом потребовалось ввести еще и k для перемножения тут все и началось
begin
N:=StrToInt(Edit1.text);
SetLength(A,N,N);
SetLength(B,N,N);
SetLength(C,N,N);
 
 
For i:=0 to (N-1) do
  For k:=0 to (N-1) do
    A[i,k]:=Random(10)-Random(10);
 
 For k:=0 to (N-1) do
  For j:=0 to (N-1) do
    B[k,j]:=Random(10)-Random(10);
 
{For i:=0 to (N-1) do
  For j:=0 to (N-1) do
    C[i,j]:=Random(10)-Random(10);
end;     }
 
For i:=0 to (N-1) do
  For j:=0 to (N-1) do
  begin
    C[i,j]:=0;
    for k:=1 to (N-1) do
      C[i,j]:=C[i,j]+A[i,k]*B[k,j]
 end;
 
Procedure TForm1.print();       // Ввод данных в таблицу
var
  i,j,k: Byte;
begin
 
 For i:=0 to  (N-1) do
      For j:=0 to (N-1) do
        StringGrid2.Cells[k,i]:=IntToStr(A[i,k]);
 
    For i:=0 to  (N-1) do
      For j:=0 to (N-1) do
        StringGrid1.Cells[j,k]:=IntToStr(B[k,j]);
 
    For i:=0 to  (N-1) do
      For j:=0 to (N-1) do
        StringGrid3.Cells[j,i]:=IntToStr(C[i,j]);
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i,j: Byte;
 
begin
  Install();
  Print();
 
end;
end.

[Z1000000]

    
for k:=1 to (N-1) do
 C[i,j]:=C[i,j]+A[i,k]*B[k,j]

Почему от 1 цикл начинается, от нуля надо. В сумме должно быть N слагаемых.

 For i:=0 to  (N-1) do
      For j:=0 to (N-1) do
        StringGrid2.Cells[k,i]:=IntToStr(A[i,k]);
 
    For i:=0 to  (N-1) do
      For j:=0 to (N-1) do
        StringGrid1.Cells[j,k]:=IntToStr(B[k,j]);

А здесь перебираешь в циклах по i,j. А значения массива берешь с индексом k.

[Lee_P]

k ввел для перемножения матриц.