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

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

توزيع مراتب عدد

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

  • توزيع مراتب عدد

    السلام عليكم ورحمة الله
    إخواني الأعزاء
    لو أحببنا توزيع عدد وليكن مثلا 2645
    حيث يتم التوزيع في مراتب الأحاد و العشرات و المئات و الالاف
    في هذه الحالة

    هل ممكن أن تشاركنا بأكواد تفي بالغرض
    سلامي و احترامي

  • #2
    استخدم الدالة
    string.mid

    تعليق


    • #3
      لمحت فأفدت بارك الله فيك و جزاك الله خيرا
      إخواني
      الدالة المشار إليها تمكننا من تحديد بداية المنزلة و نهايتها لأي عدد

      تعليق


      • #4
        عند تحديد المنازل الوسطى مثلا المئات في العدد 7341
        وعند تطبيق
        كود:
        result = String.Mid("7341", 2, 2);
        Input.SetText("Input1", result);
        سأحصل على 34 بدل 3 لوحدها
        أين الخلل في الاستعمال ؟

        تعليق


        • #5
          اعتذر ربما الكود يكون بهذا الشكل
          كود:
          result = String.Mid("7341", 2, 1);
          Input.SetText("Input1", result);
          ليحقق الاستخلاص المطلوب

          تعليق


          • #6
            وطبعا قبل ذلك عليك الحصول على طول النص أوعدد الحروف أو عدد الأرقام للنص بإستخدام String.Length

            حتى يكون هناك حدود إن كان طول الرقم غير ثابت

            تعليق


            • #7
              لكم مني أجمل تحية .

              تعليق


              • #8
                المشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركة
                وطبعا قبل ذلك عليك الحصول على طول النص أوعدد الحروف أو عدد الأرقام للنص بإستخدام String.Length

                حتى يكون هناك حدود إن كان طول الرقم غير ثابت
                شكرا جزيلا
                بعدما حاولت مع الدالة string.mid لم تخدمني كثيرا للوصول إلى
                برمجة تخص توزيع المراتب لذلك سأطرح حلا أرجو أن يلقى القبول

                سنتعامل مع تحديد المراتب للأعداد الصحيحة
                نعرف بأن أي عدد صحيح باقي قسمته على عشرة هو رقم الأحاد
                مباشرة مثال 2645 مقسوم على 10 = 264 و الباقي 5 وهورقم الوحدات
                لنترجم ذلك لكود
                بفرض لدينا أنبوت 1 سنكتب فيه اي عدد صحيح
                سنستخرج منه رقم الاحاد بالكود التالي :
                كود:
                x=Input.GetText("Input1");
                ahad = Math.Mod(x,10);
                Input.SetText("Input2", ahad);
                اذا أردنا استخلاص رقم العشرات من نفس العدد السابق
                نأخذ العدد 2645 ونقسمه على 10 ثم نهمل المراتب العشرية
                باستعمال Math.Floor باقي قسمة الناتج على 10 هو رقم العشرات
                ويكون الكود كالتالي :
                كود:
                acharatte = Math.Mod(Math.Floor(x/10),10);
                Input.SetText("Input3", acharatte);
                للحصول على منزلة المئات نقوم بنفس الخطو السابقة لكن نقسم العدد في الاول على 100
                ثم نهمل المراتب العشرية باقي قسمة الناتج على 10 هو المئات
                كود:
                miaat =  Math.Mod(Math.Floor(x/100),10);
                Input.SetText("Input4", miaat);
                وللحصول على مرتبة الالاف على نفس النمط
                كود:
                alaf =  Math.Mod(Math.Floor(x/1000),10);
                Input.SetText("Input5", alaf);
                ونبقى نضيف كل مرة صفر لقسمة x في دالة Math.Floor

                لنستخلص كل المراتب التي نريدها
                والسلام عليكم

                تعليق


                • #9
                  حل مميز جدا أخي أبو بلقيس ..

                  تحياتي لك

                  تعليق


                  • #10
                    المشاركة الأصلية بواسطة رعد الحواسيب مشاهدة المشاركة
                    حل مميز جدا أخي أبو بلقيس ..

                    تحياتي لك
                    أبو بلقيس
                    أفدتنا بمعلومة جيدة

                    لا شيئ بلا مقابل
                    هناك هدية
                    إليك حلقة الحساب الالى لكل المراتب (المنازل)

                    على فرض أن مشروعك يحوى إنبوت و زر
                    هذا هو كود الزر :-

                    كود PHP:
                    x=Input.GetText("Input1");
                    len String.Length(x);
                    for 
                    1,len do
                    Math.Floor(x);
                    fract Math.Mod(x,10);
                    x=x/10
                    Dialog
                    .Message("Notice",fractMB_OKMB_ICONINFORMATIONMB_DEFBUTTON1);
                    end 

                    تعليق


                    • #11
                      بارك الله فيك الاستاذ رعد
                      شكرا الأستاذ خالد بارك الله فيك
                      قد يأتي يوم و أطلب درسا مميزا حول التعامل
                      مع الحلقات أي شرح بالتفصيل
                      عيد مبارك

                      تعليق


                      • #12
                        المشاركة الأصلية بواسطة النصل القاطع مشاهدة المشاركة

                        هناك هدية
                        على فرض أن مشروعك يحوى إنبوت و زر
                        هذا هو كود الزر :-

                        كود PHP:
                        x=Input.GetText("Input1");
                        len String.Length(x);
                        for 
                        1,len do
                        Math.Floor(x);
                        fract Math.Mod(x,10);
                        x=x/10
                        Dialog
                        .Message("Notice",fractMB_OKMB_ICONINFORMATIONMB_DEFBUTTON1);
                        end 
                        هدية رائعة
                        أضفت السطر الثاني حتى يتم التعامل مع الأعداد الصحيحة و العشرية
                        كود:
                        x=Input.GetText("Input1");
                        x = Math.Floor(x);
                        len = String.Length(x);
                        for i = 1,len do
                        x = Math.Floor(x);
                        fract = Math.Mod(x,10);
                        x=x/10
                        Dialog.Message("Notice",fract, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
                        end
                        شكرا

                        تعليق


                        • #13
                          كود PHP:
                          x=Input.GetText("Input1");
                          for 
                          =string.len(x),1,-do
                          result String.Mid(xi1);
                          Dialog.Message("Notice"result);
                          end 

                          تعليق

                          مواضيع تهمك

                          تقليص

                          المنتدى: القسم العام نشرت بواسطة: 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