X

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

AutoPlay Media Studio and Generate All In One Tutorials

 
  • Filter
  • Time
  • Show
Clear All
new posts
  • Ahmed Hatem Ahmed
    Thread Author
    مشرف - إجازة
    • Jun 2019 
    • 17 


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








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



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



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


    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)) 
    بالتوفيق للجميع
  • the-mask
    VIP
    • Sep 2018 
    • 2151 
    • 4,234 
    • 6,649 

    #2
    الله لا يهينك
    مشكور
    Comment
    • أبو حكمت
      Free Membership
      • Sep 2018 
      • 2325 
      • 3,325 
      • 8,527 

      #3
      جزاك الله كل خير أخي الغالي
      Comment
      • Lazhar
        Free Membership
        • Sep 2018 
        • 389 
        • 80 

        #4
        بارك الله فيك
        Comment
        • aelshemy
          Free Membership
          • Oct 2018 
          • 261 
          • 429 
          • 1,032 

          #5
          بارك الله فيك وجزاك خيرا وشكرا لك
          Comment
          • H.I.C.H.A.M
            Free Membership
            • Sep 2018 
            • 449 
            • 224 
            • 120 

            #6
            Comment
            • Ahmed Hatem Ahmed
              Thread Author
              مشرف - إجازة
              • Jun 2019 
              • 17 

              #7
              Originally posted by the-mask View Post
              الله لا يهينك
              مشكور
              الله يخليك حبيبي ولك بالمثل ان شاء الله
              Comment
              • Ahmed Hatem Ahmed
                Thread Author
                مشرف - إجازة
                • Jun 2019 
                • 17 

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

                وجزاكم كل خير احبائي في الله
                Comment
                • Ahmed Hatem Ahmed
                  Thread Author
                  مشرف - إجازة
                  • Jun 2019 
                  • 17 

                  #9
                  Originally posted by Lazhar View Post
                  بارك الله فيك
                  Originally posted by aelshemy View Post
                  بارك الله فيك وجزاك خيرا وشكرا لك
                  وبارك الله بكم شكرا لمروركم العطر والجميل
                  Comment
                  • Ahmed Hatem Ahmed
                    Thread Author
                    مشرف - إجازة
                    • Jun 2019 
                    • 17 

                    #10
                    شكرا لك
                    Comment
                    Working...
                    X