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

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

السلام عليكم ورحمة الله
العدد المثالي هو عدد طبيعي يساوي مجموع قواسمه بما فيها 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

خالص تحياتي :abc_152:

[أبو يوسف]

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

:abc_152:

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

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

[امل الماضي]

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

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

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

[abohmam]

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

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

[أبو فارس]

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

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

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