العدد المثالي

[ثامر أبو بلقيس ثامر أبو بلقيس]

السلام عليكم ورحمة الله
العدد المثالي هو عدد طبيعي يساوي مجموع قواسمه بما فيها 1

مثال : 6 = 1 + 2 + 3 . فالقواسم هنا مجموعها يساوي كذلك العدد 6
إذن العدد 6 يسمى عدد مثالي

وقد تم اكتشاف لغاية ديسمبر 2005 ثلاثة و اربعين عددا مثاليا فقط

لترجمة البحث عن العدد المثالي بالأوتوبلاي ماذا لو تكتب
في Global function الكود التالي :

function isPerfect(x)
x = String.ToNumber(x);

    local sum = 0
    for i = 1, x-1 do
	sum = ( Math.Mod(x, i)) == 0 and sum + i or sum
    end
    return sum 
end

وضع أنبوت 1 وزر ضع فيه الكود التالي :

x=Input.GetText("Input1");
x = String.ToNumber(x);

 isPerfect(x)
if isPerfect(x) == x then
result = Dialog.Message("Notice","عدد مثالي"); 
else
result = Dialog.Message("Notice", "ليس مثالي"); 
end

ملاحظة : تستغرق العملية وقتا طويلا في حالة الأعداد الكبيرة
إليك بأعداد مثالية
28=1+2+4+7+14
496=1+2+4+8+16+31+62+124+248
8128=1+2+4+8+16+32+64+127+254+508+1016+2032+4064

خالص تحياتي

[أبو يوسف أبو يوسف]

بوركت أخونا الكريم ابو بلقيس

[ثامر أبو بلقيس ثامر أبو بلقيس]

شكرا على المرور

[امل الماضي امل الماضي]

جزاك الله خيرا والدي الكريم
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
موفق بإذن الله ... لك مني أجمل تحية .
نرجو المزيد من هذه الافكار

[ثامر أبو بلقيس ثامر أبو بلقيس]

شكرا ابنتي المحترمة لن نبخل في إدراج أي مفيد
على شكل ملف جاهز أو تساؤل يدعو للبحث

[admin admin]

جزاك الله خيرا اخانا ابا بلقيس

بارك الله في جهودك الدائمة

[أبو فارس أبو فارس]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[ثامر أبو بلقيس ثامر أبو بلقيس]

شكرا أخي أبوهمام و أخي ابو فارس
مرور عطر ورمضان كريم