Tan Function

αž€αŸ†αžŽαžαŸ‹β€‹αžαž„αŸ‹αžŸαž„αŸ‹β€‹αžšαž”αžŸαŸ‹β€‹αž˜αž»αŸ†β€‹αž˜αž½αž™Β αŸ” αž˜αž»αŸ†β€‹αžαŸ’αžšαžΌαžœβ€‹αž”αžΆαž“β€‹αž”αž‰αŸ’αž‡αžΆαž€αŸ‹β€‹αž‡αžΆβ€‹αžšαŸ‰αžΆαžŠαŸ’αž™αž„αŸ‹Β αŸ”

αžŠαŸ„αž™β€‹αž”αŸ’αžšαžΎβ€‹αž˜αž»αŸ† Alpha αž’αž“αž»αž‚αž˜αž“αŸ Tan αž‚αžŽαž“αžΆβ€‹αžŸαž˜αžΆαž˜αžΆαžαŸ’αžšβ€‹αž”αŸ’αžšαžœαŸ‚αž„β€‹αž“αŸƒβ€‹αž‡αŸ’αžšαž»αž„β€‹αžˆαž˜β€‹αž˜αž»αŸ† αž‘αŸ…β€‹αž“αžΉαž„β€‹αž”αŸ’αžšαžœαŸ‚αž„β€‹αž‡αŸ’αžšαž»αž„β€‹αž‡αžΆαž”αŸ‹β€‹αž˜αž»αŸ† αž€αŸ’αž“αž»αž„β€‹αžαŸ’αžšαžΈαž€αŸ„αžŽβ€‹αž€αŸ‚αž„Β αŸ”

Tan(Alpha) = αž‡αŸ’αžšαž»αž„β€‹αžˆαž˜β€‹/β€‹αž‡αŸ’αžšαž»αž„β€‹αž‡αžΆαž”αŸ‹

αžœαžΆαž€αŸ’αž™β€‹αžŸαž˜αŸ’αž–αž“αŸ’αž’ αŸ–


Tan (Number)

αžαž˜αŸ’αž›αŸƒβ€‹αžαŸ’αžšαž‘αž”αŸ‹ αŸ–

αž‘αŸ’αžœαŸ

αž”αŸ‰αžΆαžšαŸ‰αžΆαž˜αŸ‰αŸ‚αžαŸ’αžš αŸ–

αž…αŸ†αž“αž½αž“β€‹ αŸ– αž€αž“αŸ’αžŸαŸ„αž˜β€‹αž›αŸαžβ€‹αž˜αž½αž™β€‹αž…αŸ†αž“αž½αž“β€‹ αžŠαŸ‚αž›β€‹αž’αŸ’αž“αž€β€‹αž…αž„αŸ‹β€‹αž‚αžŽαž“αžΆβ€‹αžαž„αŸ‹αžŸαž„αŸ‹ (αž‚αž·αžβ€‹αž‡αžΆβ€‹αžšαŸ‰αžΆαžŠαŸ’αž™αž„αŸ‹)Β αŸ”

αžŠαžΎαž˜αŸ’αž”αžΈβ€‹αž”αž˜αŸ’αž›αŸ‚αž„β€‹αžŠαžΊαž€αŸ’αžšαŸβ€‹αž‘αŸ…β€‹αž‡αžΆβ€‹αžšαŸ‰αžΆαžŠαŸ’αž™αž„αŸ‹ αž‚αž»αžŽβ€‹αž“αžΉαž„ Pi/180Β αŸ” αžŠαžΎαž˜αŸ’αž”αžΈβ€‹αž”αž˜αŸ’αž›αŸ‚αž„β€‹αžšαŸ‰αžΆαžŠαŸ’αž™αž„αŸ‹β€‹αž‘αŸ…β€‹αž‡αžΆβ€‹αžŠαžΊαž€αŸ’αžšαŸ αž‚αž»αžŽβ€‹αž“αžΉαž„ 180/PiΒ αŸ”

degrees=(radiant*180)/Pi

radiant=(degrees*Pi)/180

Pi αž‚αžΊβ€‹αž”αŸ’αžšαž αŸ‚αž› 3.141593Β αŸ”

Error codes:

5 αž€αžΆαžšβ€‹αž αŸ…β€‹αž”αŸ‚αž”αž”αž‘β€‹αž˜αž·αž“β€‹αžαŸ’αžšαžΉαž˜αžαŸ’αžšαžΌαžœ

αž§αž‘αžΆαž αžšαžŽαŸ αŸ–


REM In this example, the following entry is possible for a right-angled triangle:
REM αž•αŸ’αž“αŸ‚αž€β€‹αžŠαŸ‚αž›β€‹αž“αŸ…β€‹αž‘αž›αŸ‹β€‹αž˜αž»αžβ€‹αž“αžΉαž„β€‹αž˜αž»αŸ† αž“αž·αž„β€‹αž˜αž»αŸ†β€‹ (αž‚αž·αžβ€‹αž‡αžΆβ€‹αžŠαžΊαž€αŸ’αžšαŸ)​ αžŠαžΎαž˜αŸ’αž”αžΈβ€‹αž‚αžŽαž“αžΆβ€‹αž”αŸ’αžšαžœαŸ‚αž„β€‹αžšαž”αžŸαŸ‹β€‹αž•αŸ’αž“αŸ‚αž€β€‹αžŠαŸ‚αž›β€‹αž“αŸ…β€‹αž‡αžΆαž”αŸ‹β€‹αž“αžΉαž„β€‹αž˜αž»αŸ† αŸ–
Sub ExampleTangens
REM Pi = 3.1415926 is a pre-defined variable
Dim d1 As Double
Dim dAlpha As Double
    d1 = InputBox("Enter the length of the side opposite the angle: ","opposite")
    dAlpha = InputBox("Enter the Alpha angle (in degrees): ","Alpha")
    Print "the length of the side adjacent the angle is"; (d1 / tan (dAlpha * Pi / 180))
End Sub

Please support us!