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

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

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

تمرين اخر ايضا للالغاز الرياضية

لاحظا الشكل الموالي
http://c.top4top.net/p_65mpbv3.png


كيف ابرمج كود بحث يحقق الحل
اضع الارقام من 1 حتى 8 شرط ان لا يكون الرقم بجانب الرقم الموالي له مهما كان الاتجاه
لاحظا هذا حل خطأ

http://c.top4top.net/p_65okkv1.png


تحياتي لكم و بالتوفيق في الحل

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

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

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

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

تم التعديل

ربي ينورك على المتابعة

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

هذا حل لكن لاحظ اني اعتمدت على الشكل التالي لتوزيع
الارقام
http://up.harajgulf.com/do.php?img=605622
الحل :
x=1
y=8
tamer=""
------------
mil1=Math.Max(x, y);mil2=Math.Min(x, y);
---------------
my_table = {{"[]",mil1-2,mil2+3,mil2+1,mil1,mil2,mil1-1,mil1-3,mil2+2},
{"[]",mil1-3,mil2+2,mil2+1,mil1,mil2,mil1-1,mil1-2,mil2+3},
{"[]",mil2+3,mil1-2,mil1-1,mil2,mil1,mil2+1,mil2+2,mil1-3},
{"[]",mil2+2,mil1-3,mil1-1,mil2,mil1,mil2+1,mil2+3,mil1-2}
};
for i = 1,4 do
tamer=tamer..my_table[i][1].." "..my_table[i][2].." "..my_table[i][3].." "..my_table[i][1].."\r\n"..my_table[i][4]..
" "..my_table[i][5].." "..my_table[i][6].." "..my_table[i][7].."\r\n"..
my_table[i][1].." "..my_table[i][8].." "..my_table[i][9].." "..my_table[i][1].."\r\n\r\n"
end
result = Dialog.Message("abou_belkiss ^~^",tamer );

بالمقارنة هل يمكنك كتابة حل لسؤالك وفق الرسم المطروح ؟؟:abc_138:

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

هذا حل لكن لاحظ اني اعتمدت على الشكل التالي لتوزيع
الارقام
http://up.harajgulf.com/do.php?img=605622
الحل :
x=1
y=8
tamer=""
------------
mil1=Math.Max(x, y);mil2=Math.Min(x, y);
---------------
my_table = {{"[]",mil1-2,mil2+3,mil2+1,mil1,mil2,mil1-1,mil1-3,mil2+2},
{"[]",mil1-3,mil2+2,mil2+1,mil1,mil2,mil1-1,mil1-2,mil2+3},
{"[]",mil2+3,mil1-2,mil1-1,mil2,mil1,mil2+1,mil2+2,mil1-3},
{"[]",mil2+2,mil1-3,mil1-1,mil2,mil1,mil2+1,mil2+3,mil1-2}
};
for i = 1,4 do
tamer=tamer..my_table[i][1].." "..my_table[i][2].." "..my_table[i][3].." "..my_table[i][1].."\r\n"..my_table[i][4]..
" "..my_table[i][5].." "..my_table[i][6].." "..my_table[i][7].."\r\n"..
my_table[i][1].." "..my_table[i][8].." "..my_table[i][9].." "..my_table[i][1].."\r\n\r\n"
end
result = Dialog.Message("abou_belkiss ^~^",tamer );

بالمقارنة هل يمكنك كتابة حل لسؤالك وفق الرسم المطروح ؟؟:abc_138:


فن .......روعة ......ربي يزيدك تالق و روعة و يعطيك حجة :abc_022::abc_022:

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

حتى افهم اللقطة .......ساضع الحل