Tan Function

рдХреЛрдгрдХреЛ рдЯреНрдпрд╛рдиреНрдЬреЗрдиреНрдЯ рдирд┐рд░реНрдзрд╛рд░рдг рдЧрд░реНрджрдЫ ред рдХреЛрдгрд▓ рд░реЗрдбрд┐рдпрдирдорд╛ рдлрд░реНрдХрдиреНрдЫ ред

рдХреЛрдг рдЕрд▓реНрдлрд╛рдХреЛ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрджрд╛, рдЯреЗрди рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ рд╕рдордХреЛрдгрд┐ рддреНрд░рд┐рднреБрдЬрдорд╛ рдХреЛрдгрдорд╛ рдЖрд╕рдиреНрди рднреБрдЬрд╛рдХреЛ рд▓рдореНрдмрд╛рдЗрдХреЛ рдХреЛрдгрдорд╛ рд╡рд┐рдкрд░рд┐рдд рднреБрдЬрд╛рдХреЛ рд▓рдореНрдмрд╛рдЗрдХреЛ рдЕрдиреБрдкрд╛рдд рдЧрдгрдирд╛ рдЧрд░реНрджрдЫ ред

рдЯреЗрди(рдЕрд▓реНрдлрд╛) = рдХреЛрдгрдХреЛ рд╡рд┐рдкрд░рд┐рдд рднреБрдЬрд╛/рдХреЛрдгрдХреЛ рдЖрд╕рдиреНрди рднреБрдЬрд╛

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:


рдЯреЗрди (рдирдореНрдмрд░)

рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:

рдбрдмрд▓

рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:

рдирдореНрдмрд░:рдХреБрдиреИ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬреБрди рддрдкрд╛рдИрдБрд▓реЗ рдЯреНрдпрд╛рдиреНрдЬреЗрдиреНрдЯ (рд░реЗрдбрд┐рдпрдирд╣рд░реВрдорд╛)рдХрд╛ рд▓рд╛рдЧрд┐ рдЧрдгрдирд╛ рдЧрд░реНрдирд▓рд╛рдИ рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред

рдбрд┐рдЧреНрд░реАрд╣рд░реВрд▓рд╛рдИ рд░реЗрдбрд┐рдпрдирд╣рд░реВрдорд╛ рд░реВрдкрд╛рдиреНрддрдг рдЧрд░реНрди, рдкрд╛рдИ/резреорежрд▓реЗ рдЧреБрдгрди рдЧрд░реНрдиреБрд╣реЛрд╕реН, рд░ рд░реЗрдбрд┐рдпрдирд╣рд░реВрд▓рд╛рдИ рдбрд┐рдЧреНрд░реАрд╣рд░реВрдорд╛ рд░реВрдкрд╛рдиреНрддрд░рдг рдЧрд░реНрди резреореж/рдкрд╛рдИ рд▓реЗ рдЧреБрдгрди рдЧрд░реНрдиреБрд╣реЛрд╕реН ред

grad=(radiant*резреореж)/pi

radiant=(grad*pi)/резреореж

Pi рд▓рдЧрднрдЧ 3.141593 рд╣реБрдиреНрдЫ ред

рддреНрд░реБрдЯрд┐ рд╕рдЩреНрдХреЗрддрд╣рд░реВ

5 рдЕрд╡реИрдз рдХрд╛рд░реНрдп-рд╡рд┐рдзрд┐ рдХрд▓

рдЙрджрд╛рд╣рд░рдг:


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