برنامج باسكال على طريقة PowerPoint (من برمجتي)

[you92cef]

المشاركة الأصلية كتبت بواسطة حذيفة بن اليمان

أوكي، شكرا لكما على الرد، وإليكم السؤال:

أعمل برنامج باسكال، يعمل مصفوفة ثنائية الأبعاد 8x8.

بعدها يتم ملأ هاته المصفوفة بطريقة عشوائية برقمين فقط هما 0 و 1. يعني لن تملأ المصفوفة يدويا بل عشوائيا باستعمال الدالة Random.

بعدها، نضع في كل سطر خانة سوداء (ليكون الجدول مثل الكلمات المتقاطعة)، يمكنك أن تعتبر الخانة كراكتر مثلا #

يعني في كل سطر يكون # واحد، وفي كل سطر مكانه يختلف يعني يكون بطريقة عشوائية أيضا.

الان تحصلنا على جدول عبارة عن أرقام متقاطعة، مثل الكلمات المتقاطعة، في كل سطر هناك عدد أو عددين في النظام الثنائي (Binaire) وعلينا الآن أن نحول كل سطر إلى النظام العشري (Decimale).

(مثلا حين نحول السطر الأول (يمكنك التحويل بدالة)، السطر الأول مثلا فيه أكيد خانة سوداء # وإذا كانت هاته الخانة الأولى أو الأخيرة أكيد سيكون في السطر عدد واحد فقط، أما إذا كانت تختلف عن الأولى والأخيرة فأكيد سيوجد لنا عددان في هذا السطر، عدد قبل خانة # وعدد بعد خانة #).

هذا البرنامج كان عبارة عن مشروع طلبه أستاذ دكتور معنا في الجامعة وكنت أحاول فيه ثم أمنحه الحل ليصحح لي الأخطاء ويوجهني والحقيقة ساعدني فيه كثيرا واستفدت منه كثيرا، وقد وصلت إلى مراحل متقدمة فيه، إلا أن السنة انتهت ولم ألتق بالأستاذ مجددا.

وهذا البرنامج هو مساعدة وتطوير حقيقي لكل مبرمج.

إشرعوا في حله، ولأي استفسار أنا موجود وإن شاء الله يكون الجميع مستفيد.

----------------------------------
قرات ما هو مطلوب وسوف اضع الخطوات لحل المشكل

اولا نحتاج الى تعريف جدول 8*8 وهذا سهل

ثانيا نحتاج الى استخدام دالة random مع خاصية randomize
بما اننا نحتاج الى ان نملا الجدول ب0 او 1 فقط فانصح ان نستعمل دالة random بالمجال 0الى 2*-*نستثني 2 في هذه الحالة نضع الشرط التالي اذا حصلنا على الرقم 2 نعيد اختيار رقم عشوائي*-*

ثم بعدها ناخذ الجزء الصحيح بحيث في هذه الحالة سوف يكون لنا الناتج اما 0 او 1

طبعا كل هذا يكون باستعمال الدالة for

بما اننا نضع في كل سطر خانة سوداء فاننا نحتاج الى استعمال دالة random مرتين لتوزيع الخانة السوداء في كل سطر مرة واحدة ثم نكمل السطر ب0 او 1
لهذه الحلة نستدعي الدالة randoك مرة ثانية
لناخذ مثال
سوف املا السطر الاول يعني نفرض انه السطر يكون بالشكل التالي
1-1=0 في الخانة الاولى من السطر الاول وضعت 0
نكمل الى غاية 1-8
نلاحظ الان ان i ثابت واخذ القيمة1
ونلاحظ ان jمتغير من1 الى 8

الان نستعل الدالة رندوم في المجال 1الى 9*-*لا ناخذ القفيمة 9*-*
سوف نحصل علر رقم عشوائي ناخذ الجزئ الصحيح له يعني مثلا نحصل على الرقم 5.4896521315
الجزء الصحيح هم 5
الان نقوم بتغير الخانة 1-5 ونضع في مكانها خانة سوداء

-*- في هذه الحالة سوف نحصل على سطر فيه خانة واحدة سوداء عشوائية والباقي عبارة عن 0 او 1 وهم كذلك عشوائيين *-*
-----------
نكمل نفس العمل مع باقي الاسطر

الان تحويل الرقم من نظام ثنائي الى عشري
انصح باستعمال الخاصية التالية

نستعمل الدالةfor
مع خاصية downto في هذه الحالة مثلا تكون الخانة السوداء في المكان الخامس يعني سوف اخذ الارقام من 4الى واحد

اولا علي ان اجد مكان الخانة السوداء وهذا باستعمال الشرط if

نفرض الان ان مكانها هو 5
اذن علي اخذ الارقام من 1 الى 4 وتحويلها الى التظام العشري في هذه الحالة استخدم الدالة downto مع البدا من i-1 الى 1 مع i هو ترتيب الخانة السوداء في هذها المثال i=5 اذن i-1=4 سوف اخذ الارقام من 4 الى 1 ولكن علي ان اخذها من 1 الى اربعة
باستخدام downto سوف احصل مثلا على الرقم 1011 ولكن الاصح هو 1101

لان الخانة 4 هي عبارة عن 1
الخانة 3 عبارة عن 1
الخانة 2 عبارة عن 0
الخانة 1 عبارة عن 1
بالامر downto سوف احصل على 1101
ولكن اظن ان التمرين يقول ان ناخذها من 1 الى 4 يعني لابد من اخذها بهذا الشكل 1011 ثم نحول الرقم الى رقم عشري

وهذا سهل باستعمال خاصية الاستبدال permutation

ثم نحتاج الى اخذ الارقام من 5 الى 8 يعني من i+1 الى 8 وهنا نستخدم خاصية for بشكل عادي ولا نحتاج الى تبيل permutation


الان نص التمرين ناقص ولكن اظن اننا نحتاج الى عرض النتائج وهذا سهل

اظن ان هذه هو لوغاريتم المشكل

بخصوص التحويل الى النظام العشري سهل طالما اننا خزنا الرقم مثلا 1011 في جدول يعني ناخذ قيم الجدول ونحدد مكانها ونحول بالاستعمال قواعد التحويل من النظام الثنائي الى العشري


شكرا

[you92cef]

ما هي صيغة حفظ الربنامج لانه يكتب

icon file not found(please change it in project options)

[maladona]

merci pour cela

[TOTI_DZ]

بارك الله فيكم وجزاكم خير الجزاء