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