X

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

AutoPlay Media Studio & Generate AIO Tutorials

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


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








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



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



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


    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
    Gold Medal
    • Sep 2018 
    • 2050 
    • 4,256 
    • 6,649 

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

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

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

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

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

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

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

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

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