Приложение д

 

Листинги программ к лабораторной работе 5

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Menus, StdCtrls, Grids;

type

  TForm1 = class(TForm)

    MainMenu1: TMainMenu;

    PopupMenu1: TPopupMenu;

    StringGrid1: TStringGrid;

    Button1: TButton;

    Button2: TButton;

    Memo1: TMemo;

    Button6: TButton;

    N1: TMenuItem;

    max1: TMenuItem;

    min1: TMenuItem;

    sum: TMenuItem;

    N2: TMenuItem;

    clear1: TMenuItem;

    clearstringgrid1: TMenuItem;

    clearmemo1: TMenuItem;

    close1: TMenuItem;

    Button7: TButton;

    Button3: TButton;

    max2: TMenuItem;

    min2: TMenuItem;

    sum1: TMenuItem;

    memoclear1: TMenuItem;

    close2: TMenuItem;

    procedure Button7Click(Sender: TObject);

    procedure max1Click(Sender: TObject);

    procedure min1Click(Sender: TObject);

    procedure sumClick(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure close1Click(Sender: TObject);

    procedure clearstringgrid1Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure clearmemo1Click(Sender: TObject);

    procedure max2Click(Sender: TObject);

  

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;    a:array [1..5,1..5] of integer;

implementation

{$R *.dfm}

procedure TForm1.Button7Click(Sender: TObject);

var i,j:integer;

begin

 for i:=1 to 5 do

 for j:=1 to 5 do

    a[i,j]:=strtoint(stringgrid1.Cells[j-1,i-1]);

end;

procedure TForm1.max1Click(Sender: TObject);

var max:integer;    i,j:integer;

begin

 max:=a[1,1];

    for i:=1 to 5 do

      for j:=1 to 5 do

        if a[i,j]>=max then max:=a[i,j];

        memo1.Lines.Add('max value ='+ inttostr(max));

end;

procedure TForm1.min1Click(Sender: TObject);

var min:integer;  i,j:integer;

begin

 min:=a[1,1];

  for i:=1 to 5 do

      for j:=1 to 5 do

        if a[i,j]<=min then min:=a[i,j];

        memo1.Lines.Add('min value ='+ inttostr(min));

end;

procedure TForm1.sumClick(Sender: TObject);

var sum:integer;  i,j:integer;

begin

sum:=0;

 for i:=1 to 5 do

      for j:=1 to 5 do

     sum:=sum+a[i,j];

        memo1.Lines.Add('sum ='+ inttostr(sum));

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

 max1Click(max1);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

 min1Click(min1);

end;

procedure TForm1.close1Click(Sender: TObject);

begin

 button6Click(button6);

end;

procedure TForm1.clearstringgrid1Click(Sender: TObject);

var i,j:integer;

begin

 for i:=0 to 4 do

   for j:=0 to 4 do

   StringGrid1.Cells[j,i]:=' ';

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

memo1.Clear;

end;

procedure TForm1.clearmemo1Click(Sender: TObject);

begin

 button3Click(button3);

end;

procedure TForm1.max2Click(Sender: TObject);

begin

 max1Click(max1);

end;

end.