IBM Lotus Symphony


‏‎Tan Function [Runtime]‎‏

يتم تحديد جيب تمام tangent الزاوية. يتم تحديد الزاوية بزاوية نصف قطرية.

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

Tan(Alpha) = side opposite the angle/side adjacent to angle

الصيغة:

Tan (Number)

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

Double

المعاملات:

Number: أي تعبير رقمي تريد احتساب الظل له (بزاوية نصف قطرية).

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

degrees=(radiant*180)/Pi

radiant=(degrees*Pi)/180

Pi تساوي تقريبا 3.141593.

أكواد الخطأ

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

مثال:

REM في هذا المثال، يمكن أن يكون الادخال التالي للمثل القائم الزاوية:

REM الجانب المقابل للزاوية والزاوية (بالدرجات) لاحتساب طول الجانب المجاول للزاوية:

Sub ExampleTangens

REM Pi = 3.1415926 is a pre-defined variable

Dim d1 as Double

Dim dAlpha as Double

d1 = InputBox$ ("أدخل طول الجانب المقابل للزاوية: ","opposite")

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

Print "طول الجانب المجاور للزاوية"; (d1 / tan (dAlpha * Pi / 180))

End Sub


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