операции с матрицами

[Alexandr000006]

Не работает Button9---поиск определителя матрицы!!помогите найти ошибку пожалуйста,вот код программы

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, Buttons,Xpman;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    Matrix_A: TStringGrid;
    Matrix_B: TStringGrid;
    Matrix_C: TStringGrid;
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button9: TButton;
    Edit2: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure vivod;
    procedure vivodA;
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;
  const max=10;
type Matrix= array[1..max,1..max] of Real;


var
  Form1: TForm1;
  N,i,j,k:Integer;
  A,B,C,D:Matrix;

implementation

{$R *.dfm}
procedure TForm1.vivod;
begin
// формирование матрицы А
      for i:=1 to N do
           for j:=1 to N do
           try
               A[i,j]:=strToFloat(Matrix_A.Cells[j-1,i-1]);
               except
               showmessage('Матрица А записанна не верно');
                Matrix_A.Cells[j-1,i-1]:='';
                end;
// формирование матрицы B
      for i:=1 to N do
           for j:=1 to N do
           try
               B[i,j]:=strToFloat(Matrix_B.Cells[j-1,i-1]);
               except
               showmessage('Матрица B записанна не верно');
                Matrix_B.Cells[j-1,i-1]:='';
                end;
               end;
procedure TForm1.vivodA;
begin
// формирование матрицы А
      for i:=1 to N do
           for j:=1 to N do
               try
               A[i,j]:=strToFloat(Matrix_A.Cells[j-1,i-1]);
               except
               showmessage('Матрица А записанна не верно');
                Matrix_A.Cells[j-1,i-1]:='';
                end;
                end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
try
N:=StrToInt(Edit1.Text);
except
showmessage('Неправильный ввод');
Edit1.SelectAll;
Edit1.Text:='';
end;
// задание размеров матрицы А,В,C
Matrix_A.RowCount:=N;
Matrix_A.ColCount:=N;
Matrix_B.RowCount:=N;
Matrix_B.ColCount:=N;
Matrix_C.RowCount:=N;
Matrix_C.ColCount:=N;
end;





procedure TForm1.Button5Click(Sender: TObject);
begin
vivodA;
for i:=1 to N do
  for j:=1 to N do
  C[i,j]:=A[j,i];
  for j:=1 to N do
  for i:=1 to N do
  Matrix_C.Cells[j-1,i-1]:=FloatTostr(C[i,j]);
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
randomize;
for i:=1 to N do
for j:=1 to N do
begin
A[i,j]:=random(111);
Matrix_A.Cells[j-1,i-1]:=FloatToStr(A[i,j]);
end;
for i:=1 to N do
for j:=1 to N do
begin
B[i,j]:=random(111);
Matrix_B.Cells[j-1,i-1]:=FloatToStr(B[i,j]);
end;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
// формирование матрицы D
      for k:=1 to N do
           for i:=1 to N do
               D[k,i]:=0;
 vivod;
 for k:=1 to N do
 for i:=1 to N do
 begin
  for j:=1 to N do
  D[k,i]:=D[k,i]+A[k,j]*B[j,i];
  end;
  for i:=1 to N do
  for j:=1 to N do
  Matrix_C.Cells[j-1,i-1]:=FloatTostr(D[i,j]);
end;

procedure TForm1.Button9Click(Sender: TObject);
procedure Per(k,n:integer;var A:Matrix; var p:integer);
//перестановка строк, если главный элемент=0
var z:Real;j,i:integer;
begin
z:=abs(a[k,k]);i:=k;p:=0;
for j:=k+1 to n-1 do
   begin
     if abs(a[j,k])>z then
        begin
          z:=abs(a[j,k]);i:=j;
          p:=p+1;//счетчик перестановок
        end;
   end;
if i>k then
for j:=k to n-1 do
   begin
     z:=a[i,j];
     a[i,j]:=a[k,j];
     a[k,j]:=z;
   end;
end;
function Znak(p:integer):integer;
//при перестановке меняется знак определителя, надо его отследить
begin
if p mod 2=0 then
result:=1 else result:=-1;
end;
procedure Opr(n:integer;var A:Matrix;var det:real);
var k,i,j,p:integer;r:real;
begin
det:=1.0;
for k:=0 to n-1 do
  begin
    if a[k,k]=0 then Per(k,n,a,p);//перестановка строк
    det:=znak(p)*det*a[k,k];//вычисление определителя
    for j:=k+1 to n-1 do //пересчет коэффициентов
       begin
         r:=a[j,k]/a[k,k];
         for i:=k to n-1 do
         a[j,i]:=a[j,i]-r*a[k,i];
       end;
  end;
end;
var k,j,i:integer;
    A:Matrix;
    det:real;
begin
vivodA;
Opr(n,a,det);//определитель системы
Edit2.Text:=FloatToStr(det);
end;
end.

[MyLastHit]

var k,j,i:integer;
    A:Matrix;
    det:real;
begin
vivodA;
Opr(n,a,det);//определитель системы
Edit2.Text:=FloatToStr(det);
end;

А что это? И почему оно не в процедуре?

[Alexandr000006]

если это поместить в процедуру то выскакивает ошибка ,что нужен begin

[MyLastHit]

Никаких bigin'ов. Вы в процедуру обработчика кнопки поместите Компилятор не понимает что вы от него хотите.
И вообще зачем для поиска определителя матрицы целых 9 кнопок? Что у вас там на форме?

[Alexandr000006]

ну вот сама прога

а процедуры до обработчика кнопки вставить тогда?

[Stilet]

Не работает Button9

Ошибаешся - работает. Просто ее код состоит только из

Edit2.Text:=FloatToStr(det);

Ты в обработчике не вызываешь процедуру Opr

[Alexandr000006]

вызвал,работает но ответ не правильный!!