鱼C论坛

 找回密码
 立即注册
查看: 2210|回复: 0

[技术交流] 学教程做的程序

[复制链接]
发表于 2017-12-30 23:03:37 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

x
  看了教 程,学着做的程序,但是很多代码写的不规范,数组做出来效果一样,请大家点评不足。 Project1.rar (159.32 KB, 下载次数: 6)
代码公布如下:这个代码值要把大于号换小于号,就是最大值和最小值,但是不明白为什么会这样。
.........
{$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:=10 +Random (90);
     Edit1.Text:=IntToStr(num)+','+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  then
   max:=num;
   Edit2.Text:=IntToStr(max);
//复制上面代码换大小号,以下判断最小值
   max:=num[1];
   i:=1;
For i:=2 to 10 do
   if  max>num then
   max:=num;
   Edit3.Text:=IntToStr(max);
end;
end.
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-3-29 23:19

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表