Курсовая работа: Прямой метод вращения векового определителя
function Remove(Var rez: Matrix; i: integer): boolean;
// Умножение 2-х матриц
procedure Multiple(a,b:Matrix; Var rez: Matrix);
// Возвращение решений
function FindDet(Var a:Matrix):string;
// Обнуление матриц
procedure Zero(Var a:Matrix);
public
{ Public declarations }
end;
var Form1: TForm1;
implementation
{$R *.dfm}
function TForm1.FindDet(Var a: Matrix):string;
Var i,j : integer;
M,Mob,bac : Matrix;
flag : boolean;
begin
SetLength(M,Length(a[1]),Length(a[1]));
SetLength(Mob,Length(a[1]),Length(a[1]));
SetLength(bac,Length(a[1]),Length(a[1]));
flag:=true;
for i:=Length(a[1])-2 downto 0 do
// Построение матриц
BEGIN
// Обработка случая 2.1
if (a[i+1,i]=0) and (not Remove(a,i)) then
begin
// Если ничего не помогло