学教程做的程序

llww20000

  看了教 程，学着做的程序，但是很多代码写的不规范，数组做出来效果一样，请大家点评不足。 Project1.rar (159.32 KB, 下载次数: 8)

2017-12-30 23:00 上传

点击文件名下载附件
数组

代码公布如下：这个代码值要把大于号换小于号，就是最大值和最小值，但是不明白为什么会这样。
.........
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
  Var
  num:Array [1..10] Of Integer;
  max,min, i:Integer;//max最大值。
begin
     Edit1.Text:='';
     Edit2.Text:='';
     Edit3.Text:='';
   For i:=1 To 10 do
   begin
     num[i]:=10 +Random (90);
     Edit1.Text:=IntToStr(num[i])+','+Edit1.Text;
   end;
   Edit1.Text:=Copy ( Edit1.Text,1,Length(Edit1.Text)-1  ) ;
//以下判断最大值
   max:=num[1];
   i:=1;
   For i:=2 to 10 do
   if max<num[i]  then
   max:=num[i];
   Edit2.Text:=IntToStr(max);
//复制上面代码换大小号，以下判断最小值
   max:=num[1];
   i:=1;
For i:=2 to 10 do
   if  max>num[i] then
   max:=num[i];
   Edit3.Text:=IntToStr(max);
end;
end.