Tan Function

āļšāˇāļĢāļēāļš āļ§āˇāļ‚āļĸāļąāļē āļ­āˇ“āļģāļĢāļē āļšāļģāļēāˇ’. āļšāˇāļĢāļē āļģāˇšāļŠāˇ’āļēāļąāˇŠ āˇ€āļŊāˇ’āļąāˇŠ āˇ€āˇ’āˇāˇšāˇ‚āļĢāļē āļšāļģ āļ‡āļ­.

Using the angle Alpha, the Tan Function calculates the ratio of the length of the side opposite the angle to the length of the side adjacent to the angle in a right-angled triangle.

Tan(āļ‡āļŊāˇŠāˇ†āˇ) = āļšāˇāļĢāļēāļ§ āˇ€āˇ’āļģāˇ”āļ¯āˇŠāļ° āļ´āˇāļ­āˇŠāļ­/āļšāˇāļĢāļēāļ§ āļļāļ¯āˇŠāļ° āļ´āˇāļ­āˇŠāļ­

āļšāˇāļģāļš āļģāˇ“āļ­āˇ’āļē:


Tan (āļ…āļ‚āļšāļē)

āļ†āļ´āˇƒāˇ” āļŊāļļāˇāļ¯āˇ™āļą āļ…āļœāļē:

Double

āļ´āļģāˇāļ¸āˇ’āļ­āˇ“āļąāˇŠ:

āļ…āļ‚āļšāļē: āļ§āˇāļ‚āļĸāļąāļē (āļģāˇšāļŠāˇ’āļēāļąāˇŠ āˇ€āļŊāˇ’āļąāˇŠ) āļœāļĢāļąāļē āļšāˇ’āļģāˇ“āļ¸āļ§ āļ”āļļāļ§ āļ…āˇ€āˇāˇŠâ€āļē āļ•āļąāˇ‘āļ¸ āˇƒāļ‚āļ›āˇŠâ€āļēāˇāļ­āˇŠāļ¸āļš āļ´āˇŠâ€āļģāļšāˇāˇāļąāļēāļšāˇŠ.

āļ…āļ‚āˇāļš āļģāˇšāļŠāˇ’āļēāļą āˇ€āļŊāļ§ āļ´āļģāˇ’āˇ€āļģāˇŠāļ­āļąāļē āļšāˇ’āļģāˇ“āļ¸āļ§ Pi/180āļœāˇ™āļąāˇŠ āļœāˇ”āļĢ āļšāļģāļąāˇŠāļą. āļģāˇšāļŠāˇ’āļēāļą āļ…āļ‚āˇāļš āˇ€āļŊāļ§ āļ´āļģāˇ’āˇ€āļģāˇŠāļ­āļąāļē āļšāˇ’āļģāˇ“āļ¸āļ§ 180/Piāļœāˇ™āļąāˇŠ āļœāˇ”āļĢ āļšāļģāļąāˇŠāļą.

āļ…āļ‚āˇāļš=(āļģāˇšāļŠāˇ’āļēāļą*180)/Pi

āļģāˇšāļŠāˇ’āļēāļą=(āļ…āļ‚āˇāļš*Pi)/180

Pi āļ†āˇƒāļąāˇŠāļą āˇ€āˇāļēāˇ™āļąāˇŠ 3.141593 āˇ€āˇš.

Error codes:

5 Invalid procedure call

āļ‹āļ¯āˇāˇ„āļģāļĢāļē:


REM āļ¸āˇ™āļ¸ āļ‹āļ¯āˇāˇ„āļģāļĢāļēāˇš, āˇƒāˇ˜āļĸāˇ” āļšāˇāļĢāļēāļšāˇŠ āˇƒāļŗāˇ„āˇ āļ´āˇ„āļ­ āļ´āˇŠâ€āļģāˇ€āˇšāˇ āļˇāˇ€āˇŠâ€āļē āˇ€āˇš:
REM āļšāˇāļĢāļēāļ§ āļļāļ¯āˇŠāļ° āļ´āˇāļ­āˇŠāļ­āˇš āļ¯āˇ’āļœ āļœāļĢāļąāļē āļšāˇ’āļģāˇ“āļ¸āļ§ āļšāˇāļĢāļēāļ§ āˇ€āˇ’āļģāˇ”āļ¯āˇŠāļ° āļ´āˇāļ­āˇŠāļ­ āˇƒāˇ„ āļšāˇāļĢāļē (āļ…āļ‚āˇāļš āˇ€āļŊāˇ’āļąāˇŠ):
Sub ExampleTangens
REM Pi = 3.1415926 āļēāļąāˇ” āļšāļŊāˇ’āļąāˇŠ āļ…āļģāˇŠāļŽ āļ¯āˇāļšāˇŠāˇ€āˇ– āˇ€āˇ’āļ āļŊāˇŠâ€āļēāļēāļšāˇ’
Dim d1 As Double
Dim dAlpha As Double
    d1 = InputBox("āļšāˇāļĢāļēāļ§ āˇ€āˇ’āļģāˇ”āļ¯āˇŠāļ° āļ´āˇāļ­āˇŠāļ­āˇš āļ¯āˇ’āļœ āļ‡āļ­āˇ”āļŊāˇŠ āļšāļģāļąāˇŠāļą: ","āˇ€āˇ’āļģāˇ”āļ¯āˇŠāļ°")
    dAlpha = InputBox("āļ‡āļŊāˇŠāˇ†āˇ āļšāˇāļĢāļē āļ‡āļ­āˇ”āļŊāˇŠ āļšāļģāļąāˇŠāļą (āļ…āļ‚āˇāļš āˇ€āļŊāˇ’āļąāˇŠ): ","āļ‡āļŊāˇŠāˇ†āˇ")
    Print "āļšāˇāļĢāļēāļ§ āļļāļ¯āˇŠāļ° āļ´āˇāļ­āˇŠāļ­āˇš āļ¯āˇ’āļœ"; (d1 / tan (dAlpha * Pi / 180))
End Sub

Please support us!