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(Alpha) = side opposite the angle/side adjacent to angle

Tan (Number As Double) As Double

Double

අංකය: ටැංජනය (රේඩියන් වලින්) ගණනය කිරීමට ඔබට අවශ්‍ය ඕනෑම සංඛ්‍යාත්මක ප්‍රකාශනයක්.

To convert degrees to radians, multiply by Pi/180. To convert radians to degrees, multiply by 180/Pi.

degrees=(radians*180)/Pi

radians=(degrees*Pi)/180

Pi is approximately 3.141593.

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