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

تقليص
لا يوجد إعلان حتى الآن.

خوارزمية المشط

تقليص
هذا الموضوع مغلق.
X
X
 
  • تصفية - فلترة
  • الوقت
  • عرض
إلغاء تحديد الكل
مشاركات جديدة

  • خوارزمية المشط

    بسم الله الرحمن الرحيم

    قرأت هاته الخوارزمية - و هي خوارزمية المشط - و المتعلقة بالترتيب
    أعجبتني كثيرا كونها أقوى من خوارزمية الفقاعات
    فأحببت كتابتها قد يستفاد منها يوما
    في global functions نزرع :
    كود PHP:
       function combsort(t)
      
    local gapdgapswaps 1.2473#t, 0
      
    while gap swaps do
        
    local k 0
        swaps 
    0
        
    if gap 1 then gap math.floor(gap gapdend
        
    for 1#t - gap do
          
    if t[k] > t[gapthen
            t
    [k], t[gap], swaps t[gap], t[k], swaps 1
          end
        end
      end
      
    return t
    end 
    و لاستغلال الكود نضع في الزر :
    كود PHP:
     list = { 425711268119103}
    combsort(list)
    ="";
    for 
    ij in pairs(list) do
     
    p=p..j..","
    end
     result 
    Dialog.Message("Notice"p); 
    ونعاين كيف سيتم ترتيب عناصر المجموعة

    سلام

  • #2
    السلام عليكم ورحمة الله وبركاته
    جازاك الله خيرا كثيرا
    موفق بإذن الله ... لك مني أجمل تحية .

    تعليق


    • #3
      شكر وتقدير

      بسم الله الرحمن الرحيم
      السلام عليكم ورحمة الله وبركاته
      شكر لك استاذنا الكريم / ثامر
      علي هذه الخوارزمية الجيدة والمفيدة

      -----------------------------
      لكن عندي استفسار ؟؟
      لماذا عندما جعلت القائمة متغير لم تعطيني الترتيب الصحيح؟؟
      اين الخطأ ؟؟

      هذا الكود المستخدم
      -------------------------------------------------

      كود:
      ip1 = Input.GetText("Input1");
      ip2 = Input.GetText("Input2");
      ip3 = Input.GetText("Input3");
      ip4 = Input.GetText("Input4");
      ip5 = Input.GetText("Input5");
      ip6 = Input.GetText("Input6");
      
      list = { ip1, ip2,ip3, ip4, ip5, ip6}
      
      combsort(list) 
      p =""; 
      for i, j in pairs(list) do 
       p=p..j.."," 
      end 
       result = Dialog.Message("Notice", p);

      ----------------------------------------------------------------

      موفق بإذن الله ... لك مني أجمل تحية .

      تعليق


      • #4
        الأستاذ ياسر علينا أن نفهم البرنامج بأن ما كتب في الانبوتات
        قيم رقمية حتى يرتبها
        كود PHP:
         ip1 Input.GetText("Input1");
        ip1 String.ToNumber(ip1);
        ip2 Input.GetText("Input2");
         
        ip2 String.ToNumber(ip2);
        ip3 Input.GetText("Input3");
        ip3 String.ToNumber(ip3);
        ip4 Input.GetText("Input4");
           
        ip4 String.ToNumber(ip4);
        ip5 Input.GetText("Input5");
           
        ip5 String.ToNumber(ip5);
        ip6 Input.GetText("Input6");
           
        ip6 String.ToNumber(ip6);

        list = { 
        ip1ip2,ip3ip4ip5ip6}

        combsort(list) 
        =""
        for 
        ij in pairs(list) do 
         
        p=p..j.."," 
        end 
         result 
        Dialog.Message("Notice"p); 

        تعليق


        • #5
          شكراً لك اخي ثامر وبارك الله فيك
          دائما اقع في نفس الخطأ

          تعليق


          • #6
            المشاركة الأصلية بواسطة فرح صالحي مشاهدة المشاركة
            السلام عليكم ورحمة الله وبركاته
            جازاك الله خيرا كثيرا
            موفق بإذن الله ... لك مني أجمل تحية .
            شكرا جزيلا أخي بارك الله فيك

            تعليق


            • #7
              جزاك الله خيرا اخانا ابا بلقيس

              تعليق


              • #8
                مرور عطر

                تعليق

                مواضيع تهمك

                تقليص

                المنتدى: القسم العام نشرت بواسطة: Reem2Rabeh الوقت: 04-23-2025 الساعة 04:27 PM
                المنتدى: ضبط وتوكيد الجودة نشرت بواسطة: HeaD Master الوقت: 04-15-2025 الساعة 09:30 AM
                المنتدى: التصنيع والانتاج نشرت بواسطة: HeaD Master الوقت: 04-11-2025 الساعة 01:08 PM
                المنتدى: القسم العام نشرت بواسطة: نوال الخطيب الوقت: 03-19-2025 الساعة 03:07 AM
                المنتدى: الكمبيوتر والإنترنت نشرت بواسطة: عوض السوداني الوقت: 03-18-2025 الساعة 07:22 AM
                يعمل...
                X