Cos Function

একটি কোনের কোসাইন গণনা করে থাকে। কোনটি রেডিয়ানে উল্লেখ করে থাকে। ফলাফল -1 এবং 1 এর মধ্যে একটি মান হয়।

Using the angle Alpha, the Cos function calculates the ratio of the length of the side that is adjacent to the angle, divided by the length of the hypotenuse in a right-angled triangle.

Cos(Alpha) = Adjacent/Hypotenuse

Cos (Number As Double) As Double

Double

সংখ্যা: সংখ্যাসূচক এক্সপ্রশেশন যা একটি কোন রেডিয়ানে উল্লেখ করে থাকে এবং যার কোসাইন গণনা করতে চান।

ডিগ্রি থেকে রেডিয়ানে রূপান্তর করার জন্য, ডিগ্রিকে pi/180 দ্বারা গুণ করা হবে। রেডিয়ান থেকে ডিগ্রিতে রূপান্তর করার জন্য, রেডিয়ানকে 180/pi দ্বারা গুণ করা হবে।

degree=(radian*180)/pi

radian=(degree*pi)/180

Pi is here the fixed circle constant with the rounded value 3.14159...

REM নিচের উদাহরণটি একটি সমকোনী ত্রিভুজের জন্য এর ইনপুট অনুমোদন করে থাকে
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 hypotenuse is"; (d1 / cos (dAngle * Pi / 180))
End Sub