تويت
السلام عليكم ورحمة الله
العدد المثالي هو عدد طبيعي يساوي مجموع قواسمه بما فيها 1
مثال : 6 = 1 + 2 + 3 . فالقواسم هنا مجموعها يساوي كذلك العدد 6
إذن العدد 6 يسمى عدد مثالي
وقد تم اكتشاف لغاية ديسمبر 2005 ثلاثة و اربعين عددا مثاليا فقط
لترجمة البحث عن العدد المثالي بالأوتوبلاي ماذا لو تكتب
في Global function الكود التالي :
وضع أنبوت 1 وزر ضع فيه الكود التالي :
ملاحظة : تستغرق العملية وقتا طويلا في حالة الأعداد الكبيرة
إليك بأعداد مثالية
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
خالص تحياتي
العدد المثالي هو عدد طبيعي يساوي مجموع قواسمه بما فيها 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
كود:
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
خالص تحياتي
تعليق