تمرين ....... برمجة الحل للغز رياضيات

[عبد الهادي بهاب]

السلام عليكم ورحمة الله وبركاته

من باب الاستفزاز البرمجي و تنشيط التفكير البرمجي
اطرح هذا التمرين
انظروا الصورة التالية

http://a.top4top.net/p_65ufch1.png

و هو لغز رياضيات معروف
------------------------------
للتذكير ..........وضع الارقام من 1 حتى 9 في المربعات دون تكرار بحيث يكون المجموع في كل التاجاهات هو 15
---------------------
كيف اجعل البرنامج يجد الحل بحيث اجد المجموع في كل الاتجاهات
---------------
نطلب الكود او ملف مفتوح
--------------
لا اعرف الحل لانني مازلت اعمل عليه و لم اصل بعد
تحياتي:abc_022::abc_022:

[ثامر أبو بلقيس]

من خلال المربعات التسع الموجودة أمامك واضح جدا ان مركز المربع السحري هو : 5
طريقة الحساب :
رتبة المربع السحري أس 2 + 1 الكل مقسوم على 2
أي 3 أس 2 + 1 / 2
بمعنى 9+1 / 2 = 5 بمجرد الحصول على مركز المربع السحري سهل جدا من خلال المعادلات
استنتاج باقي الارقام ::::
بحيث :
لو نريد معرفة قيم مربعات الصف العلوي
من جهة اليمين حسابه دائما = مركز المربع السحري +1
المربع الذي يليه = مركز المربع السحري -4
المربع العلوي أقصى اليسار = مركز المربع السحري +3
----------------------------------------------------------------------
و لو اردنا قيم مربعات الوسط :
أقصى اليمين = مركز المربع السحري +2
المربع الاوسط = طبعا معروف و هو نفسه مركز المربع السحري
أقصى اليسار = مركز المربع السحري -2
----------------------------------------------------------------
و لو اردنا معرفة قيم المربعات السفلية :
على اليمين = مركز المربع السحري -3
الاوسط = مركز المربع السحري +4
على اليسار = مركز المربع السحري -1

-----------------------------------------------------------------
أربطها كلها بدالة شرطية لا غير
تقل لي هذه ليست أكواد أقول لك جسدها إلى محاولة لتجدد روابطا قد تعطلت
موفق :abc_138:
http://www.abc4web.net/vb/showthread.php?t=28026
لم تبق معي الا الصورة
http://store2.up-00.com/2016-03/145729008407911.jpg

[عبد الهادي بهاب]

من خلال المربعات التسع الموجودة أمامك واضح جدا ان مركز المربع السحري هو : 5
طريقة الحساب :
رتبة المربع السحري أس 2 + 1 الكل مقسوم على 2
أي 3 أس 2 + 1 / 2
بمعنى 9+1 / 2 = 5 بمجرد الحصول على مركز المربع السحري سهل جدا من خلال المعادلات
استنتاج باقي الارقام ::::
بحيث :
لو نريد معرفة قيم مربعات الصف العلوي
من جهة اليمين حسابه دائما = مركز المربع السحري +1
المربع الذي يليه = مركز المربع السحري -4
المربع العلوي أقصى اليسار = مركز المربع السحري +3
----------------------------------------------------------------------
و لو اردنا قيم مربعات الوسط :
أقصى اليمين = مركز المربع السحري +2
المربع الاوسط = طبعا معروف و هو نفسه مركز المربع السحري
أقصى اليسار = مركز المربع السحري -2
----------------------------------------------------------------
و لو اردنا معرفة قيم المربعات السفلية :
على اليمين = مركز المربع السحري -3
الاوسط = مركز المربع السحري +4
على اليسار = مركز المربع السحري -1

-----------------------------------------------------------------
أربطها كلها بدالة شرطية لا غير
تقل لي هذه ليست أكواد أقول لك جسدها إلى محاولة لتجدد روابطا قد تعطلت
موفق :abc_138:
http://www.abc4web.net/vb/showthread.php?t=28026
لم تبق معي الا الصورة
http://store2.up-00.com/2016-03/145729008407911.jpg

جميل جدا الحل ............شكرا جزيلا
ساجرب ان اجد الاكواد

-----------------------------------------
شخصيا التمرين جربته مع تلاميذ السنة الرابعة و الخامسة ووجدوا الحل بقليل من المساعدة
ففكرت ان برمجيا سيجد الحل بسهولة
اقصد التمرين ليس للحل اي لا اطلب من المستخدم ان يكتب الرقم في الخانات لكن الكود سيحاول ان يجد كل الاحتمالات الممكنة حتى يصل الى الحل
دون الاشارة الى وضع الرقم في الوسط ............الخ
------------------------------------
تصور وضعت له كود وهو منذ 5 ساعات لم يجد الحل ............؟؟ فقلت حاسوب غبي ......هههههههه.........ثم قلت انا الغبي لانني لم اكتب الكود بشكل جيد
على كل اضع امامكم الملف المفتوح .............

http://up.top4top.net/downloadf-65y1yp1-rar.html


-----------------------------
اجعلت في التايمر يفعل زر الاحتمالات بحيث يغيير كل الارقام ..في كل انبوت في cha سيفعل الزر اليا ......قد تغييرون الكود و تقللون الاحتمالات بحصرها .........
الفكرة هي البحث عن الفكرة ..............شكرا
:abc_152::abc_152:

[أبو يوسف]

أنا حللتها شفويا بدون برمجه هههههههههههههههههههه

http://www10.0zz0.com/2016/03/08/21/308024280.png

[عبد الهادي بهاب]

أنا حللتها شفويا بدون برمجه هههههههههههههههههههه

http://www10.0zz0.com/2016/03/08/21/308024280.png

:abc_022::abc_022::abc_022:

الف مبروك عليك يا استاذ ...........حل جميل ..........الفكرة ان يحلها البرنامج .........اي يبحث هو عن الاحتمالات ......حاولت لكن دائما اضطر لتسهيل و اختصار الاحتمالات ........لذلك فالعقل البشري رائع جدا .............و الية عمله معقدة لا يمكن ترجمتها اكواد :abc_022:

[عبد الهادي بهاب]

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

[عبود عبود]

أتابع معكم من بعيد " لا أحب الرياضيات إلا إذا كنت مجبرا لإستخدامها هههههه نقطة ضعف لدى " :abc_065:

[عبد الهادي بهاب]

أتابع معكم من بعيد " لا أحب الرياضيات إلا إذا كنت مجبرا لإستخدامها هههههه نقطة ضعف لدى " :abc_065:

و الله مرورك افضل من الرياضيات ....... شكرا جزيلا استاذي

[ثامر أبو بلقيس]

بسم الله الرحمن الرحيم
لدراسة كل الاحتمالات بطريقة رياضية
نطلب ... مهلة إن شاء الله نوفق في كتابة حل :abc_138:

[عبد الهادي بهاب]

بسم الله الرحمن الرحيم
لدراسة كل الاحتمالات بطريقة رياضية
نطلب ... مهلة إن شاء الله نوفق في كتابة حل :abc_138:

اهلا استاذ .......خذ وقتك .......فانا قررت ان اخدم مخي في الغاز الرياضيات بدلا من الاوتوبلاي .........و اتركه للتجميعات و و و

[المحترف القادم]

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

http://www4.0zz0.com/2016/03/09/01/439425074.png

[عبد الهادي بهاب]

http://www4.0zz0.com/2016/03/09/01/439425074.png

:abc_052::abc_052::abc_052:

مرحى لك .....حل صحيح و جميل جدا ........كيف تحول العلمية التي قمت بها في مخك و دماغك من عمليات و معادلات منطقية الى كود ........هذا هو التحدي ؟

[ثامر أبو بلقيس]

اهلا استاذ .......خذ وقتك .......فانا قررت ان اخدم مخي في الغاز الرياضيات بدلا من الاوتوبلاي .........و اتركه للتجميعات و و و

أولا هذه ترجمة حرفية لكلامي في أول مشاركة
x = 15
if Math.Mod(x, 3)==0 then
mil =x/3
----------------------------
value1=mil+1;value2=mil-4;value3=mil+3;
----------------------------
value4=mil+2;value5=mil;value6=mil-2
----------------------------
value7=mil-3;value8=mil+4;value9=mil-1
----------------------------
b = "\n"..value1.."|"..value2.."|"..value3.."\r\n"..value4.."|"..value5.."|"..value6.."\r\n"..value7.."|"..value8.."|"..value9
-------------------------------------------------------------------------------------------------------------------------
result = Dialog.Message("Notice", b);
end


ثانيا : كل الاحتمالات المتبقية ما هي الا لنفس الحل فقط
سأكتبها لك بكود آخر قريبا و ستكتشف ياتها اسهل مما تتصور

ملاحظة : الرقم 3 في الكود هو درجة المربع السحري أي 3 خلايا بكل صف
معناها مفروضة لا تتغير
تستطيع تغيير العدد 15 بأي عدد قابل القسمة على 3
----------------------------------------------------------------
هذا تلميح و ليس حل لأن السؤال الذي يطرح نفسه ما هي الحلول الاخرى ؟ ما عددها ؟
كيف تستنتج ؟؟؟؟
الكود سيعطي حلا واحدا صحيحا فماهي الحلول لنفس الثابت

لنا عودة :abc_138:

[عبد الهادي بهاب]

أولا هذه ترجمة حرفية لكلامي في أول مشاركة
x = 15
if Math.Mod(x, 3)==0 then
mil =x/3
----------------------------
value1=mil+1;value2=mil-4;value3=mil+3;
----------------------------
value4=mil+2;value5=mil;value6=mil-2
----------------------------
value7=mil-3;value8=mil+4;value9=mil-1
----------------------------
b = "\n"..value1.."|"..value2.."|"..value3.."\r\n"..value4.."|"..value5.."|"..value6.."\r\n"..value7.."|"..value8.."|"..value9
-------------------------------------------------------------------------------------------------------------------------
result = Dialog.Message("Notice", b);
end


ثانيا : كل الاحتمالات المتبقية ما هي الا لنفس الحل فقط
سأكتبها لك بكود آخر قريبا و ستكتشف ياتها اسهل مما تتصور

ملاحظة : الرقم 3 في الكود هو درجة المربع السحري أي 3 خلايا بكل صف
معناها مفروضة لا تتغير
تستطيع تغيير العدد 15 بأي عدد قابل القسمة على 3
----------------------------------------------------------------
هذا تلميح و ليس حل لأن السؤال الذي يطرح نفسه ما هي الحلول الاخرى ؟ ما عددها ؟
كيف تستنتج ؟؟؟؟
الكود سيعطي حلا واحدا صحيحا فماهي الحلول لنفس الثابت

لنا عودة :abc_138:

:abc_022::abc_022:

شكرا استاذ ......بارك الله فيك ........سحاول فهم الكود و الاستمرار في البقية ان فهمت ..........شكرا جزيلا

[ثامر أبو بلقيس]

لن أزعجك ... و بدل الاستفزاز البرمجي الجميل من طرفك ... أفضل أن
أحرك همتك و أقول لديك يوم واحد لتكتب بوكل ملم لكل الاحتمالات
مع الشرح للفكرة البرمجية و ليس لدور الاكواد :abc_139:
في انتظارك :abc_138:

[ثامر أبو بلقيس]

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

هذا حل يعطي نتائج صحيحة لأي مربع سحري درجة ثالثة
لا يهم الثابت = 15 بل الأهم أن يكون الثابت من قواسم 3 يمكن تجربة
ثوابت أخرى لمعاينة كل النتائج و التي بالمنطق ستكون 8 احتمالات
غير فقط العدد 15 لترى النتائج
x =15
if Math.Mod(x, 3)==0 then
mil =x/3
---------------------------------------
belkiss1=mil+1;belkiss2=mil-4;belkiss3=mil+3;
---------------------------------------
belkiss4=mil+2;belkiss5=mil;belkiss6=mil-2
---------------------------------------
belkiss7=mil-3;belkiss8=mil+4;belkiss9=mil-1
my_table = {{belkiss1,belkiss2 ,belkiss3 ,belkiss4,belkiss6,belkiss7,belkiss8,belkiss9},
{belkiss9,belkiss8 ,belkiss7 ,belkiss6,belkiss4,belkiss3,belkiss2,belkiss1},
{belkiss9,belkiss6 ,belkiss3 ,belkiss8,belkiss2,belkiss7,belkiss4,belkiss1},
{belkiss1,belkiss4 ,belkiss7 ,belkiss2,belkiss8,belkiss3,belkiss6,belkiss9},
{belkiss3,belkiss6 ,belkiss9 ,belkiss2,belkiss8,belkiss1,belkiss4,belkiss7},
{belkiss7,belkiss4 ,belkiss1 ,belkiss8,belkiss2,belkiss9,belkiss6,belkiss3},
{belkiss7,belkiss8 ,belkiss9 ,belkiss4,belkiss6,belkiss1,belkiss2,belkiss3},
{belkiss3,belkiss2 ,belkiss1 ,belkiss6,belkiss4,belkiss9,belkiss8,belkiss7},
};
for i = 1,8 do
b1 =my_table[i][1].."|"..my_table[i][2].."|"..my_table[i][3].."\r\n"..my_table[i][4].."|"..belkiss5.."|"..my_table[i][5].."\r\n"..my_table[i][6].."|"..my_table[i][7].."|"..my_table[i][8]
Dialog.Message("الاحتمــال"..i, b1);
end
end

ملاحظة : في أقرب فرصة سيتم تهذيب الكود بطريقة رياضية محتكرة عفوا أقصد مختصرة
يحول البلقيسات لبلقيس واحدة
بالتوفيق :abc_138:

[عبد الهادي بهاب]

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

هذا حل يعطي نتائج صحيحة لأي مربع سحري درجة ثالثة
لا يهم الثابت = 15 بل الأهم أن يكون الثابت من قواسم 3 يمكن تجربة
ثوابت أخرى لمعاينة كل النتائج و التي بالمنطق ستكون 8 احتمالات
غير فقط العدد 15 لترى النتائج
x =15
if math.mod(x, 3)==0 then
mil =x/3
---------------------------------------
belkiss1=mil+1; belkiss2=mil-4; belkiss3=mil+3;
---------------------------------------
belkiss4=mil+2 ;belkiss5=mil ;belkiss6=mil-2
---------------------------------------
belkiss7=mil-3 ;belkiss8=mil+4 ;belkiss9=mil-1

my_table = {{belkiss1,belkiss2 ,belkiss3 ,belkiss4,belkiss6,belkiss7,belkiss8,belkiss9},
{belkiss9,belkiss8 ,belkiss7 ,belkiss6,belkiss4,belkiss3,belkiss2,belkiss1},
{belkiss9,belkiss6 ,belkiss3 ,belkiss8,belkiss2,belkiss7,belkiss4,belkiss1},
{belkiss1,belkiss4 ,belkiss7 ,belkiss2,belkiss8,belkiss3,belkiss6,belkiss9},
{belkiss3,belkiss6 ,belkiss9 ,belkiss2,belkiss8,belkiss1,belkiss4,belkiss7},
{belkiss7,belkiss4 ,belkiss1 ,belkiss8,belkiss2,belkiss9,belkiss6,belkiss3},
{belkiss7,belkiss8 ,belkiss9 ,belkiss4,belkiss6,belkiss1,belkiss2,belkiss3},
{belkiss3,belkiss2 ,belkiss1 ,belkiss6,belkiss4,belkiss9,belkiss8,belkiss7},
};
for i = 1,8 do
b1 =my_table[i][1].."|"..my_table[i][2].."|"..my_table[i][3].."\r\n"..my_table[i][4].."|"..belkiss5.."|"..my_table[i][5].."\r\n"..my_table[i][6].."|"..my_table[i][7].."|"..my_table[i][8]
dialog.message("الاحتمــال"..i, b1);
end
end

ملاحظة : في أقرب فرصة سيتم تهذيب الكود بطريقة رياضية محتكرة عفوا أقصد مختصرة
يحول البلقيسات لبلقيس واحدة
بالتوفيق :abc_138:


واش نقولك ..............فوووووووووووووووور .............ربي يحفظك لنا استاذ ......... قمة في الذكاء استاذ او في المنطق .......ربي يخيلك لنا

جربته مع اعداد غير 15 و دائما النتيجة صحيحة تماما ........

[منوبة]

بارك الله لكم جميعا

الواحد بجد بفضلكم بعد فضل الله طبعا اصبح لديه ما ليده من حسن تعامل مع البرنامج ولولاكم لظل يحلم بعمل البرامج
بجد لا يكفيكم مجرد شكرا
بالنسبة للاستاذ ابو بلقيس لا اجد كلام اقوله في حقه
قمة العطاء قمة الابداع قمة الروووووووووووعة
ولي رجاءا منه وهو عدم الرفع على مركز الخليج لان الموقع محجوب بتونس وحرام نتحرم من فضلك علينا
شكرا لكل من ساعدنا ويساعدنا دائما
:abc_152::abc_152::abc_152: