SIGN – функция, вычисляющая знак числа
Data: X
Result: Y
Formulas:
Y = Sign(X) Y =    1,  если X  больше или равно 0
Y = – 1,  если X меньше 0
Pascal listing:
Y:=Sign(X);
See: