Pomoč Collabora Office 24.04
Izračuna kosinus kota. Kot se navaja v radianih. Rezultat je med -1 in 1.
Funkcija Cos izračuna na osnovi kota Alfa kvocient dolžin soležne katete in hipotenuze v pravokotnem trikotniku.
Cos(alfa) = soležna kateta/hipotenuza
Cos(število As Double) As Double
Double
Število: Numeričen izraz, ki izraža kot v radianih, za katerega rabimo kosinus.
Če želite stopinje pretvoriti v radiane, pomnožite vrednost z pi/180. Za pretvorbo iz radianov v stopinje pomnožite radiane z 180/pi.
stopinje=(radiani*180)/pi
radiani=(stopinje*pi)/180
Pi je pri tem konstanta z zaokroženo vrednostjo 3,14159 ...
' naslednji primer izračuna za pravokotni trikotnik
' dolžino hipotenuze iz sekante in kota (v stopinjah):
Sub ExampleCosinus
' zaokrožen Pi = 3,14159
Dim d1 As Double, dAngle As Double
d1 = InputBox("Vnesite dolžino soležne katete: ","soležna")
dKot = InputBox$("Vnesite kot Alfa (v stopinjah): ","Alfa")
Print "Dolžina hipotenuze je"; (d1 / cos (dKot * Pi / 180))
End Sub