UC知道delphi 比较四个数的大小，从最大开始
来源：百度知道 编辑：UC知道 时间：2024/06/24 13:56:49
9.16.8.22
取最大值可以
a:=max(9,16)
b:=max(8,22)
max(a,b)
最小值 同理
主要是中间的部分，知道的大哥赐教
我找到一个稍微好点的方法，就是利用stringlist，先取4个数乃至N个数的最大，最小值，把其他>最小，<最大的存入stringlist，再到stringlist中取，循环，可以得到。麻烦是麻烦了一些，分就给C++的那个吧
取最大值可以
a:=max(9,16)
b:=max(8,22)
max(a,b)
最小值 同理
主要是中间的部分，知道的大哥赐教
我找到一个稍微好点的方法，就是利用stringlist，先取4个数乃至N个数的最大，最小值，把其他>最小，<最大的存入stringlist，再到stringlist中取，循环，可以得到。麻烦是麻烦了一些，分就给C++的那个吧
delphi语法不是很懂哦
c的我写给你
int max(int a,int b)
{
return a>b?a:b;
}
不过貌似delphi中没有这个运算符
那换下面的好理解点吧
int max(int a,int b)
{
if(a>b)return a;//a大返回a
else return b;//否则返回b
}
理解上面的max
min就很好解决了
int min(int a,int b)
{
if(a<b)return a;
else return b;
}
min
OMG!
procedure TForm1.Button1Click(Sender: TObject);
var
max,a,b:integer;
begin
a:=max(9,16)
b:=max(8,22)
showmessage('最大的数是:'+max(a,b));
end;