Sgn Function
-рез рд░ рез рдмреАрдЪрдХреЛ рдЗрдиреНрдЯреЗрдЬрд░ рдирдореНрдмрд░ рдлрд░реНрдХрд╛рдЙрдБрдЫ рддреНрдпрд╕рд▓реЗ рдпрджрд┐ рдирдореНрдмрд░ рдкреНрд░рдХрд╛рд░реНрдпрд▓рд╛рдИ рдкрд╛рд╕ рдЧрд░реЗрдХреЛ рдЦрдгреНрдбрдорд╛ рдпреЛ рдзрдирд╛рддреНрдордХ рдЛрдгрд╛рддреНрдордХ рд╡рд╛ рд╢реВрдиреНрдп рддреЛрдХреНрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
Sgn (рдирдореНрдмрд░)
рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:
рдЗрдиреНрдЯрд┐рдЬрд░
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
рдирдореНрдмрд░:рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдпрд╕рд▓реЗ рдкреНрд░рдХрд╛рд░реНрдпрджреНрд╡рд╛рд░рд╛ рдлрд░реНрдХрд╛рдЗрдПрдХрд╛ рдорд╛рдирд╣рд░реВ рдирд┐рд░реНрдзрд╛рд░рдг рдЧрд░реНрджрдЫ ред
NumрдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ |
рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН |
рдЛрдгрд╛рддреНрдордХ |
Sgnрд▓реЗ -рез рдлрд░реНрдХрд╛рдЙрдБрдЫ |
0 |
Sgnрд▓реЗ реж рдлрд░реНрдХрд╛рдЙрдБрдЫ ред |
рдзрдирд╛рддреНрдордХ |
Sgnрд▓реЗ рез рдлрд░реНрдХрд╛рдЙрдБрдЫ ред |
рдЙрджрд╛рд╣рд░рдг:
Sub ExampleSgn
Print sgn(-10) ' рд▓реЗ рдлрд░реНрдХрд╛рдЙрдиреЗ -рез рдореБрджреНрд░рдг рдЧрд░реНрдиреБрд╣реЛрд╕реН
Print sgn(0) ' рд▓реЗ рдлрд░реНрдХрд╛рдЙрдиреЗ реж рдореБрджреНрд░рдг рдЧрд░реНрдиреБрд╣реЛрд╕реН
Print sgn(10) ' рд▓реЗ рдлрд░реНрдХрд╛рдЙрдиреЗ рез рдореБрджреНрд░рдг рдЧрд░реНрдиреБрд╣реЛрд╕реН
End Sub