Module
Contents
Index 🔎︎

# Cos Function

計算一個角度的餘弦值，角度以弧度為單位定義，結果在 -1 到 1 之間。

以 Alpha 角為例，在直角三角形中 Cos 函式計算 Alpha 的鄰邊與斜邊長度之比。

Cos(Alpha) = 鄰邊/斜邊

## 語法：

    Cos (Number)

## 傳回值類型：

Double

## 參數：

Number：數值型表示式，用於指定要計算餘弦值的角度 (以弧度為單位)。

若要將度轉換成弧度，可將度乘以 pi/180；若要將弧度轉換成度，則將弧度乘以 180/pi。

度 = (弧度*180) /pi

弧度 = (度*pi)/180

其中，PI 是固定的圓周率常數，捨入後的值為 3.14159...

## 錯誤代碼：

5 無效的程序呼叫

## 示例：

    REM 以下示例以直角三角形為例，要求輸入

    REM 依據鄰邊和角度 (以度為單位)，並計算三角形斜邊的長度：

    Sub ExampleCosinus

    REM 捨入後的 PI = 3.14159

    Dim d1 As Double, dAngle As Double

        d1 = InputBox$ (""Enter the length of the adjacent side:","Adjacent")

        dAngle = InputBox("Enter the angle Alpha (in degrees):","Alpha")

        Print "The length of the hypothenuse is"; (d1 / cos (dAngle * Pi / 180))

    End Sub