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

[s.Creator]

Ты надеюсь с преподавателем обсуждала ( чтоб совсем не пролететь )
п.3 - почти как ты начинала то есть в отдельном модуле

interface

type
  TIntMatrix = array of array of Integer;

function MatrixSumm(const matrix1, matrix2: TIntMatrix): TIntMatrix;
//....

а в форме гриды в матрицы и обратно

замена ( в цикле )

s := LeftMatrixGrid.Cells[0, i];
LeftMatrixGrid.Cells[0, i] := LeftMatrixGrid.Cells[2, i];
LeftMatrixGrid.Cells[2, i] := s;

[DomiNick]

Если матрица квадратная - то определитель матрицы удобно вычислять из верхнетреугольной матрицы (прямой ход Гаусса)...
Программа должна быть рассчитана на "неквадратные" матрицы?

[s.Creator]

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

Если матрица квадратная - то определитель матрицы удобно вычислять из верхнетреугольной матрицы (прямой ход Гаусса)...
Программа должна быть рассчитана на "неквадратные" матрицы?

Тут достаточно на квадратные ( тем более что даже википедия говорит про квадратные Определитель матрицы является многочленом от элементов квадратной матрицы ).

Про Гауса что-то знакомое, но думаю, что подойдет обычная рекурсия - только основная функция будет интересная по созданию ( Дополнительный минор

[s.Creator]

procedure TForm1.LeftMatrixGridKeyPress(Sender: TObject; var Key: Char);
begin
 if not(Key in ['0'..'9',#8,DecimalSeparator]) then Key:=#0
end;

Только заметил.
А в матрицах только целые числа или с запятой ?
если целые то DecimalSeparator ненужен, если с запятой то не StrToInt а StrToFloat надо применять.

[s.Creator]

Кто протестирует функцию вычисления определителя квадратной матрицы ?
function DetMx(const matrix: TIntMatrix): Integer;

unit Unit1;

interface

type
  TIntMatrix = array of array of Integer;

// определитель матрицы
function DetMx(const matrix: TIntMatrix): Integer;

function Min(A, B: Integer): Integer;

implementation

uses SysUtils;

function MinorMx(const matrix: TIntMatrix; col: Integer): TIntMatrix;
var
  len, c, r: Integer;
begin
  len := Length(matrix) - 1;
  SetLength(Result, len, len);
  for r := 1 to len do
    for c := 0 to len do
      if c < col then
        Result[r, c] := matrix[r, c]
      else if c > col then
        Result[r, c - 1] := matrix[r, c];
end;

function znak(i: Integer): Integer;
begin
  if (i mod 2) = 0 then
    Result := 1
  else
    Result := -1;
end;

function DetMx(const matrix: TIntMatrix): Integer;
var
  c, len: Integer;

begin
  len := Length(matrix);
  if (len < 1) or ( len <> Length(matrix[0])) then
    raise Exception.Create('Матрица не квадратная');

  if len = 1 then
  begin
    Result := matrix[0, 0];
    Exit;
  end;

  Result := 0;
  for c := 0 to len - 1 do
  begin
    Result := Result + matrix[0, c]*(DetMx(MinorMx(matrix, c))*znak(c));
  end;


end;

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

end.

[Manik]

я протестирую)
с пунктом 3 препод весьма популярно объяснил)
вернее не только с ним, но всякое использование опций StringGrid было обругано и запрещено(замечу, что препод даже не видел мою прогу)), только частично первую версию.

procedure TForm1.LeftMatrixGridKeyPress(Sender: TObject; var Key: Char);
begin
 if not(Key in ['0'..'9',#8,DecimalSeparator]) then Key:=#0
end;

честно спёрт у одногруппника и совсем не осознан.
не ест отрицательные значения,что нехорошо..

постараюсь за сегодня сложить и написать новый вариант)

спасибо вам огромное, что не бросаете)
честное слово,не ожидала)

[s.Creator]

поясни

но всякое использование опций StringGrid было обругано и запрещено

Вообще без Гридов или сперва из грида в матрицу а затем действие потом обратно
или как? ( типа в мемо чтоли )

Если только целые пойдет

procedure TForm1.LeftMatrixGridKeyPress(Sender: TObject; var Key: Char);
begin
 if not(Key in ['0'..'9',#8,'-']) then Key:=#0
end;

[Manik]

из грида в матрицу,действие, из матрицы-в грид.
*в примере,показанном на паре матрицы вообще вводились в StringGrid через Edit.(через пробел), но при всём желании такого изврата я принять не могу...

странно, а у меня этот код выдавался с ошибкой...
наверное скобки перепутала)

[Manik]

из грида в матрицу,действие, из матрицы-в грид.
*в примере,показанном на паре матрицы вообще вводились в StringGrid через Edit.(через пробел), но при всём желании такого изврата я принять не могу...

странно, а у меня этот код выдавался с ошибкой...
наверное скобки перепутала)

[DeKot]

Убрал.Что то сбилось при отсылке