تمرين رياضي احتمالات 2

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

السلام عليكم ورحمة الله وبركاته
عندنا مصفوفتين :

b={1,2,3,4,5,6,7,8,9};
m={2,3,4,5,6,7,8,9};


سنشكل كسر بسطه من المجموعة b و المقام من المجموعة m

الشرط : ..... كم كسر يمكن تشكيله بحيث لا يكون حاصله 1 و ايضا لا يتساوى مع كسر أخر
---- لقد حاولت و ساعرض فكرتي بعد افكاركم --------

تحياتي

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

محاولة في انتظار افكاركم

b={1,2,3,4,5,6,7,8,9};
m={2,3,4,5,6,7,8,9};
x=1
p = {} ; bast={}; mkam={};
for i,n in pairs(m) do
for k ,v in pairs(b) do
if v ~= n then
p[x] = Math.Round(v/n,2); bast[x] = v; mkam[x] = n; x=x+1;
end ; end
end

for i,n in pairs(p) do c=i+1;
gh = String.ToNumber(n);
for c ,k in pairs(p) do
gh1 = String.ToNumber(k);
if gh1 == gh then
Table.Remove(p,c); Table.Remove(mkam,c); Table.Remove(bast,c);
end
end
end

igli ="";
for i=1,#p do
igli = igli .. bast[i].." / " .. mkam[i] .." = " .. p[i] .."\r\n"
end

Dialog.Message("igli", igli);

[ياسرهتهت]

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

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

للإطــــلاع
:abc_138:

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

من الخطأ استعمال Math.Round في تساؤل طرح يشكل مباشر حول القسمة
+ النتائج ليست دقيقة ( فقط تخمين بالنظر لعدد الاحتمالات)

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

عدد الاحتمالات 49

https://d.top4top.net/m_6226ysjv1.bmp

موفق :abc_138:

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

موفق
a= {1,2,3,4,5,6,7,8,9};
b= {2,3,4,5,6,7,8,9};
-------------Real possibilities--------------
items={};tamer={};flags= {};belkiss={}-------
for i=1,8 do--------ABOU_BELKISS 2017 -------
for k=1,9 do---------------------------------
if b[i]/a[k] ~= 1 then-----------------------
Table.Insert(items, k,a[k]/b[i]);------------
Table.Insert(tamer, k,a[k].."/"..b[i].."=")--
end;end;end----------------------------------
for p=1,table.getn(items) do----------------
if not flags[items[p]] then------------------
io.write(' ' .. items[p])--------------------
flags[items[p]] = true-----------------------
Table.Insert(belkiss, p, items[p]);----------
end;end;t=''---------------------------------
for n,k in pairs(belkiss) do-----------------
t =t..tamer[n].. belkiss[n].."\r\n"----------
end------------------------------------------
---------------------------------------------
Dialog.Message('عدد الاحتمالات '..Table.Count(belkiss),t);

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

وبطريقة بناء مختلفة قليلا
---Global functions
function test(belkiss,thamer)
for i =1,#belkiss do
if belkiss[i]==thamer then
return true
end;end
return false
end
--- On Click
a= {1,2,3,4,5,6,7,8,9};
b= {2,3,4,5,6,7,8,9};
k={};etat =false
for j =1,#b do
for i =1,#a do
if a[i]/b[j] ~=1 then
if test(k,a[i]/b[j])==false then
Table.Insert(k, i, a[i]/b[j]);
end;end;end;end

Dialog.Message("عدد الإحتمـــالات", Table.Count(k));

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

موفق
a= {1,2,3,4,5,6,7,8,9};
b= {2,3,4,5,6,7,8,9};
-------------Real possibilities--------------
items={};tamer={};flags= {};belkiss={}-------
for i=1,8 do--------ABOU_BELKISS 2017 -------
for k=1,9 do---------------------------------
if b[i]/a[k] ~= 1 then-----------------------
Table.Insert(items, k,a[k]/b[i]);------------
Table.Insert(tamer, k,a[k].."/"..b[i].."=")--
end;end;end----------------------------------
for p=1,table.getn(items) do----------------
if not flags[items[p]] then------------------
io.write(' ' .. items[p])--------------------
flags[items[p]] = true-----------------------
Table.Insert(belkiss, p, items[p]);----------
end;end;t=''---------------------------------
for n,k in pairs(belkiss) do-----------------
t =t..tamer[n].. belkiss[n].."\r\n"----------
end------------------------------------------
---------------------------------------------
Dialog.Message('عدد الاحتمالات '..Table.Count(belkiss),t);

وبطريقة بناء مختلفة قليلا
---Global functions
function test(belkiss,thamer)
for i =1,#belkiss do
if belkiss[i]==thamer then
return true
end;end
return false
end
--- On Click
a= {1,2,3,4,5,6,7,8,9};
b= {2,3,4,5,6,7,8,9};
k={};etat =false
for j =1,#b do
for i =1,#a do
if a[i]/b[j] ~=1 then
if test(k,a[i]/b[j])==false then
Table.Insert(k, i, a[i]/b[j]);
end;end;end;end

Dialog.Message("عدد الإحتمـــالات", Table.Count(k));


:abc_052::abc_052::abc_052:

ات شاء الله دخول مدرسي ناجح و العائلة بخير
حلول جد رائعة بارك الله فيكم
دائما مبدع