تمرين رياضي ... دائما مع الاحتمالات 2

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

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

-------------
وجدت هذه الصورة

http://smart-kit.com/wp-content/uploads/2010/10/math-equation-pictures_puzzle.jpg


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

----------
هذه النتيجة

http://www.imgserv.com/images/2017/10/03/ux3Un8R.png


هل من افكار اخرى

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

ممكن ان تضيفوا عليها شرط عدم تكرار الرقم
و انا اعمل على ذلك

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

5 * 1 = 3 هذه لم افهمها

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

الى غاية شرح 5* 1 = 3
أرى أن للعملية بهكذا معطيات الصورة لها حل وحيد
وهو :
http://mrkzgulfup.com/do.php?img=34011


سأترك محاولتي في الأخير
موفق

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

5 * 1 = 3 هذه لم افهمها

ههههههههههههههههه صحيح

[المـهاجر]

بسم الله الرحمن الرحيم

http://www6.0zz0.com/2017/10/04/01/580721690.jpg

[المـهاجر]

http://www6.0zz0.com/2017/10/04/01/580721690.jpg

و كى لا افسد على المتابعين متعة التمرين
فالحل مرفق بكلمة سر
بالقواعد الآتية

لا يجوز لى (كواضع لحل تمرين) تعديل مشاركة الحل
لا يجوز لى الامتناع عن كشف الباس متى اعلنت انت ( كواضع التمرين) عن انتهاء تمرينك و قيامك بوضع للحل
يفترض ان تمنح مدة كافية للحل و هنا التزم بوضع الباس بنهاية المدة طبعا بعد وضعك للحل

يمكنك عدم قبول تلك القواعد و عندها قد أعدل مشاركتى هذه إلى :-
مشكووووووووووور
أو
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
أو
موفق بإذن الله ... لك مني أجمل تحية .

الخ .......... الخ ..........الخ
---------------------------------------------------
و فى الأخير
:abc_152::abc_152::abc_152:
:abc_152::abc_152:
:abc_152:

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

http://www6.0zz0.com/2017/10/04/01/580721690.jpg

و كى لا افسد على المتابعين متعة التمرين
فالحل مرفق بكلمة سر
بالقواعد الآتية

لا يجوز لى (كواضع لحل تمرين) تعديل مشاركة الحل
لا يجوز لى الامتناع عن كشف الباس متى اعلنت انت ( كواضع التمرين) عن انتهاء تمرينك و قيامك بوضع للحل
يفترض ان تمنح مدة كافية للحل و هنا التزم بوضع الباس بنهاية المدة طبعا بعد وضعك للحل

يمكنك عدم قبول تلك القواعد و عندها سأعدل مشاركتى هذه إلى :-
مشكووووووووووور
أو
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
أو
موفق بإذن الله ... لك مني أجمل تحية .
---------------------------------------------------
و فى الأخير
:abc_152::abc_152::abc_152:
:abc_152::abc_152:
:abc_152:

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

ففي الاخير نلتقي لنتعلم استاذ شكرا جزيلا على المرور الطيب و دائما نتعلم من افكاركم

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

محاولة


for a=1 ,9 do
for b=1 ,9 do
for c=1 ,9 do
for d=1 ,9 do
for e=1 ,9 do

v1 = a*10000 + c*1000 + b*100 + e*10 + d
v2 = d*1000 + c*100 + b*10 + a ;
if v2 * e == v1 then
igli = v2.." x "..e.." = "..v1
end

end end end end end

Dialog.Message("",igli);

[المـهاجر]

عني شخصيا كواضع للتمرين ...انما هو بغرض تعلم البرمجة و ثم قراءة اكواد الاخرين للتعلم
لذلك اعلن كواضع للتمرين ان المدة انتهت



يفترض ان تمنح مدة كافية للحل و هنا التزم بوضع الباس بنهاية المدة طبعا بعد وضعك للحل


لا بأس
سأعتبر رد حضرتك رفض

كامل التقدير و الاحترام
موفق بإذن الله ... لك مني أجمل تحية .
:abc_152::abc_152::abc_152:
:abc_152::abc_152:
:abc_152:

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

سبحان الله و بحمده

[عبود عبود]

والله أنا مش فاهم حاجة :abc_065: حاولت قراءة الموضوع ولكن :abc_070: بردو مش فاهم حاجة ولا إية المطلوب ولا إية الحل :abc_065:

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

والله أنا مش فاهم حاجة :abc_065: حاولت قراءة الموضوع ولكن :abc_070: بردو مش فاهم حاجة ولا إية المطلوب ولا إية الحل :abc_065:

كان السؤال في المشاركة 1 هو الوصول الى حل التمرين في الصورة اي تحويل الوجوه الى ارقام تحقق الشرط اي مواضعها في العدد
كنا نسال لنستفيد ثم وضعنا الحل الذي استطعنا ان نجده و ننتظر هل من افكار او حلول افضل من غير شروط
و الغرض هو ان نجد افكار و اكواد نستفيد منه و يستفيد منها الاخوة

[عبود عبود]

آه طيب مش فاهم بردو
وكم عدد الصور المراد توزيعها
وأين سيتم توزيعها أو كم عدد الأماكن المراد التوزيع فيها

مش هسيبكم لحد ما أفهم بتقولو إيه :abc_103:

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

http://smart-kit.com/wp-content/uploads/2010/10/math-equation-pictures_puzzle.jpg

ممكن نترجم كل وجه الى رقم مثلا
5 4 2 1
8 x
----------
52481

اي اذا كان الرقم 5 هو الاول في العدد العلوي فيجب ان يكون موضعه في الناتج هو الاخير
وهكذا و العملية عملية ضرب
ماهي الارقام التي تحقق الشرط هذا ؟
الحل هو :
4973x 8 = 39784

التمرين هو كود يجد الحل ؟

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

بسم الله الرحمن الرحيم سبحان الله و بحمده

تفضل أخي الجواب (متعمد فيه عدم الاختصار)
ويعالج عدم التكرار للأرقام
function test (tap,a)
for k = 1,4 do
if a == tap[k] then
return true
end;end
return false
end
------------------------------------
repeat
nb_table= {0,0,0,0};
p=0;number =0
n=1000;
for j=1,4 do
v =Math.Random(0, 9);
while (test(nb_table,v)==true) do
v = Math.Random(0,9);
end
Table.Insert(nb_table, j, v);
number =number+nb_table[j]*n
n=n/10
end
p =Math.Random(2, 9);
while (test(nb_table,p)==true) do
p = Math.Random(2,9);
end
tamer = number*p
until tonumber(String.Length(tamer))==5 and tonumber(String.Mid(tamer, 1, 1))==nb_table[4] and
tonumber(String.Mid(tamer, 2, 1))==nb_table[2] and tonumber(String.Mid(tamer, 3, 1))==nb_table[3]
and tonumber(String.Mid(tamer, 4, 1))==p and tonumber(String.Mid(tamer, 5, 1))==nb_table[1]
-----------------------------------------------------------------------------------------------

Dialog.Message("Notice", number..'*'..p..'='..tamer);


موفق

وطبعا بعد ماثبت انه لا يوجد الا حل وحيد يمكن اختصار الكود الى :
repeat
nb_table= {0,0,0,0};
p=0;number =0;n=1000
for j=1,4 do
v =Math.Random(0, 9);
Table.Insert(nb_table, j, v);
number =number+nb_table[j]*n
n=n/10
end
p =Math.Random(2, 9);
tamer = number*p
until tonumber(String.Length(tamer))==5 and tonumber(String.Mid(tamer, 1, 1))==nb_table[4] and
tonumber(String.Mid(tamer, 2, 1))==nb_table[2] and tonumber(String.Mid(tamer, 3, 1))==nb_table[3]
and tonumber(String.Mid(tamer, 4, 1))==p and tonumber(String.Mid(tamer, 5, 1))==nb_table[1]
Dialog.Message("Notice", number..'*'..p..'='..tamer);


لكن يبقى الغير مختصر هو الصحيح لمعالجة حالات مماثلة ذات الحلول المختلفة :abc_139:

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

بسم الله الرحمن الرحيم

تفضل أخي الجواب (متعمد فيه عدم الاختصار)
ويعالج عدم التكرار للأرقام
function test (tap,a)
for k = 1,4 do
if a == tap[k] then
return true
end;end
return false
end
------------------------------------
repeat
nb_table= {0,0,0,0};
p=0;number =0
n=1000;
for j=1,4 do
v =math.random(0, 9);
while (test(nb_table,v)==true) do
v = math.random(0,9);
end
table.insert(nb_table, j, v);
number =number+nb_table[j]*n
n=n/10
end
p =math.random(2, 9);
while (test(nb_table,p)==true) do
p = math.random(2,9);
end
tamer = number*p
until tonumber(string.length(tamer))==5 and tonumber(string.mid(tamer, 1, 1))==nb_table[4] and
tonumber(string.mid(tamer, 2, 1))==nb_table[2] and tonumber(string.mid(tamer, 3, 1))==nb_table[3]
and tonumber(string.mid(tamer, 4, 1))==p and tonumber(string.mid(tamer, 5, 1))==nb_table[1]
-----------------------------------------------------------------------------------------------

dialog.message("notice", number..'*'..p..'='..tamer);


موفق

وطبعا بعد ماثبت انه لا يوجد الا حل وحيد يمكن اختصار الكود الى :
repeat
nb_table= {0,0,0,0};
p=0;number =0;n=1000
for j=1,4 do
v =math.random(0, 9);
table.insert(nb_table, j, v);
number =number+nb_table[j]*n
n=n/10
end
p =math.random(2, 9);
tamer = number*p
until tonumber(string.length(tamer))==5 and tonumber(string.mid(tamer, 1, 1))==nb_table[4] and
tonumber(string.mid(tamer, 2, 1))==nb_table[2] and tonumber(string.mid(tamer, 3, 1))==nb_table[3]
and tonumber(string.mid(tamer, 4, 1))==p and tonumber(string.mid(tamer, 5, 1))==nb_table[1]
dialog.message("notice", number..'*'..p..'='..tamer);


لكن يبقى الغير مختصر هو الصحيح لمعالجة حالات مماثلة ذات الحلول المختلفة :abc_139:

ما شاء الله ...دائما افكار جديدة ..انا مع تفكيك الغازها و فهمها
ساحاول تطبيقها على صور اخرى مماثلة
شكرا جزيلا

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

ما شاء الله ...دائما افكار جديدة ..انا مع تفكيك الغازها و فهمها
ساحاول تطبيقها على صور اخرى مماثلة
شكرا جزيلا

موفق :abc_139:
نلتقي في مزيد من الأسئلة الجميلة أجدت :abc_139: