إعـــــــلان

عبد الهادي بهاب · 09-09-2017, 07:41 PM

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

[hide]

كود PHP:


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);

[/hide]

**ياسرهتهت ياسرهتهت** · 09-09-2017, 07:46 PM

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 14-09-2017, 04:17 PM

للإطــــلاع

**ثامر أبو بلقيس ثامر أبو بلقيس** · 14-09-2017, 04:32 PM

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 14-09-2017, 05:20 PM

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

موفق

**ثامر أبو بلقيس ثامر أبو بلقيس** · 14-09-2017, 06:55 PM

موفق
[html]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);[/html]

**ثامر أبو بلقيس ثامر أبو بلقيس** · 14-09-2017, 08:25 PM

وبطريقة بناء مختلفة قليلا

كود PHP:


---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));

عبد الهادي بهاب · 15-09-2017, 07:37 AM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

موفق
[html]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);[/html]

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

وبطريقة بناء مختلفة قليلا

كود PHP:


---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));

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

إعـــــــلان

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

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

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك