Возведение матрицы в степень / UMain_F

unit UMain_F;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, UMatr, Gauges, Menus;

type
  TMain_F = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Razm_M: TBitBtn;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    BitBtn1: TBitBtn;
    GroupBox2: TGroupBox;
    Label6: TLabel;
    Edit5: TEdit;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Gauge1: TGauge;
    MainMenu1: TMainMenu;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    //N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure Razm_MClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    
  private
    { Private declarations }
    n:Longint;
    A,B,C: matr;
   public
    { Public declarations }
  end;

var
  Main_F: TMain_F;

implementation

uses UShow, Uprog, UHelp;
                
{$R *.dfm}

procedure TMain_F.FormCreate(Sender: TObject);
begin
  Edit2.Text:='';
  Edit3.Text:='';
  Edit4.Text:='';
  Edit5.Text:='';
  Caption:='Разреженные матрицы';
  N:=0;
end;

procedure TMain_F.Razm_MClick(Sender: TObject);
begin
 try
  n:=StrToInt(Edit1.Text);
  if (n<1) Or (n>Max) then
  begin
   MessageDlg('Вы ввели некорректную размерность!',mtError,[mbOK],0);
   exit;
  end;
  UMatr.Null(A,n);
  Edit1.Enabled:=False;
  //Razm_M.Enabled:=false;
  BitBtn1.Enabled:=true;
  BitBtn2.Enabled:=true;
 except
   MessageDlg('Вы ввели некорректную размерность!',mtError,[mbOK],0);
 End;
end;

procedure TMain_F.BitBtn1Click(Sender: TObject);

var i,j: ind_M;
    el: type_el;
 begin
  try
  i:=StrToInt(Edit2.Text);
  j:=StrToInt(Edit3.Text);
  el:=StrToInt(Edit4.Text);
  if ((i<1) or (i>n)) or
     ((j<1) or (j>n))
      or (el=0)  then
    begin
    MessageDlg('Некорректный ввод данных!',mtError,[mbOK],0);
    exit;
    end;
  Input(n,i,j,el,A);
  except
  MessageDlg('Некорректный ввод данных!',mtError,[mbOK],0);
  end;
end;

procedure TMain_F.BitBtn3Click(Sender: TObject);
begin
  if n=0 then
  begin
  MessageDlg('Матрица не создана!',mtError,[mbOK],0);
  exit;
  end;
  Show_F.Load(A, N);
  Show_F.ShowModal;

end;

procedure TMain_F.BitBtn2Click(Sender: TObject);
var deg, k, i, j:longint;
    Rez : type_el;
begin
   Try
     deg:=StrToInt(edit5.Text);
   Except
     MessageDlg('Некорректный ввод степени!',mtError,[mbOK],0);
     Exit;
   End;
   if deg<1 then
 begin
 MessageDlg('Некорректный ввод степени!',mtError,[mbOK],0);
 Exit;
 End;

 Gauge1.Progress := 0;

if deg=1 then
begin
  Gauge1.Progress := 100;
  C := A;
end
 else
   begin
    j:=0;
    Gauge1.Progress := Trunc((1 / Deg) * 100);
    CopyMatr(A,B,n);
    Null(C,n);
      For k:=2 to deg do
 	begin
          Gauge1.Progress := Trunc((K / Deg) * 100);
	  DelMatr(C,n);
	   For i:=0 to n-1 do
                      begin
		         For j:=0 to n-1 do
                                begin
			           Proizv (B,A,i,j,rez);
                                       if rez<>0 then
			                  Input(n,i+1,j+1,rez,C);
                                end;{for}
		          j:=0;
                       end; {for}
            DelMatr(B,n);
            CopyMatr(C,B,n);
        end; {for}

End;
  Show_F.Load(C,N);
  Show_F.ShowModal;
end;

procedure TMain_F.N2Click(Sender: TObject);
begin
  Form1.ShowModal;
end;

procedure TMain_F.N3Click(Sender: TObject);
begin
Help_F.ShowModal;
end;  

procedure TMain_F.N4Click(Sender: TObject);
begin
BitBtn4Click(Self);
end;

procedure TMain_F.BitBtn4Click(Sender: TObject);
begin
If MessageDlg('Вы уверены, что хотите завершить работу программы?', mtConfirmation,[mbYes ,mbNo],0)= mrYes then
begin
UMatr.DelMatr(A,n);
Umatr.DelMatr(B,n);
UMatr.DelMatr(C,n);  
Main_F.Close;
end;
end;

procedure TMain_F.BitBtn5Click(Sender: TObject);
var f_in:textfile;
    i,j:Ind_M;
    el:type_el;
begin
Razm_M.Enabled:=false;
Edit1.Enabled:=false;
BitBtn1.Enabled:=true;
assignfile (f_in,'a:\f.txt');
reset (f_in);
read(f_in,n);
Null(A,n);
while not eof(f_in)do
begin
read(f_in,i,j,el);
readln(f_in);
Input(n,i,j,el,A);
end;
end;


end.