IBM Lotus Symphony
|
Beregner en vinkels tangens. Vinklen er angivet i radianer.
Ud fra vinklen Alfa beregner funktionen Tan forholdet mellem længden på siden over for vinklen og længden på den side, der støder op til vinklen, i en retvinklet trekant.
Tan(Alfa) = side over for vinklen/ved siden af vinklen
Tan(Tal)
Double
Tal: Et numerisk udtryk, for hvilket du vil beregne tangens (i radianer).
Multiplicér grader med pi/180, hvis du vil konvertere grader til radianer. Multiplicér radianer med 180/pi, hvis du vil konvertere radianer til grader.
grader=(radianer*180)/pi
radianer=(grader*pi)/180
Pi er ca. 3,141593.
REM I dette eksempel kan følgende indgang angives for en retvinklet trekant:
REM Siden over for vinklen og vinklen (i grader), hvorefter længden på vinklens tilstødende side beregnes
Sub EksempelTangens
REM Pi = 3,1415926 er en foruddefineret variabel
Dim d1 As Double
Dim dAlfa As Double
d1 = InputBox$ ("Angiv længden på siden over for vinklen:","Over for")
dAlfa = InputBox$ ("Skriv vinklen Alfa (i grader): ","Alfa")
Print "Længden på vinklens tilstødende side er"; (d1 / Tan (dAlfa * Pi / 180))
End Sub