Tan Function
рдХреЛрдгрдХреЛ рдЯреНрдпрд╛рдиреНрдЬреЗрдиреНрдЯ рдирд┐рд░реНрдзрд╛рд░рдг рдЧрд░реНрджрдЫ ред рдХреЛрдгрд▓ рд░реЗрдбрд┐рдпрдирдорд╛ рдлрд░реНрдХрдиреНрдЫ ред
рдХреЛрдг рдЕрд▓реНрдлрд╛рдХреЛ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрджрд╛, рдЯреЗрди рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ рд╕рдордХреЛрдгрд┐ рддреНрд░рд┐рднреБрдЬрдорд╛ рдХреЛрдгрдорд╛ рдЖрд╕рдиреНрди рднреБрдЬрд╛рдХреЛ рд▓рдореНрдмрд╛рдЗрдХреЛ рдХреЛрдгрдорд╛ рд╡рд┐рдкрд░рд┐рдд рднреБрдЬрд╛рдХреЛ рд▓рдореНрдмрд╛рдЗрдХреЛ рдЕрдиреБрдкрд╛рдд рдЧрдгрдирд╛ рдЧрд░реНрджрдЫ ред
рдЯреЗрди(рдЕрд▓реНрдлрд╛) = рдХреЛрдгрдХреЛ рд╡рд┐рдкрд░рд┐рдд рднреБрдЬрд╛/рдХреЛрдгрдХреЛ рдЖрд╕рдиреНрди рднреБрдЬрд╛
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
рдЯреЗрди (рдирдореНрдмрд░)
рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:
рдбрдмрд▓
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
рдирдореНрдмрд░:рдХреБрдиреИ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬреБрди рддрдкрд╛рдИрдБрд▓реЗ рдЯреНрдпрд╛рдиреНрдЬреЗрдиреНрдЯ (рд░реЗрдбрд┐рдпрдирд╣рд░реВрдорд╛)рдХрд╛ рд▓рд╛рдЧрд┐ рдЧрдгрдирд╛ рдЧрд░реНрдирд▓рд╛рдИ рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред
рдбрд┐рдЧреНрд░реАрд╣рд░реВрд▓рд╛рдИ рд░реЗрдбрд┐рдпрдирд╣рд░реВрдорд╛ рд░реВрдкрд╛рдиреНрддрдг рдЧрд░реНрди, рдкрд╛рдИ/резреорежрд▓реЗ рдЧреБрдгрди рдЧрд░реНрдиреБрд╣реЛрд╕реН, рд░ рд░реЗрдбрд┐рдпрдирд╣рд░реВрд▓рд╛рдИ рдбрд┐рдЧреНрд░реАрд╣рд░реВрдорд╛ рд░реВрдкрд╛рдиреНрддрд░рдг рдЧрд░реНрди резреореж/рдкрд╛рдИ рд▓реЗ рдЧреБрдгрди рдЧрд░реНрдиреБрд╣реЛрд╕реН ред
grad=(radiant*резреореж)/pi
radiant=(grad*pi)/резреореж
Pi рд▓рдЧрднрдЧ 3.141593 рд╣реБрдиреНрдЫ ред
рдЙрджрд╛рд╣рд░рдг:
' рдпреЛ рдЙрджрд╛рд╣рд░рдгрдорд╛, рддрд┐ рдирд┐рдореНрди рдкреНрд░рд╡рд┐рд╖реНрдЯрд┐рд╣рд░реВ рджрд╛рдпрд╛рдБ-рдХреЛрдг рднрдПрдХреЛ рддреНрд░рд┐рднреБрдЬрдХрд╛ рд▓рд╛рдЧрд┐ рд╕рдореНрднрд╡ рд╣реБрдиреНрдЫ:
' рдХреЛрдгрдХреЛ рд╡рд┐рдкрд░рд┐рдд рднреБрдЬрд╛ рд░ рдХреЛрдг(рдбрд┐рдЧреНрд░реАрдорд╛) рдХреЛрдгрдорд╛ рдЖрд╕рдиреНрди рднреВрдЬрд╛рдХреЛ рд▓рдореНрдмрд╛рдЗ рдЧрдгрдирд╛ рдЧрд░реНрди:
Sub ExampleTangens
' Pi = 3.1415926 рдкреВрд░реНрд╡рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЪрд▓
Dim d1 As Double
Dim dAlpha As Double
dрез = рдЖрдЧрдд рдмрд╛рдХрд╕$ ("рдХреЛрдгрдХреЛ рд╡рд┐рдкрд░рд┐рдд рднреБрдЬрд╛рдХреЛ рд▓рдореНрдмрд╛рдЗ рдкреНрд░рд╡рд┐рд╖реНрдЯ рдЧрд░реНрдиреБрд╣реЛрд╕реН: ","рд╡рд┐рдкрд░рд┐рдд")
dAlpha = рдЖрдЧрдд рдмрд╛рдХрд╕$ ("рдХреЛрдг рдЕрд▓реНрдлрд╛ (рдбрд┐рдЧреНрд░реАрд╣рд░реВрдорд╛) рдШреБрд╕рд╛рдЙрдиреБрд╣реЛрд╕реН: ","рдЕрд▓реНрдлрд╛")
"рдХреЛрдгрдХреЛ рдЖрд╕рдиреНрди рднреБрдЬрд╛рдХреЛ рд▓рдореНрдмрд╛рдЗ рд╣реЛ"; (dрез / рдЯреЗрди (dAlpha * рдкрд╛рдИ / резреореж))
End Sub