作业帮用Delphi设计一个程序,从键盘输入a,b,c3个整数,将它们按照从大到小的次序输出请用Delphi编写,运行成功后请截下图.
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/06 10:42:39
用Delphi设计一个程序,从键盘输入a,b,c3个整数,将它们按照从大到小的次序输出请用Delphi编写,运行成功后请截下图.
用Delphi设计一个程序,从键盘输入a,b,c3个整数,将它们按照从大到小的次序输出
请用Delphi编写,运行成功后请截下图.
用Delphi设计一个程序,从键盘输入a,b,c3个整数,将它们按照从大到小的次序输出请用Delphi编写,运行成功后请截下图.
//uses math;//为了它的使用max 和min 函数；
//在public处,添加一个自定义排序函数sort,原型为：
function sort(a:integer;b:integer;c:integer):string;
实现如下：
function TForm1.sort(a, b, c: integer): string;
var
d:array[0..2] of integer;
temp,one,two,three,f:integer;
begin
// 取得a,b,c三个数的最大值,存入one中
temp:=max(a,b);
one:=max(temp,c);
//取得三个数的最小值,存入three中
temp:=min(a,b);
three:=min(temp,c);
//下面是为了取得第二大的数
d[0]:=a;
d[1]:=b;
d[2]:=c;
for f:= 0 to 2 do
begin
if (one>d[f]) and (d[f]>three) then //取出处于中间的那个数,存入two中
begin
two:=d[f];
end;
end;
result:=inttostr(one)+'>'+inttostr(two)+'>'+inttostr(three);//输入结果
end;
//调用时,在界面那里放一个Button,三个edit,用于输入你的三个整数,再放入一个label,用于显示结果
label1.Caption:=sort(strToInt(edit1.text),strtoInt(edit2.text),strtoInt(edit3.text));
//代码有点长,希望对你有帮助.
