شرح الدرس الاخير في وحدة البيسك الاقترانات المكتبية

لاقترانات المكتبية : هي مجموعة من الأوامر البرمجية يمكن استخدامها

مباشرة .

الصيغة العامة : ( ) اسم الاقتران = متغير

( 1 ) الجذر التربيعي : SQR ( X ) lll

- يشترط ْ أن يكون عدد موجب .

- في حال كانت X عدد سالب يعطي Error .

SQR ( X ) = X ^ ( 0.5 ) lll

( 2 ) القيمة المطلقة : ABS ( X ) lll

- تعطي العدد موجب دائما ً .

ABS ( - 9 ) = 9

ABS ( - 2.3 ) = 2.3

أعد كتابة الاقتران ABS ( X ) lll في برنامج :

Input X

If X > = 0 Then
Print X
Else
Print X * -1
End If

( 3 ) - اقتران العدد الصحيح FIX ( X ) lll

تقوم بحذف الأعشار من العدد مهما كانت .

أمثلة :

1 - FIX ( - 2.7 ) = - 2 lll
2 - FIX ( 3.4 ) = 3 lll
3 - FIX ( - 3.4 ) = - 3 lll
4 - FIX ( 4.9 ) = 4 lll

( 4 ) - اقتران أكبر عدد صحيح أقل أو يساوي اكس .. INT ( X ) lll

- اذا كانت X موجب يحذف الأعشار :::::::: مثلا ً : INT ( 3.7 ) = 3
- اذا كانت X عدد عدد سالب يقرب الى ما بعدها INT ( - 2.1 ) = - 3

* اذا كان X عدد موجب فإن FIX ( X ) = INT ( X ) lll

أمثلة :

1 - FIX ( 2.3 ) = 2

2 - FIX ( - 2.3 ) = - 3

3 - INT ( 2.3 ) = 2

4 - INT ( - 2.3 ) = - 3

* اذا كانت Y ، X أعداد موجبه فإن :

X\Y = INT ( X \ Y ) lll

مثال : INT ( 10 \ 3 ) = 3

مثال : INT ( - 10 \ 3 ) = - 4

( 5 ) - الاقترانات المثلثية : تتعامل مع التقدير الدائري ، بيسك يتعامل القيم العددية .

يجب تحويل القيم العددية الى اقتران دائري : ( X * 3.14 \ 180 )

جا X الى SIN ( X * 3.14 \ 1180 ) lll

جتا X الى COS ( X * 3.14 \ 180 ) lll

ظا X الى TAN ( X * 3.14 \ 180 ) lll

- يمكن استخدام 7 / 22 بدل من 3ز14 لزيادة دقة الناتج .

( 6 ) - اقتران عدد عشوائي بين ( 0 - 1 ) RND

( 0 - 10 ) RND * 10
( 0 - 100 ) RND * 100
( 0 - 70 ) RND * 70

- تكون البداية من الصفر .

- اما اذا كان العدد يختلف ( غير الصفر ) تكون :

( 2 - 50 ) RND * ( 50 - 2 ) + 2

( 7 - 20 ) RND * ( 20 - 7 ) + 7


مثال : أكتب برنامج لطباعة 10 أعداد عشوائية صحيحة بين ( 3 - 30 )

الحل :

FOR I = 1 TO 10
Print FIX ( RND * ( 30 - 3 ) + 3 ) lll
NEXT I