العودة   منتديات داماس > انظمة التشغيل والاوفيس > ورشة عمل اسطوانات تجميعات البرامج وشروحات ودروس برنامج الاوتوبلاي AutoPlay Media Studio

إضافة رد
10-07-2017, 01:12 AM
Ahmed Hatem Ahmed
عضوية الشرف
رقم العضوية: 620600
تاريخ التسجيل: Jun 2015
المشاركات: 1,411
تلقى دعوات الى: 1179 موضوع
إعجاب: 269
تلقى 1,636 إعجاب على 445 مشاركة
 
خوارزميات السؤال الخامس [Lua AutoPlay Media Studio]
السؤال الخامس من اسئلة الخوارزميات يتعلق المصفوفات السؤال كالتالي
لدينا مصفوفة كلها ارقام زوجية او كلها ارقام فردية بخلاف رقم واحد فقط
هل يمكنك أن تأتي بهذا الرقم المختلف من المصفوفة (انظر الصورة للمزيد من التوضيح)


صورة

[CENTER]
خوارزميات السؤال الخامس [Lua AutoPlay Media Studio][/CENTER


----------$$$ تم اضافة الحلول $$$----------


الحلول :- (كل حل مختلف عن الاخر)
==================================

صاحب الحل : ثامر أبو بلقيس


= {4,7,6,10,8}; 
table.sort(s, function(a,b) return tonumber(Math.Mod(b2)) < tonumber(Math.Mod(a2)) end
Dialog.Message("Notice"s[1]); 
---------------------------------------- 
  
= {5,3,4,9,13}; 
table.sort(s, function(a,b) return tonumber(Math.Mod(a2)) < tonumber(Math.Mod(b2)) end
Dialog.Message("Notice"s[1]); 
==================================

صاحب الحل :
igli

t= {1,3,5,7,8,13,15,22}
gh "" ="";
for 
n in pairs(t) do
if 
/== Math.Floor(n/2then
  gh 
gh.." - "..n;
 else
 
g.." - "..n;
 
end
end

Dialog
.Message("","Zaoujia"..gh.."\r\n".."Fardia"..g); 
=================================

صاحب الحل : Ahmed Hatem Ahmed


    integersO = {2,4,6,8,9,12,16}
    
integersE = {1,3,5,6,7,9,13}
    --=======================================
    
odd 0;
    
eve 0;
    
oddI integersO[1];
    
eveI integersO[1];
    --=======================================
    -- 
you can use integersO or integersE
    
for #integersO do
          
if ((integersO[i] % 2) == 0then   
              eve 
eve 1;
              
eveI integersO[i];
          else
              
odd odd 1;
              
oddI integersO[i];
          
end
    end
    
--=======================================
    if (
odd evethen
       Dialog
.Message("" eveI);
    else
       
Dialog.Message("" oddI);
    
end
    
--======================================= 
بالتوفيق للجميع خوارزميات السؤال الخامس [Lua AutoPlay Media Studio]




10-07-2017, 01:19 PM
عبد الهادي بهاب
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 723
تلقى دعوات الى: 28 موضوع
إعجاب: 178
تلقى 440 إعجاب على 247 مشاركة
 
لاستخراج الاعداد الزوجية من الفردية

t= {1,3,5,7,8,13,15,22}
gh "" ;
for 
n in pairs(t) do
if 
/== Math.Floor(n/2then
  gh 
gh.."\r\n"..n;
 
end
end

Dialog
.Message("",gh); 

10-07-2017, 01:23 PM
عبد الهادي بهاب
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 723
تلقى دعوات الى: 28 موضوع
إعجاب: 178
تلقى 440 إعجاب على 247 مشاركة
 
لاستحراج الاعداد الزوجية و الفردية من مصفوفة




t= {1,3,5,7,8,13,15,22}
gh "" ="";
for 
n in pairs(t) do
if 
/== Math.Floor(n/2then
  gh 
gh.." - "..n;
 else
 
g.." - "..n;
 
end
end

Dialog
.Message("","Zaoujia"..gh.."\r\n".."Fardia"..g); 

10-07-2017, 01:31 PM
عبد الهادي بهاب
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 723
تلقى دعوات الى: 28 موضوع
إعجاب: 178
تلقى 440 إعجاب على 247 مشاركة
 
حل آخر


t= {1,3,5,7,8,13,15,22}
gh "" ="";
for 
n in pairs(t) do
   
find String.Find(n/2"."1)
  if 
find ~= -1 then 
    g 
g.." - "..n;
  else
  
gh gh.." - "..n;
  
end
end

Dialog
.Message("","Zaoujia"..gh.."\r\n".."Fardia"..g); 

10-07-2017, 02:48 PM
ثامر أبو بلقيس
عضو مشارك
رقم العضوية: 932114
تاريخ التسجيل: Mar 2017
المشاركات: 32
تلقى دعوات الى: 0 موضوع
إعجاب: 0
تلقى 4 إعجاب على 4 مشاركة
 
= {4,7,6,10,8};
table.sort(s, function(a,b) return tonumber(Math.Mod(b2)) < tonumber(Math.Mod(a2)) end)
Dialog.Message("Notice"s[1]);
----------------------------------------
  
= {5,3,4,9,13};
table.sort(s, function(a,b) return tonumber(Math.Mod(a2)) < tonumber(Math.Mod(b2)) end)
Dialog.Message("Notice"s[1]); 

10-07-2017, 03:30 PM
Ahmed Hatem Ahmed
عضوية الشرف
رقم العضوية: 620600
تاريخ التسجيل: Jun 2015
المشاركات: 1,411
تلقى دعوات الى: 1179 موضوع
إعجاب: 269
تلقى 1,636 إعجاب على 445 مشاركة
 
المشاركة الأصلية كتبت بواسطة igli 
لاستخراج الاعداد الزوجية من الفردية

t= {1,3,5,7,8,13,15,22}
gh "" ;
for 
n in pairs(t) do
if 
/== Math.Floor(n/2then
  gh 
gh.."\r\n"..n;
 
end
end

Dialog
.Message("",gh); 
المشاركة الأصلية كتبت بواسطة igli 
لاستحراج الاعداد الزوجية و الفردية من مصفوفة




t= {1,3,5,7,8,13,15,22}
gh "" ="";
for 
n in pairs(t) do
if 
/== Math.Floor(n/2then
  gh 
gh.." - "..n;
 else
 
g.." - "..n;
 
end
end

Dialog
.Message("","Zaoujia"..gh.."\r\n".."Fardia"..g); 
حل جميل استاذنا الحبيب مع ان المطلوب رقم واحد فقط وهو اول رقم
لكن عادي يمشي الجل

10-07-2017, 03:31 PM
Ahmed Hatem Ahmed
عضوية الشرف
رقم العضوية: 620600
تاريخ التسجيل: Jun 2015
المشاركات: 1,411
تلقى دعوات الى: 1179 موضوع
إعجاب: 269
تلقى 1,636 إعجاب على 445 مشاركة
 
المشاركة الأصلية كتبت بواسطة ثامر أبو بلقيس 
= {4,7,6,10,8};
table.sort(s, function(a,b) return tonumber(Math.Mod(b2)) < tonumber(Math.Mod(a2)) end)
Dialog.Message("Notice"s[1]);
----------------------------------------
  
= {5,3,4,9,13};
table.sort(s, function(a,b) return tonumber(Math.Mod(a2)) < tonumber(Math.Mod(b2)) end)
Dialog.Message("Notice"s[1]); 
حل جميل ومختصر استاذنا الحبيب سيتم اضافة الحلول الان


خوارزميات - السؤال الخامس [Lua - AutoPlay Media Studio]



Powered by vBulletin® Version
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
The owner and operator of the site is not responsible for the availability of, or any content provided.
Topics that are written in the site reflect the opinion of the author.
جميع ما يُطرح من مواضيع ومشاركات تعبر عن رأي كاتبها ولا تعبر عن رأي مالك الموقع أو الإدارة بأي حال من الأحوال.