Function für Vorzeichen?

[Cöster]

Hi!

Gibt's ne Funktion, der man einen Real übergibt und die dann 1 zurückgibt, wenn die Zahl positiv ist, und -1, wenn sie negativ ist?

Dass man einfach schreiben kann

a := Vorzeichen(b)*5; Bisher mach ich das so:

a := Abs(b)/b*5; Aber das ist sicherlich nicht die eleganteste Art.