redondear

Redondear | Redondeo | Excel | Php | Javascript | Sql | Visual Basic | .NET | ASP | c++ | Delphi | Perl | ActionScript | CSS |

Redondear delphi

Redondear en delphi

Forma 1

function RoundN(X: Extended): Extended;
// Redondea un numero "normalmente": si la parte decimal
// es >= 0.5 el número se redondea para arriba (ver RoundUp).
// En caso contrario, si la parte decimal es < 0.5, el
// número se redondea para abajo (ver RoundDn).
// RoundN(3.5) = 4 RoundN(-3.5) = -4
// RoundN(3.1) = 3 RoundN(-3.1) = -3
begin
(*
if Abs(Frac(X)) >= 0.5 then
Result := RoundUp(X)
else
Result := RoundDn(X);
*)
Result := Int(X) + Int(Frac(X) * 2);
end;

function RoundUp(X: Extended): Extended;
// Devuelve el primer entero mayor que o
// igual al número dado en valor absoluto
// (se preserva el signo).
// RoundUp(3.3) = 4 RoundUp(-3.3) = -4
begin
Result := Int(X) + Sgn(Frac(X));
end;

function RoundDn(X: Extended): Extended;
// Devuelve el primer entero menor que o
// igual al número dado en valor absoluto
// (se preserva el signo).
// RoundDn(3.7) = 3 RoundDn(-3.7) = -3
begin
Result := Int(X);
end;





Teoría del Redondeo:
Las reglas del redondeo se aplican al número decimal situado en la siguiente posición al número de decimales que se quiere transformar.
Si tenemos un número de 3 decimales y queremos redondear a 2, se aplicará las reglas de redondeo:
Dígito menor que 5: Si el siguiente decimal es menor que 5, el anterior no se modifica.
Ejemplo de como redondear: 10,512. Redondeando a 2 decimales deberemos tener en cuenta el tercer decimal: 10,512= 10,51.

Dígito mayor que 5: Si el siguiente decimal es mayor o igual que 5, el anterior se incrementa en una unidad.
Ejemplo de como redondear: 10,518. Redondeando a 2 decimales deberemos tener en cuenta el tercer decimal: 10,518= 10,52.


| Redondear.Com | Privacy | Redondear delphi |