var
x,y,z:real;
begin
x:=strtofloat(edit1.text);
y:=strtofloat(edit2.text);
z:=strtofloat(edit4.text);
if ((x>=y) and (x>=z)) then edit3.Text:=floattostr(x)
else if ((y>=x) and (y>=z)) then edit3.text:=floattostr(y)
else if ((z>=x) and (z>=y)) then edit3.text:=floattostr(z);
end;
end.
Hiç yorum yok:
Yorum Gönder