проблема с матрицей

[kommunist]

Добрый вечер. у меня программа вычисляющая детерминант(опредилитель) двумерной матрицы matr[i,j].
на работает не так как надо. я только недавно начал программирывать и вот мой листинг. Посмотрите вот мой листинг может подскажете что не так Да какие функции надо использовать чтобы ввести числа в ячейки таблицы.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
i:integer; {èíäåêñ ìàññèâà }
j:integer; {èíäåêñ ìàññèâà }
x:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var d:integer; {îïðåäåëèòåëü ìàòðèöû}
matr: array [0..1,0..1] of integer;
begin

d:=matr[0,0]*matr[1,0]-matr[0,1]*matr[1,1];
form1.Label1.Caption:= inttostr(d);
end;
end.

[AlDelta]

Памятка математикам: "Геометрические фигуры - никогда не заменят женские!" (Леонид С.Сухоруков)

Попробуй использовать класс TMatrix

Класс TMatrix реализует основные действия над матрицами действительных чисел. Может быть применён для решения систем уравнений в матричной форме

(A * X = B => X = A^(-1) * B),
различных матричных преобразований и везде там, где производятся действия над матрицами.

Возможности:
Загрузка матрицы из текстового файла (Пример файла содержится в архиве).
Создание дубликата матрицы.
Поэлементное создание матрицы.
Быстрое создание единичной матрицы.
Умножение матрицы на число.
Сложение, вычитание матриц.
Умножение матриц.
Возведение матрицы в целую степень.
Нахождение определителя матрицы. //<--DetMatrix()-->если не ошибаюсь
Нахождение минора матрицы.
Нахождение ранга матрицы.
Удаление (вставка) строк (столбцов). При вставке необходимо создать матрицу, которую будем вставлять.
А также другие элементарные действия над матрицами (Транспонирование, поворот, отражение).
Ограничения:
Количество столбцов или строк не может быть больше 65535 (Мощность типа Word);
Алгоритм нахождения обратной матрицы для больших порядков работает очень долго, т.к. она вычисляется по формуле

(1/Det)*[A]^T,
приходится находить все алгебраические дополнения. В следующих версиях он будет заменён на более быстрый

[A|E] -> [E|B] => A^(-1) = B;
Скорость вычисления ранга тоже пока оставляет желать лучшего.

Исходные коды класса TMatrix и пример использования (8 K)

[kommunist]

слушай aldelta ты сегдня мне очень сильно помог спасибо тебе большое

[kommunist]

спасибо работает

[AlDelta]

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

спасибо работает

Звертайся, якщо треба, чим зможем тим поможемо...

Благодарность - признак благородства души. (Эзоп)

[kommunist]

а все таки какая функця в delphi может заполнить таблицу случайными значениями

[AlDelta]

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

а все таки какая функця в delphi может заполнить таблицу случайными значениями

функция random( ), вставленная в двойной цикл:

randomize;
for i:=1 to n do
for j:=1 to m do
A[i,j]:=random(x);

Высшее образование, кроме диплома, многим дало еще и вкладыш с оценками.

[kommunist]

примного благодарен!!!!!!

[AlDelta]

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

примного благодарен!!!!!!

http://www.programmersforum.ru/showp...57&postcount=5