Question

用Delphi编一个能比较三个数大小的程序???

用Delphi7.0环境下 编写一个个 比较3个数大小的程序。 写的通俗点，别用太生僻的方法。 写 进去成功了 在个10分

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
max,a,b,c:integer;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
c:=strtoint(edit3.Text); //输入3个数
if a>b then
max:=a
else
max:=b;
if max>c then
showmessage('最大的数是:'+inttostr(max))
else
showmessage('最大的数是:'+inttostr(c));
end;

Answer 2

uses Math;

function Maximize(a,b,c :integer):integer;
begin
Result := Max(Max(a,b),c);
end;

调用showmessage(inttostr(Maximize(100,121,3)))