أستغفر الله العظيم ... سبحان الله وبحمده



العودة   منتديات داماس > اسطوانة الويندوز الخاصة > ورشة عمل اسطوانات تجميعات البرامج وشروحات ودروس برنامج الاوتوبلاي AutoPlay Media Studio


مواضيع مميزة  


آخر عشرة مواضيع المواضيع النشطة


10-07-2017, 01:12 AM
Ahmed Hatem Ahmed غير متصل
مشرف منتدى الاوتوبلاي
رقم العضوية: 620600
تاريخ التسجيل: Jun 2015
المشاركات: 1,413
إعجاب: 272
تلقى 1,600 إعجاب على 441 مشاركة
تلقى دعوات الى: 1002 موضوع
    #1  

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


خوارزميات السؤال الخامس [Lua AutoPlay
السؤال الخامس من اسئلة الخوارزميات يتعلق المصفوفات السؤال كالتالي
لدينا مصفوفة كلها ارقام زوجية او كلها ارقام فردية بخلاف رقم واحد فقط
هل يمكنك أن تأتي بهذا الرقم المختلف من المصفوفة (انظر الصورة للمزيد من التوضيح)


صورة

[CENTER]
خوارزميات السؤال الخامس [Lua AutoPlay[/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





طلب العلم فريضة علي كل مسلم

أول العلم الصمت والثاني حسن الإستماع والثالث حفظه والرابع العمل به والخامس نشره

المواضيع المشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
خوارزميات - السؤال الرابع [Lua - AutoPlay Media Studio] Ahmed Hatem Ahmed ورشة عمل اسطوانات تجميعات البرامج وشروحات ودروس برنامج الاوتوبلاي AutoPlay Media Studio 18 10-07-2017 03:27 PM
خوارزميات - السؤال الثالث [Lua - AutoPlay Media Studio] Ahmed Hatem Ahmed ورشة عمل اسطوانات تجميعات البرامج وشروحات ودروس برنامج الاوتوبلاي AutoPlay Media Studio 15 09-07-2017 04:12 AM
خوارزميات - السؤال الثاني [Lua - AutoPlay Media Studio] Ahmed Hatem Ahmed ورشة عمل اسطوانات تجميعات البرامج وشروحات ودروس برنامج الاوتوبلاي AutoPlay Media Studio 9 08-07-2017 05:27 AM
خوارزميات - السؤال الاول [Lua - AutoPlay Media Studio] Ahmed Hatem Ahmed ورشة عمل اسطوانات تجميعات البرامج وشروحات ودروس برنامج الاوتوبلاي AutoPlay Media Studio 19 05-07-2017 08:55 PM
الدرس الخامس من سلسلة دروس برنامج AutoPlay Media Studio perince-ellayaly ورشة عمل اسطوانات تجميعات البرامج وشروحات ودروس برنامج الاوتوبلاي AutoPlay Media Studio 10 22-04-2015 12:24 PM

10-07-2017, 01:19 PM
عبد الهادي بهاب غير متصل
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 549
إعجاب: 75
تلقى 256 إعجاب على 149 مشاركة
تلقى دعوات الى: 17 موضوع
    #2  
لاستخراج الاعداد الزوجية من الفردية

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
المشاركات: 549
إعجاب: 75
تلقى 256 إعجاب على 149 مشاركة
تلقى دعوات الى: 17 موضوع
    #3  
لاستحراج الاعداد الزوجية و الفردية من مصفوفة




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
المشاركات: 549
إعجاب: 75
تلقى 256 إعجاب على 149 مشاركة
تلقى دعوات الى: 17 موضوع
    #4  
حل آخر


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
تلقى 4 إعجاب على 4 مشاركة
تلقى دعوات الى: 0 موضوع
    #5  
= {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,413
إعجاب: 272
تلقى 1,600 إعجاب على 441 مشاركة
تلقى دعوات الى: 1002 موضوع
    #6  
المشاركة الأصلية كتبت بواسطة 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,413
إعجاب: 272
تلقى 1,600 إعجاب على 441 مشاركة
تلقى دعوات الى: 1002 موضوع
    #7  
المشاركة الأصلية كتبت بواسطة ثامر أبو بلقيس 
= {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]

English

Powered by vBulletin® Version
Copyright ©2000 - 2017, 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.
جميع ما يُطرح من مواضيع ومشاركات تعبر عن رأي كاتبها ولا تعبر عن رأي مالك الموقع أو الإدارة بأي حال من الأحوال.