Cos Function
рдХреЛрдгрдХреЛ рдХреЛрд╕рд╛рдЗрди рдЧрдгрдирд╛ рдЧрд░реНрдиреБрд╣реЛрд╕реН ред рдпреЛ рдХреЛрдг рд░реЗрдбрд┐рдпрдирд▓реЗ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрджрдЫ ред рдпрд╕рдХреЛ рдкрд░рд┐рдгрд╛рдо -рез рджреЗрдЦрд┐ рез рдХреЛ рдмреАрдЪрдорд╛ рдкрд░реНрджрдЫ ред
рдХреЛрдг рдЕрд▓реНрдлрд╛рдХреЛ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрджрд╛, рдХрд╕-рдкреНрд░рдХрд╛рд░реНрдпрдорд╛ рднреБрдЬрд╛рдХреЛ рд▓рдореНрдмрд╛рдЗрдХреЛ рдЖрдиреБрдкрд╛рдд рдЧрдгрдирд╛ рдЧрд░реНрджрдЫ рдЬреБрди рдХреЛрдгрдорд╛ рдЖрд╕рдиреНрди рд╣реБрдиреНрдЫ, рд╕рдордХреЛрдгрд┐ рддреНрд░рд┐рднреБрдЬрдорд╛ рдХрд░реНрдгрдХреЛ рд▓рдореНрдмрд╛рдЗрд▓реЗ рдЖрдзрд╛ рдЧрд░реНрджрдЫ ред
рдХрд╕(рдЕрд▓реНрдлрд╛) = рдЖрд╕рдиреНрди/рдХрд░реНрдг
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
рдХрд╕ (рдирдореНрдмрд░)
рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:
рдбрдмрд▓
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
рдирдореНрдмрд░: рдХреБрдиреИ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рддреНрдпрд╕рд▓реЗ рд░реЗрдбрд┐рдпрдирдорд╛ рдХреЛрдг рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрджрдЫ рдЬреБрди рддрдкрд╛рдИрдБ рдХреЛрд╕рд╛рдИрдирдХрд╛ рд▓рд╛рдЧрд┐ рдЧрдгрдирд╛ рдЧрд░реНрди рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред
рдбрд┐рдЧреНрд░реАрд╣рд░реВрд▓рд╛рдИ рд░реЗрдбрд┐рдпрдирд╣рд░реВрдорд╛ рд░реВрдкрд╛рдиреНрддрд░рдг рдЧрд░реНрди, рдбрд┐рдЧреНрд░реАрд╣рд░реВрд▓рд╛рдИ pi/резреорежрд▓реЗ рдЧреБрдгрди рдЧрд░реНрдиреБрд╣реЛрд╕реН ред рд░реЗрдбрд┐рдпрдирд╣рд░реВрд▓рд╛рдИ рдбрд┐рдЧреНрд░реАрд╣рд░реВрдорд╛ рд░реВрдкрд╛рдиреНрддрд░рдг рдЧрд░реНрди резреореж/pi рд▓реЗ рдЧреБрдгрди рдЧрд░реНрдиреБрд╣реЛрд╕реН ред
рдбрд┐рдЧреНрд░реА=(рд░реЗрдбрд┐рдпрди*резреореж)/pi
рд░реЗрдбрд┐рдпрди=(рдбрд┐рдЧреНрд░реА*pi)/резреореж
рдкрд╛рдИ рдпрд╣рд╛рдБ рдЧреЛрд▓рд╛рдХрд╛рд░ рдорд╛рди рей.резрекрезрелреп...рд╕рдБрдЧ рд╕реНрдерд┐рд░ рд╡реГрдд рдЕрдЪрд▓ рд╣реЛ
рдЙрджрд╛рд╣рд░рдг:
' рдорд╛ рджрд┐рдПрдХрд╛ рдЙрджрд╛рд╣рд░рдгрд▓реЗ рдЖрдЧрддрдорд╛ рд╕рдордХреЛрдгрд┐ рддреНрд░рд┐рднреБрдЬрдХрд╛ рд▓рд╛рдЧрд┐ рдЕрдиреБрдорддрд┐ рджрд┐рдиреНрдЫ
' рд▓реЗ рдЕрд░реНрдзрдмреНрдпрд╛рд╕ рд░ рдХреЛрдг (рдбрд┐рдЧреНрд░реАрд╣рд░реВрдорд╛) рд░ рдХрд░реНрдгрдХреЛ рд▓рдореНрдмрд╛рдЗ рдЧрдгрдирд╛ рдЧрд░реНрджрдЫ:
Sub ExampleCosinus
' rounded Pi = 3.14159
Dim d1 As Double, dAngle As Double
dрез = рдЖрдЧрдд рдмрд╛рдХрд╕$ (""рдЖрд╕рдиреНрди рднреБрдЬрд╛рдХреЛ рд▓рдореНрдмрд╛рдЗ рдкреНрд░рд╡рд┐рд╖реНрдЯ рдЧрд░реНрдиреБрд╣реЛрд╕реН: ","рдЖрд╕рдиреНрди")
dAngle = рдЖрдЧрдд рдмрд╛рдХрд╕$ ("рдХреЛрдг рдЕрд▓реНрдлрд╛ (рдбрд┐рдЧреНрд░реАрдорд╛) рдкреНрд░рд╡рд┐рд╖реНрдЯ рдЧрд░реНрдиреБрд╣реЛрд╕реН: ","рдЕрд▓реНрдлрд╛")
"рдпреЛ рдХрд░реНрдгрдХреЛ рд▓рдореНрдмрд╛рдЗ рд╣реЛ"; (dрез/ рдХрд╕ (dAngle * рдкрд╛рдИ / резреореж))
End Sub