Jak przekonwertować dodatnią liczbę całkowitą na wartość ujemną za pomocą Delphi? Wiem, że możesz użyć ABS(int), aby przekonwertować wynik negatywny na pozytywny, ale muszę go przekonwertować z pozytywnej na negatywną.Jak przekonwertować liczbę dodatnią na wartość ujemną?
z tego, co wiem, nie ma na to żadnej funkcji. można dokonać
if yourvariable > 0 then
yourvariable := -yourvariable;
Dzięki Yah thats right, głupi ze mnie tak samo jak C++ lol, myślałem delphi bardziej jako visual basic. – Tprice88
@Tprice, Visual Basic miał ** jednoargumentowy operator minus ** tak jak Delphi przez wiele lat. –
O, nigdy go nie użyłem na ich nie używam, ponieważ Visual Basic 6 odmawiam używania .Net. – Tprice88
Jeśli chcesz być absolutnie pewny, aby uzyskać wynik negatywny (lub zero), użyj
number := -abs(number)
nie powinno to być: liczba: = -1 * abs (liczba); ? –
@TomHagen: -x = -1 * x ∀x ∈ ℝ. –
//converting a positive to negative
$negnumber = $posnumber - $posnumber - $posnumber ;
eg;
$posnumber = 4;
$negnumber = 4 - 4 - 4 ;
$negnumber = -4;
Żartujesz, prawda? –
ehhh ... Za późno ale number := number * -1; będzie działać też ale to zmienia symbol dowolnej liczby, od ujemnej do pozytywnej i do tyłu ... Aby zapewnić wartość ujemną, przejdź do @Mef Odpowiedź
EDIT: nawet później, ale number := 0 - number; będzie działać zbyt ... To po prostu odwraca się symbol, a także
Niech n być Twój numer i formuła n-(n*2) = -n
Jeśli wiesz, że 'A' jest dodatnia, i chcesz uzyskać liczbę ujemną z tą samą odległością od początku, po prostu wykonaj '-a'. Jeśli nie znasz znaku "a", a chcesz się upewnić, że jest ujemny lub zero w tym sensie, że zamieniasz 'a' na' -a', tylko jeśli 'a' jest dodatnie, możesz tak jak sugerował RBA, ale podejście Mef jest dużo lepsze: '-abs (a)'. –