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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 20-12-2014, 03:32 PM

{

}

**عبود عبود عبود عبود** · 23-12-2014, 12:57 AM

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

يمكننا إعتماد هذا الحل إلى حين وجود حلول أفضل :

كود:

--
y={4,2,4,7,4,2,7,0,7,9,7};
x={};
v=0;
for b=1,#y do
  for i=1,#y do
      if y[b]==y[i] then
        v=v+1;
      end
  end
  x[b]=v;
  v=0;
end
m = math.max(unpack(x));
for i,s in pairs(x) do
  if s==m then
    t=i;
  end
end
Dialog.Message("Notice", y[t], MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

تحياتى

**عبود عبود عبود عبود** · 23-12-2014, 01:18 AM

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

http://sites.ienajah.com/vb2/showpost.p...51&postcount=2

**ثامر أبو بلقيس ثامر أبو بلقيس** · 23-12-2014, 01:44 AM

كل التقدير على هذا التنوع في الحلول المفيد جدا
قرأت تدرج أفكارك في بناء هذا الحل الذكي ... بارك الله فيك على التفكير معي و مساعدتي

---
أخي وجود الحلول مهما كانت ليست استقالة بأن نتوقف عن التفكير
بالعكس ..... أأمل أن تُكتب عشرات الحلول عن كل إنشغال إن شاء الله

---- وتبقى الانشغالات مفتوحة لا تغلق مادامت هناك عقول تفكر بجدية
شكرا أستاذ تقديري

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

العنصر الأكثر تكرارا في المصفوفة

العنصر الأكثر تكرارا في المصفوفة

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك