حلّ المسائل العامة - برمجة 2

[Karam]

هي حل المسألة الأولى :

1.pas

الاجرائيات التوابع :
1 . اجرائية طباعة محتوى مجموعة :

CODE: تحديد الكل

procedure SeeOut_set(S : SetDivizer);


2 . اجرائية لحساب وطباعة العدد الكامل لمجموعة :

CODE: تحديد الكل

procedure SeeOut_full(S : SetDivizer);


3 . اجرئية لطباعة العناصر المشتركة بين مضاعفات عددين في المجال 1..255

CODE: تحديد الكل

procedure intersection_SCM(num1, num2 : integer);


4 . اجرائية لطباعة الأعداد الأولية تبع كلّ المجموعات ( الطلب الأخير )

CODE: تحديد الكل

procedure Primes_num(var VTabSet : TabSetDiv);


بس ستعملنا بقلبو تابع ( بيعطي قيمة true إزا كان العدد أولي و false إزا كان غير أولي )

CODE: تحديد الكل

function Bool_Primes(n : integer):boolean;

[Mr.TAMER]

حل المسألة الثانية :

2.pas

ملاحظة :

• numerator = البسط
• denominator = المقام
• conjugate = المرافق العقدي

[Karam]

حل المسألة الثالثة :

3.pas

ملا حظة :
وهي ساويتلك ياه أيام ..

بس فd حالات خاصة سئيلة وبلا طعمة ما رح ضيع وقت فيها

[Mr.TAMER]

لقد تصفحت المسائل ووجدت أن المسائل رقم 5-6-9 تم حلها ومناقشة أفكارها في وظائف العملي لذلك اقترح عدم إعادة حلها

والآن هذا هو حل المسألة الرابعة مطروح للنقاش

وحل المسألة السابعة أيضاً

والآن نستطيع بعد مناقشة هذين الحلين البدء من المسألة الثامنة - إذا لم يكن عند الشباب مانع -

[Mr.TAMER]

أعتقد أن الملفات لم يتم تحميلها بشكل صحيح

سوف أقوم بإعادة تحميلها مرة أخرى