Как преобразовать положительное число в отрицательное?

Question

Как преобразовать положительное целое в отрицательное с помощью Delphi?Я знаю, что вы можете использовать ABS(int) для преобразования отрицательного в положительное, но мне нужно, чтобы оно преобразовало положительное в отрицательное.

Answer 1

Если вы хотите быть абсолютно уверенным, чтобы получить отрицательный результат (или ноль), используйте

number := -abs(number)

Answer 2

из того, что я знаю, для этого нет функции. Вы можете сделать

if yourvariable > 0 then
    yourvariable := -yourvariable;

Answer 3

Эххх ... Слишком поздно, но number := number * -1; тоже сработает, но это изменит символ любого числа, отрицательное на положительное и обратное ... Чтобы гарантировать отрицательное значение, используйте @Mef Answer

---

РЕДАКТИРОВАТЬ: даже позже, но number := 0 - number; будет работать тоже ... Это просто инвертирует символ также

Answer 4

Пусть n будет вашим числом и формулой для n-(n*2) = -n

Answer 5

Просто вот как я думаю, что это может быть решено .. хотя в python

>>>num = -234
-234
>>>num *= -1
234
>>>num
234

Поправь меня, если я не прав