أستغفر الله العظيم ... سبحان الله وبحمده



العودة   منتديات داماس > اسطوانة الويندوز الخاصة > ورشة عمل اسطوانات تجميعات البرامج وشروحات ودروس برنامج الاوتوبلاي AutoPlay Media Studio


مواضيع مميزة  


آخر عشرة مواضيع المواضيع النشطة


11-07-2017, 03:15 AM
Ahmed Hatem Ahmed غير متصل
مشرف منتدى الاوتوبلاي
رقم العضوية: 620600
تاريخ التسجيل: Jun 2015
المشاركات: 1,413
إعجاب: 272
تلقى 1,600 إعجاب على 441 مشاركة
تلقى دعوات الى: 1002 موضوع
    #1  

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


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


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


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


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

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


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

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



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)) 
بالتوفيق للجميع خوارزميات السؤال السابع [Lua AutoPlay





طلب العلم فريضة علي كل مسلم

أول العلم الصمت والثاني حسن الإستماع والثالث حفظه والرابع العمل به والخامس نشره

المواضيع المشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
خوارزميات - السؤال السادس [Lua - AutoPlay Media Studio] Ahmed Hatem Ahmed ورشة عمل اسطوانات تجميعات البرامج وشروحات ودروس برنامج الاوتوبلاي AutoPlay Media Studio 14 11-07-2017 04:13 PM
خوارزميات - السؤال الخامس [Lua - AutoPlay Media Studio] Ahmed Hatem Ahmed ورشة عمل اسطوانات تجميعات البرامج وشروحات ودروس برنامج الاوتوبلاي AutoPlay Media Studio 6 10-07-2017 03:31 PM
خوارزميات - السؤال الثالث [Lua - AutoPlay Media Studio] Ahmed Hatem Ahmed ورشة عمل اسطوانات تجميعات البرامج وشروحات ودروس برنامج الاوتوبلاي AutoPlay Media Studio 15 09-07-2017 04:12 AM
خوارزميات - السؤال الثاني [Lua - AutoPlay Media Studio] Ahmed Hatem Ahmed ورشة عمل اسطوانات تجميعات البرامج وشروحات ودروس برنامج الاوتوبلاي AutoPlay Media Studio 9 08-07-2017 05:27 AM
خوارزميات - السؤال الاول [Lua - AutoPlay Media Studio] Ahmed Hatem Ahmed ورشة عمل اسطوانات تجميعات البرامج وشروحات ودروس برنامج الاوتوبلاي AutoPlay Media Studio 19 05-07-2017 08:55 PM

11-07-2017, 03:42 AM
عبد الهادي بهاب متصل
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 549
إعجاب: 75
تلقى 256 إعجاب على 149 مشاركة
تلقى دعوات الى: 17 موضوع
    #2  
من اجل انبوت 1 لادخال الرقم
و انيبوت 2 للنتيجة
في زر الكود هو :

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

الملف المفتوج

http://www.damasgate.com/vb/attachme...1&d=1499733847


11-07-2017, 03:54 AM
Ahmed Hatem Ahmed غير متصل
مشرف منتدى الاوتوبلاي
رقم العضوية: 620600
تاريخ التسجيل: Jun 2015
المشاركات: 1,413
إعجاب: 272
تلقى 1,600 إعجاب على 441 مشاركة
تلقى دعوات الى: 1002 موضوع
    #3  
محاولة بسيطة


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(Input.GetText("Input1"));
Input.SetText("Input2"Result
بالتوفيق لباقي الاخوه
وارجو ان تتقبل مروري

11-07-2017, 03:56 AM
Ahmed Hatem Ahmed غير متصل
مشرف منتدى الاوتوبلاي
رقم العضوية: 620600
تاريخ التسجيل: Jun 2015
المشاركات: 1,413
إعجاب: 272
تلقى 1,600 إعجاب على 441 مشاركة
تلقى دعوات الى: 1002 موضوع
    #4  
المشاركة الأصلية كتبت بواسطة igli 
من اجل انبوت 1 لادخال الرقم
و انيبوت 2 للنتيجة
في زر الكود هو :

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

الملف المفتوج

http://www.damasgate.com/vb/attachme...1&d=1499733847
المشاركة الأصلية كتبت بواسطة Ahmed Hatem Ahmed 
محاولة بسيطة


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(Input.GetText("Input1"));
Input.SetText("Input2"Result
بالتوفيق لباقي الاخوه
وارجو ان تتقبل مروري
ماشاء الله حل جميل استاذنا الحبيب عبد الهادي
وانت استاذ احمد حل يمشي الحال
منتظرين باقي الاخوة

11-07-2017, 06:03 AM
ثامر أبو بلقيس غير متصل
عضو مشارك
رقم العضوية: 932114
تاريخ التسجيل: Mar 2017
المشاركات: 32
إعجاب: 0
تلقى 4 إعجاب على 4 مشاركة
تلقى دعوات الى: 0 موضوع
    #5  
str ='14922154'
total = 0
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);
معدل الى حتى لانهمل طول رقم واحد
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 

11-07-2017, 07:10 AM
Ahmed Hatem Ahmed غير متصل
مشرف منتدى الاوتوبلاي
رقم العضوية: 620600
تاريخ التسجيل: Jun 2015
المشاركات: 1,413
إعجاب: 272
تلقى 1,600 إعجاب على 441 مشاركة
تلقى دعوات الى: 1002 موضوع
    #6  
محاولة اخري


function SumNumbers(num) if (num ~= 0) and (num == 0then return else return num 9end end
Input
.SetText("Input2"SumNumbers(Input.GetText("Input1"))) 
بالتوفيق للجميع


يلا نريد تجمع اكبر عدد من الحلول الممكنة

11-07-2017, 04:20 PM
عبد الهادي بهاب متصل
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 549
إعجاب: 75
تلقى 256 إعجاب على 149 مشاركة
تلقى دعوات الى: 17 موضوع
    #7  
ما معنى الدالة num % 9

11-07-2017, 08:13 PM
Ayoux غير متصل
عضو جديد
رقم العضوية: 95766
تاريخ التسجيل: Aug 2007
المشاركات: 11
إعجاب: 0
تلقى إعجاب 1 على مشاركة واحدة
تلقى دعوات الى: 0 موضوع
    #8  
هي باقي القسمة


11-07-2017, 08:50 PM
عبد الهادي بهاب متصل
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 549
إعجاب: 75
تلقى 256 إعجاب على 149 مشاركة
تلقى دعوات الى: 17 موضوع
    #9  
المشاركة الأصلية كتبت بواسطة Ayoux 
هي باقي القسمة
شكرا سيدي

11-07-2017, 11:02 PM
Ahmed Hatem Ahmed غير متصل
مشرف منتدى الاوتوبلاي
رقم العضوية: 620600
تاريخ التسجيل: Jun 2015
المشاركات: 1,413
إعجاب: 272
تلقى 1,600 إعجاب على 441 مشاركة
تلقى دعوات الى: 1002 موضوع
    #10  
المشاركة الأصلية كتبت بواسطة ثامر أبو بلقيس 
str ='14922154'
total = 0
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);
المشاركة الأصلية كتبت بواسطة igli 
ما معنى الدالة num % 9
ها هل يوجد اي حلول اخرى ام نفذت خلاص

12-07-2017, 03:01 AM
ثامر أبو بلقيس غير متصل
عضو مشارك
رقم العضوية: 932114
تاريخ التسجيل: Mar 2017
المشاركات: 32
إعجاب: 0
تلقى 4 إعجاب على 4 مشاركة
تلقى دعوات الى: 0 موضوع
    #11  
سأكتفي بالحل الوحيد المدرج
حتى لا نؤسس لاحتكار الاجابات و ترك المجال للأعضاء الاخرين
==========================
من جهة أخرى للأسف لست مقتنعا بحل الأخ اقلي رياضيا
و كذلك بالنسبة لحلك الاخير
أشعر بخلل ما
فقط هو حلك الأول صحيح للتعامل مع الاعداد الموجبة
موفقين

12-07-2017, 03:14 AM
عبد الهادي بهاب متصل
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 549
إعجاب: 75
تلقى 256 إعجاب على 149 مشاركة
تلقى دعوات الى: 17 موضوع
    #12  
المشاركة الأصلية كتبت بواسطة ثامر أبو بلقيس 
سأكتفي بالحل الوحيد المدرج
حتى لا نؤسس لاحتكار الاجابات و ترك المجال للأعضاء الاخرين
==========================
من جهة أخرى للأسف لست مقتنعا بحل الأخ اقلي رياضيا
و كذلك بالنسبة لحلك الاخير
أشعر بخلل ما
فقط هو حلك الأول صحيح للتعامل مع الاعداد الموجبة
موفقين
تحية استاذ ثامر
في حلك اعتمدت دالة تقوم بتفكيك العدد الى ارقام ...ثم تقوم بجمعها ..فاذا كان طول المجموع اكبر من1 فنعيد الكرة حتى يكون العدد 1 ....
هو نفسه ما قمت به .....اجمع كل الارقام فاذا اكبر من 9 نعيد الجمع ..اليس هذا رباضبات ؟؟؟

12-07-2017, 04:06 AM
ثامر أبو بلقيس غير متصل
عضو مشارك
رقم العضوية: 932114
تاريخ التسجيل: Mar 2017
المشاركات: 32
إعجاب: 0
تلقى 4 إعجاب على 4 مشاركة
تلقى دعوات الى: 0 موضوع
    #13  
المشاركة الأصلية كتبت بواسطة igli 
تحية استاذ ثامر
في حلك اعتمدت دالة تقوم بتفكيك العدد الى ارقام ...ثم تقوم بجمعها ..فاذا كان طول المجموع اكبر من1 فنعيد الكرة حتى يكون العدد 1 ....
هو نفسه ما قمت به .....اجمع كل الارقام فاذا اكبر من 9 نعيد الجمع ..اليس هذا رباضبات ؟؟؟

جيد

احسبلي الأطوال التالية
700075
8777
966180484

مارأيك ؟

13-07-2017, 02:24 AM
ثامر أبو بلقيس غير متصل
عضو مشارك
رقم العضوية: 932114
تاريخ التسجيل: Mar 2017
المشاركات: 32
إعجاب: 0
تلقى 4 إعجاب على 4 مشاركة
تلقى دعوات الى: 0 موضوع
    #14  
المشاركة الأصلية كتبت بواسطة Ahmed Hatem Ahmed 
محاولة اخري


function SumNumbers(num) if (num ~= 0) and (num == 0then return else return num 9end end
Input
.SetText("Input2"SumNumbers(Input.GetText("Input1"))) 
بالتوفيق للجميع


يلا نريد تجمع اكبر عدد من الحلول الممكنة
العمل خاطيء :

احسب :
45781245789698753524145
999999999999999999991
1111111111111111111117

13-07-2017, 05:41 AM
Ahmed Hatem Ahmed غير متصل
مشرف منتدى الاوتوبلاي
رقم العضوية: 620600
تاريخ التسجيل: Jun 2015
المشاركات: 1,413
إعجاب: 272
تلقى 1,600 إعجاب على 441 مشاركة
تلقى دعوات الى: 1002 موضوع
    #15  
المشاركة الأصلية كتبت بواسطة ثامر أبو بلقيس 
العمل خاطيء :

احسب :
45781245789698753524145
999999999999999999991
1111111111111111111117
اي في خطأ بالحساب ... لكن للاسف ليس عندي
أي فكرة لإصلاح المشكلة

 


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

English

Powered by vBulletin® Version
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
The owner and operator of the site is not responsible for the availability of, or any content provided.
Topics that are written in the site reflect the opinion of the author.
جميع ما يُطرح من مواضيع ومشاركات تعبر عن رأي كاتبها ولا تعبر عن رأي مالك الموقع أو الإدارة بأي حال من الأحوال.