delphi编程

在窗体上随机产生并显示10个100以内的正整数，单击窗体上的[最大值]按钮，显示10个整数的最大值；单击窗体上【最小值】按钮，显示10个整数的最小值；单击窗体上【平均值】按钮，则显示10个整数的平均值

答案：
楼上抄袭的额
我附刚做的原码和截图
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
var
  inum: array[0..9] of Byte;
  MaxNum, MinNum: Byte;
  AverageNum: Double;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Byte;
begin
  Randomize;
  for i := Low(inum) to High(inum) do
  begin
    if i in [0..4] then
    begin
      inum[i] := Random(100) + 1;
      Canvas.TextOut((i + 1) * 30, 10, IntToStr(inum[i]));
    end;
    if i in [5..9] then
    begin
      inum[i] := Random(100) + 1;
      Canvas.TextOut((i - 5 + 1) * 30, 30, IntToStr(inum[i]));
    end;
  end;
  MaxNum := inum[Low(inum)];
  MinNum := inum[Low(inum)];
  AverageNum := 0;
  for i := Low(inum) to High(inum) do
  begin
    if inum[i] > MaxNum then
      MaxNum := inum[i];
    if inum[i] < MinNum then
      MinNum := inum[i];
    AverageNum := AverageNum + inum[i];
  end;
  AverageNum := AverageNum / 10;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage('最大值 -> ' + IntToStr(MaxNum));
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
  ShowMessage('最小值 -> ' + IntToStr(MinNum));
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
  ShowMessageFmt('%.1f', [AverageNum]);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Caption := '产生随机数';
  Button2.Caption := '最大数';
  Button3.Caption := '最小数';
  Button4.Caption := '平均数';
end;
end.

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) maxnum: TButton; minnum: TButton; avenum: TButton; Label1: TLabel; procedure maxnumClick(Sender: TObject); procedure FormActivate(Sender: TObject); procedure minnumClick(Sender: TObject); procedure avenumClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; a:array[1..10] of integer; implementation {$R *.dfm} procedure TForm1.maxnumClick(Sender: TObject); var i,max:integer; begin max:=a[1]; for i:=2 to 10 do if a[i]>max then max:=a[i]; label1.Caption :=inttostr(max); end; procedure TForm1.FormActivate(Sender: TObject); var i:integer; begin for i:=1 to 10 do begin randomize; a[i]:=random(100); label1.Caption :=label1.Caption +' '+inttostr(a[i]); end; end; procedure TForm1.minnumClick(Sender: TObject); var i,min:integer; begin min:=a[1]; for i:=2 to 10 do if a[i]<min then min:=a[i]; label1.Caption :=inttostr(min); end; procedure TForm1.avenumClick(Sender: TObject); var i,sum:integer; av:single; begin sum:=0; for i:=1 to 10 do sum:=sum+a[i]; av:=sum/10; label1.Caption :=floattostr(av); end; end. 哈哈哈哈！！

上一个：delphi如何导出EXCEL
下一个：delphi问题