鱼C论坛

 找回密码
 立即注册
查看: 3915|回复: 2

[技术交流] 三个数字排序

[复制链接]
发表于 2015-12-24 09:09:20 | 显示全部楼层 |阅读模式

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

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

x
  1. var
  2.   Form1: TForm1;

  3. implementation

  4. {$R *.dfm}

  5. procedure TForm1.edt1Click(Sender: TObject);
  6. begin
  7.     edt1.Text := '';
  8. end;

  9. procedure TForm1.edt2Click(Sender: TObject);
  10. begin
  11.     edt2.Text := '';
  12. end;

  13. procedure TForm1.edt3Click(Sender: TObject);
  14. begin
  15.     edt3.Text := '';
  16. end;

  17. procedure TForm1.btn1Click(Sender: TObject);
  18. var str1,str2,str3,temp : Integer ;

  19. begin
  20.   str1:= StrToInt(edt1.Text);
  21. str2:= StrToInt(edt2.Text);
  22. str3:= StrToInt(edt3.Text);
  23.       if str1 < str2 then
  24.         begin
  25.           temp := str1 ;
  26.           str1 := str2 ;
  27.           str2 := temp ;
  28.         end;




  29.       if str1 < str3 then
  30.         begin
  31.             temp := str1 ;
  32.             str1 := str3 ;
  33.             str3 := temp;
  34.         end;



  35.       if str2 < str3 then
  36.           begin
  37.             temp := str2 ;
  38.             str2 := str3 ;
  39.             str3 := temp ;
  40.           end;





  41.       edt1.Text := IntToStr(str3);
  42.       edt2.Text := IntToStr(str2);
  43.       edt3.Text := IntToStr(str1);
  44. end;

  45. procedure TForm1.btn2Click(Sender: TObject);
  46. begin
  47.     Close ;
  48. end;

  49. end.
复制代码
2-2.png
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2016-8-2 12:48:20 | 显示全部楼层
guolai 看看
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2021-6-18 15:12:42 | 显示全部楼层
6
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 16:26

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

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