[Función] Valor absoluto...[Delphi]
Publicado: 15 Jul 2010, 05:23
Una función que hice como alternativa a Abs(); de System.pas
Más Información: [Enlace externo eliminado para invitados]
Código: Seleccionar todo
function AbsoluteValue(X:Real):Real;
const
ZeroValue = 0.0;
begin
if X < ZeroValue then
Result := -X (* Es igual a X * (-1) *)
else if X > ZeroValue then
Result := X
else
Result := ZeroValue;
end;