sig()

[admin]

sig() — возвращает знак своего аргумента

Синтаксис
a=sig(b)

Описание
Возвращает +1, -1 или 0, если единственный аргумент положительный, отрицательный или нулевой.

Пример

Код: Выделить всё

clear screen
dim c$(3):c$(1)="red":c$(2)="white":c$(3)="green"
do
  num=ran(100)-50
  print color(c$(2+sig(num))) num
loop

Эта программа печатает бесконечную последовательность случайных чисел; положительные числа печатаются зеленым цветом, отрицательные - красным (точный ноль был бы напечатан белым). (Немного доработав, эту программу можно было бы легко расширить до брокерской системы)

Связанные команды и функции:

abs, int, frac