Positive Zahlen in negative umwandeln

[mr_emre_d]

Zitat von divBy0:

falls man nicht weiß, obs neg / pos ist und es unbedingt neg. sein muss dann:

Code:

if zahl >= 0 then
zahl := -zahl;

zahl := -abs(zahl); [/quote]

hatte ich eh so gemeint