Saber Número negativo y pasarlo a positivo

[BuRtOn]

Saludos amigos, lo que necesito saber es como hago para saber si una variable de tipo integer es negativa y pasarla a positivo ?, es algo asi lo que trato de plantear:


var a: Integer;
if -a = True Then //Es negativa procedo.
begin
( -a ) * (-) = +a; // multiplico -a * - para que me de la variable a positiva
end;


por favor espero que me puedan colaborar, gracias.

[egostar]

Hola


if a < 0 then begin
a := a * -1;
end;


Salud OS

[BuRtOn]

Jajajajajaja, Hay Dios se nota que hoy no estoy procesando nada, jajajajaa, como no pense en eso que es lo mas logico, que pena por prgeuntar tremenda bobada jajajaa, solo que hoy no estoy muy creativo, pero muchas gracias egostar....

[egostar]

Jajajajajaja, Hay Dios se nota que hoy no estoy procesando nada, jajajajaa, como no pense en eso que es lo mas logico, que pena por prgeuntar tremenda bobada jajajaa, solo que hoy no estoy muy creativo, pero muchas gracias egostar....

:D:D:D

Suele pasar, pero que tal esto sin tener que preguntar si es o no negativo ;)


a := Abs(a);


Salud OS