Кантрольная по программированию №1(вариант 7) / Unit1

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    StringGrid1: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    StringGrid2: TStringGrid;
    Button5: TButton;
    XPManifest1: TXPManifest;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  A:array[1..21,1..21]of extended;
  B:array[1..21] of Extended;
  N,i,j,k,m,f,x: integer;
  ind: boolean;
implementation

{$R *.dfm}
//Размерность матрицы(StringGrid)
procedure TForm1.Button1Click(Sender: TObject);
begin
   N:=strtoint(edit1.text) ;
   StringGrid1.RowCount:=n+1;
   StringGrid1.ColCount:=N+1;
   StringGrid2.RowCount:=N+1;
   StringGrid1.Cells[0,0]:='Массив A';
   StringGrid2.Cells[0,0]:='Массив B';
   for i:=1 to n do 
    begin
      StringGrid1.Cells[0,i]:=inttostr(i);
      StringGrid1.Cells[i,0]:=inttostr(i);
     end;
end;
//Заполняем случайными числами
procedure TForm1.Button2Click(Sender: TObject);
begin
for i:=1 to n do
    begin
     For j:=1 to n do
      begin
       Stringgrid1.Cells[i,j]:=floattostr(random(50)-20);
       Stringgrid1.Update;
       sleep(50);
     end;
    end;
   Button3.Enabled:=true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  N:=3;
  StringGrid1.RowCount:=n+1;
  StringGrid1.ColCount:=N+1;
  StringGrid2.RowCount:=N+1;
  StringGrid1.Cells[0,0]:='Array A';
  StringGrid2.Cells[0,0]:='Array B';
  for i:=1 to n do 
   begin
    StringGrid1.Cells[0,i]:=inttostr(i);
    StringGrid1.Cells[i,0]:=inttostr(i);
   end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
begin
  for i:=1 to n do 
   begin
    For j:=1 to n do 
     begin
      Stringgrid1.Cells[i,j]:='';
      Stringgrid2.Cells[0,j]:='';
     end;
   end;
end;


end;
//Получаем и выводим массив B
procedure TForm1.Button4Click(Sender: TObject);
begin
for i:=1 to n do
 begin
   ind:=true;
   for j:=1 to m div 2 do
     if a[i,j]<>a[i,m+1-j] then ind:=false;
   if ind=true then b[i]:=1 else b[i]:=0;
 stringgrid2.Cells[0,i]:=floattostr(B[i]);
stringgrid2.Update;
end;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
 Close();
end;

end.