IBM Lotus Symphony


‏‎Cos Function [Runtime]‎‏

يتم حساب جيب تمام cosine زاوية. يتم تحديد الزاوية بزاوية نصف قطرية. النتائج تتراوح بين -1 و 1.

باستخدام الزاوية Alpha، تقوم الوظيفة Cos-Function بحساب نسبة طول الجانب القريب من الزاوية، مقسوما على طول الوتر في المثلث قائم الزاوية.

Cos(Alpha) = Adjacent/Hypotenuse

الصيغة:

‏‎Cos (Number)‎‏

القيمة المرتجعة:

Double

المعاملات:

Number: تعبير رقمي يحدد زاوية مقاسة بزاوية نصف قطرية تريد حساب جيب الزاوية cosine لها.

لتحويل الدرجات الى زاوية نصف قطرية radians، قم بضرب الدرجات في pi/180. لتحويل radians الى درجات، قم بضرب radians في 180/pi.

degree=(radian*180)/pi

radian=(degree*pi)/180

Pi هو ثابت الدائرة ذو القيمة المقربة 3.14159...

أكواد الخطأ

5 استدعاء غير صحيح للاجراء

مثال:

REM The following example allows for a right-angled triangle the input of

‏‎REM secant and angle (in degrees) and calculates the length of the hypotenuse:‎‏

Sub ExampleCosinus

REM rounded Pi = 3.14159

Dim d1 as Double, dAngle as Double

d1 = InputBox$ (""أدخل طول الجانب المجاور: ‏","Adjacent"‏)

dAngle = InputBox$ ("أدخل الزاوية Alpha (بالدرجات): ‏","Alpha"‏)

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

End Sub


التعليق التقييمي عن البرنامج | المزيد من المطبوعات الفنية | العلامات التجارية