选出其中数字最大的一个(50分)

zylsoft · 2006-10-19

已知 x1,x2,x3,x4,x5(全部为integer)

怎样选出其中数值最大的一个数；

Johnny_du · 2006-10-19

GetMaxVal(x1,x2,x3,x4,x5: Integer): Integer;
var
intTemp: Integer;
begin
intTemp := x1;
if x2 > intTemp then
intTemp := x2;
if x3 > intTemp then
intTemp := x3;
if x4 > intTemp then
intTemp := x4;
if x5 > intTemp then
intTemp := x5;
Result := intTemp;
end;

zswang · 2006-10-19

uses Math;
X := Max(x1,Max(x2,Max(x3,Max(x4,x5))));

zywcd · 2006-10-19

你先排序，就可以了。
给你一个排序过程，你可以参考。很容易。
procedure QuickSort(var A:array of Integer; iLo,iHi:Integer);
var
Lo,Hi,Mid,T:Integer;
begin
Lo:=iLo;
Hi:=iHi;
Mid:=A[(Lo+Hi)div 2];
repeat
while A[Lo]<Mid do
Inc(Lo);
while A[Hi]>Mid do
Dec(Hi);
if Lo<=Hi then
begin
T:=A[Lo];
A[Lo]:=A[Hi];
A[Hi]:=T;
Inc(Lo);
Dec(Hi);
end;
until Lo>Hi;
if Hi>iLo then QuickSort(A,iLo,Hi);
if Lo<iHi then QuickSort(A,Lo,iHi);
end;

一份子 · 2006-10-19

zswang说得对,引入MATH单元
就能直接用X := Max(x1,Max(x2,Max(x3,Max(x4,x5))));

tianlove · 2006-10-19

zswang的对啊
直接用max
X := Max(x1,Max(x2,Max(x3,Max(x4,x5))));

qiuqiu133 · 2006-10-19

上述的方法都行
最简单的应该是采用max函数

jshyhzj · 2006-10-19

X := Max([x1,x2,x3,x4,x5]);

不知道行不?

cqwty · 2006-10-19

改写一下max函数嘛，改成参数可以两个以上的就可以了撒！

zhouman · 2006-10-19

uses Math;
X := Max(x1,Max(x2,Max(x3,Max(x4,x5))));
这个正确

饼干 · 2006-10-19

同意zswang 想法挺帅

zylsoft · 2006-10-20

多人接受答案了。

选出其中数字最大的一个(50分)

zylsoft

Unregistered / Unconfirmed

Johnny_du

Unregistered / Unconfirmed

zswang

Unregistered / Unconfirmed

zywcd

Unregistered / Unconfirmed

一份子

Unregistered / Unconfirmed

tianlove

Unregistered / Unconfirmed

qiuqiu133

Unregistered / Unconfirmed

jshyhzj

Unregistered / Unconfirmed

cqwty

Unregistered / Unconfirmed

zhouman

Unregistered / Unconfirmed

饼干

Unregistered / Unconfirmed

zylsoft

Unregistered / Unconfirmed

Similar threads