Question

实现3个数的比大小的程序怎么写？用delphi。教下

谢谢，急需知道答案

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d,e:integer;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
c:=strtoint(edit3.Text);
if a>b then
begin
d:=a;
end
else
begin
d:=b;
end;
if d>c then
begin
e:=d;
end
else
begin
e:=c;
end;
edit4.Text:=inttostr(e);
end; OK