El Valor absoluto de un número real es la distancia entre el número real y el cero (0) en la recta numérica, sin tener en cuenta su signo sea éste positivo o negativo.

Por ejemplo, 15 es el valor absoluto de -15 y de 15.

Para todo número real a \neq 0, el valor absoluto es positivo. Se nota por |a| y se define como:

|a|=\left\{\begin{matrix} a, si\ a \geq 0 & \\ -a, si\ a < 0 & \end{matrix}\right.

Programando cálculo en Pascal

Para obtener el valor absoluto de un número, tenemos la función Abs(); de la unidad System.pas. Pero bien, como siempre, programaremos nuestra propia función (alternativa). :D

Tomando en cuenta el siguiente pseudocódigo podremos crear más fácil la función:

Función ValorAbsoluto(Numero)
Inicio
      Si Numero < Cero Entonces
         Retorno Numero * -1
      De otro modo Si Numero > Cero Entonces
         Retorno Numero
      Sino
         Retorno Cero
Fin

Pues no siendo más, aquí dejo mi función.

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;