Cos Function

๊ฐ๋„์˜ ์ฝ”์‚ฌ์ธ์„ ๊ณ„์‚ฐํ•ฉ๋‹ˆ๋‹ค. ๊ฐ๋„๋Š” ๋ผ๋””์•ˆ์œผ๋กœ ์ง€์ •๋ฉ๋‹ˆ๋‹ค. ๊ฒฐ๊ณผ๋Š” -1์—์„œ 1 ์‚ฌ์ด์ž…๋‹ˆ๋‹ค.

Cos ํ•จ์ˆ˜๋Š” ๊ฐ๋„ Alpha์™€ ์ธ์ ‘ํ•œ ๋ฐ‘๋ณ€์˜ ๊ธธ์ด๋ฅผ ์ง๊ฐ ์‚ผ๊ฐํ˜•์˜ ๋น—๋ณ€ ๊ธธ์ด๋กœ ๋‚˜๋ˆˆ ๋น„์œจ์„ ๊ณ„์‚ฐํ•ฉ๋‹ˆ๋‹ค.

Cos(Alpha) = Adjacent/Hypotenuse


Cos (Number)

๋ฐ˜ํ™˜ ๊ฐ’:


๋งค๊ฐœ ๋ณ€์ˆ˜:

Number: ์ฝ”์‚ฌ์ธ์„ ๊ณ„์‚ฐํ•  ๊ฐ๋„๋ฅผ ๋ผ๋””์•ˆ์œผ๋กœ ์ง€์ •ํ•˜๋Š” ์ˆซ์ž ์‹์ž…๋‹ˆ๋‹ค.

๋„๋ฅผ ๋ผ๋””์•ˆ์œผ๋กœ ๋ณ€ํ™˜ํ•˜๋ ค๋ฉด ๋„์— pi/180์„ ๊ณฑํ•ฉ๋‹ˆ๋‹ค. ๋ผ๋””์•ˆ์„ ๋„๋กœ ๋ณ€ํ™˜ํ•˜๋ ค๋ฉด ๋ผ๋””์•ˆ์— 180/pi๋ฅผ ๊ณฑํ•ฉ๋‹ˆ๋‹ค.



์—ฌ๊ธฐ์—์„œ Pi๋Š” 3.14159... ๋ฅผ ๋ฐ˜์˜ฌ๋ฆผํ•œ ๊ฐ’์„ ๊ฐ–๋Š” ๊ณ ์ • ์›์ฃผ์œจ์ž…๋‹ˆ๋‹ค.

Error codes:

5 ์ž˜๋ชป๋œ ํ”„๋กœ์‹œ์ € ํ˜ธ์ถœ์ž…๋‹ˆ๋‹ค.


REM The following example allows for a right-angled triangle the input of
REM ์‹œ์ปจํŠธ ๋ฐ ๊ฐ๋„(๋„ ๋‹จ์œ„)๋Š” ๋น—๋ณ€์˜ ๊ธธ์ด๋ฅผ ๊ณ„์‚ฐํ•ฉ๋‹ˆ๋‹ค.
Sub ExampleCosinus
REM rounded 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

Please support us!