Cos Function
Tính cosin của một góc. Góc được ghi rõ theo độ. Kết quả nằm giữa -1 và +1.
Dùng góc Alpha, hàm Cos tính tỷ lệ là chiều dài của cạnh kề với góc chia cho chiều dài của cạnh huyền, trong một hình tam giác vuông góc.
Cos(Alpha) = Kề/Huyền
Cú pháp:
Cos (Số)
GIá trị trả về:
Đôi
Tham số :
Số: biểu thức thuộc số mà ghi rõ một góc theo radian cho đó bạn muốn tính cosin.
Để chuyển đổi một số độ sang radian, hãy nhân số độ với π/180. Ngược lại, để chuyển đổi một số radian sang độ, nhân số radian với 180/π.
độ=(radian*180)/π
radian=(độ*π)/180
Pi (π) ở đây là hằng số hình tròn cố định có giá trị được làm tròn 3.14159...
Thí dụ :
REM Mẫu ví dụ theo đây cho phép (đối với một hình tam giác vuông góc) nhập
REM sec và góc (theo độ), và tính chiều dài của cạnh huyền:
Sub ExampleCosinus
REM π = 3.14159 (được làm tròn)
Dim d1 As Double, dAngle As Double
d1 = InputBox$ (""Nhập chiều dài của cạnh kề: ","Kề")
dAngle = InputBox("Nhập góc Alpha theo độ: ","Alpha")
Print "Chiều dài của cạnh huyền là; (d1 / cos (dAngle * Pi / 180))
End Sub