X

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

AutoPlay Media Studio and Generate All In One Tutorials

 
  • تصفية
  • الوقت
  • عرض
مسح الكل
مشاركات جديدة


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








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



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



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


    PHP Code:
    d=Input.GetText("Input1");
    str =d;total 0
    if tonumber(string.len(d)) ==1 then
    Dialog
    .Message("len=",1);
    else 
    repeat
    for w in string.gmatch(str"%w") do
    total total w
    end
    ;str =''..total;total=0
    until string
    .len(str)==1
    Dialog
    .Message("SUM=",str);
    end 

    صاحب الحل :
    igli

    PHP Code:
    Input.GetText("Input1");

    ff1=;
    for 
    i=1,#t do f = f+tonumber( String.Mid(t, i, 1)) ; end b = ""..f  
     
    if >= 9 then  for i=1,#b do  f1= f1+ tonumber( String.Mid(b, i, 1)) ;     end  
     
    else  f1 f   end
    Input
    .SetText("Input2"f1

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



    PHP Code:
    number 18;

    --- 
    Solution 1
    function SumNumbers(num)
        
    numbers tostring(num);
        
    numberCount numbers:len();
        
    sum numbers:sub(1,1);
        for 
    numberCount do
            
    sum sum numbers:sub(i,i);
        
    end
        
    if(sum 9then return SumNumbers(sum); else return sumend
    end
    Result 
    SumNumbers(number);
    Dialog.Message("Result" Result);


    --- 
    Solution 2
    function SumNumbers(num) if (num ~= 0) and (num == 0then return else return num 9end end
    Dialog
    .Message("Result" SumNumbers(number)) 
    بالتوفيق للجميع

    #2
    الله لا يهينك
    مشكور
    تعليق

      #3
      جزاك الله كل خير
      دعوات واكونتات لاغلب مواقع التورنت
      اى بى تورنت - تورنت داى - تورنت ليتش
      عرب سين - عرب اكسترا
      تعليق

        #4
        جزاك الله كل خير أخي الغالي
        وإنما الأمم الأخلاق ما بقيت
        فإن هم ذهبت أخلاقهم ذهبوا
        تعليق

          #5
          بارك الله فيك
          ملأى السنابل تنحني بتواضع *** والفارغات رؤوسهن شوامخ
          تعليق

            #6
            بارك الله فيك وجزاك خيرا وشكرا لك
            تعليق

              #7
              تعليق

                #8
                Originally posted by the-mask *
                الله لا يهينك
                مشكور
                الله يخليك حبيبي ولك بالمثل ان شاء الله
                تعليق

                  #9
                  Originally posted by faristorrent *
                  جزاك الله كل خير
                  Originally posted by أبو حكمت *
                  جزاك الله كل خير أخي الغالي

                  وجزاكم كل خير احبائي في الله
                  تعليق

                    #10
                    Originally posted by Lazhar *
                    بارك الله فيك
                    Originally posted by aelshemy *
                    بارك الله فيك وجزاك خيرا وشكرا لك
                    وبارك الله بكم شكرا لمروركم العطر والجميل
                    تعليق
                    Working...
                    X