https://www.runoob.com/cprogramming/c-exercise-example5.html
题目：输入三个整数x,y,z，请把这三个数由小到大输出。
程序分析：我们想办法把最小的数放到x上，先将x与y进行比较，如果x>y则将x与y的值进行交换，然后再用x与z进行比较，如果x>z则将x与z的值进行交换，这样能使x最小。
实例
// Created by www.runoob.com on 15/11/9.
// Copyright © 2015年 菜鸟教程. All rights reserved.
//
include <stdio.h>
int main()
{
int x,y,z,t;
printf("\n请输入三个数字:\n");
scanf("%d%d%d",&x,&y,&z);
if (x>y) { /交换x,y的值/
t=x;x=y;y=t;
}
if(x>z) { /交换x,z的值/
t=z;z=x;x=t;
}
if(y>z) { /交换z,y的值/
t=y;y=z;z=t;
}
printf("从小到大排序: %d %d %d\n",x,y,z);
}
以上实例输出结果为：
请输入三个数字:
1
3
2
从小到大排序: 1 2 3
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d:integer;
begin
//这就是个冒泡排序
a:=9; //随便进行三个参数的赋值
b:=8;
c:=7;
if a>b then
begin
d:=a; //如果a>b。就把a赋值给临时变量d，
a:=b; //然后把b赋值给a，
b:=d; //然后把d赋值给b，这样经过临时变量d后，就实现了a,b值的互换。 最后a=8 b=9
end;
if a>c then // 此时a=8 c=7 这段和底下那段不能互换，也不能缺失。否则会出错，这段表明联合上一段表明a和所有的比对对象循环做了一次彻底的比对。
begin
d:=a;
a:=c;
c:=d; //此时 a=7 c=8
end;
if b>c then //此时 b=9 c=8 这段不能缺失。否则会出错。表明按层，从顶到底和比对对象循环比对了一轮
begin
d:=b;
b:=c;
c:=d;
end; //此时 b=8 c=9
showmessage(inttostr(a)+inttostr(b)+inttostr(c));
end;
