Código Delphi [-] function Redondeo(x: Real): Integer; begin if Frac(X) > 0 then Result:= Trunc(X) + 1 else Result:= Trunc(X); end;
function Redondeo(x: Real): Integer; begin if Frac(X) > 0 then Result:= Trunc(X) + 1 else Result:= Trunc(X); end;