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. 哈哈哈哈！！