X

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

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


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








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



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



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


    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)) 
    بالتوفيق للجميع
  • VIP
    • Sep 2018
    • 1486

    #2
    الله لا يهينك
    مشكور
  • الوسـام الماسـي
    • Feb 2019
    • 6308

    #3
    جزاك الله كل خير
  • VIP
    • Sep 2018
    • 2446

    #4
    جزاك الله كل خير أخي الغالي
  • عضو فعال
    • Sep 2018
    • 453

    #5
    بارك الله فيك
  • عضو فعال
    • Oct 2018
    • 585

    #6
    بارك الله فيك وجزاك خيرا وشكرا لك
  • عضو فعال
    • Sep 2018
    • 568

    #7
  • VIP
    • Jun 2019
    • 12

    #8
    المشاركة الأصلية بواسطة the-mask
    الله لا يهينك
    مشكور
    الله يخليك حبيبي ولك بالمثل ان شاء الله
  • VIP
    • Jun 2019
    • 12

    #9
    المشاركة الأصلية بواسطة faristorrent
    جزاك الله كل خير
    المشاركة الأصلية بواسطة أبو حكمت
    جزاك الله كل خير أخي الغالي

    وجزاكم كل خير احبائي في الله
  • VIP
    • Jun 2019
    • 12

    #10
    المشاركة الأصلية بواسطة Lazhar
    بارك الله فيك
    المشاركة الأصلية بواسطة aelshemy
    بارك الله فيك وجزاك خيرا وشكرا لك
    وبارك الله بكم شكرا لمروركم العطر والجميل
Working...
X