Cos Function

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

আলফা কোন ব্যবহার করে, কোসাইন ফাংশনের সাহায্যে কোন সংশ্লিষ্ট বাহুর দৈর্ঘ্য, সমকোনী ত্রিভুজের অতিভুজের দৈর্ঘ্য দ্বরা ভাগের অনুপাত গণনা করা হয়।

Cos(Alpha) = Adjacent/Hypotenuse

সিনট্যাক্স:

Cos (Number)

প্রদান মান:

ডাবল

প্যারামিটার:

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

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

degree=(radian*180)/pi

radian=(degree*pi)/180

3.14159... পূর্ণ সংখ্যা মান সহ নির্দিষ্ট বৃত্তাকার ধ্রুবক হলো পাই।

Error codes:

5 Invalid procedure call

উদাহরণ:

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 hypothenuse is"; (d1 / cos (dAngle * Pi / 180))

End Sub