المضاعف المشترك الأصغر

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

السلام عليكم ورحمة الله
أخي الكريم في إعداد الوسائط أحتاج و سيحتاج كل زملاء
مهنة التدريس لأكواد تساعد في البحث عن المضاعف المشترك
الأصغر لعدد الاضافة المتعلقة بالرياضيات تحقق 5 أرقام
أما المضاعف المشترك لرقمين فمتاحة لكن أجد صعوبة
في تحديد المضاعف المشترك الأصغر لأعداد كثيرة و لتكن عشرة

اذ توفرت لك محاولة لاباس أن تفيدنا بها وجزاك الله خيرا
سلامي

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

يرفع

[admin admin]

حياك الله أخى ثامر

ان شاء الله الأخوة يتعاونوا معك فى هذا المشروع الجديد

موفق بإذن الله ... لك مني أجمل تحية .

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

بارك الله فيك بإذن الله ثم بتعاون الزملاء سيتم تجسيد كل فكرة
تطرح لتتاح إن شاء الله

[عبود عبود عبود عبود]

للأسف أنا ضعيف رياضيا

ولكن برمجيا جاااااااااامد

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

سنصل لحل معا إن شاء الله

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

أخي عبود حتى نحسب المضاعفات لعدد تعرف بأنها غير منتهية
وقد أرسل لك أحد الأكواد الجميلة حيث يستغل فيها القاسم المشترك
الأكبر للحصول على المضاعف المشترك الأصغر لعددين
لنزرع في global function

function belkiss( m, n )
    while n ~= 0 do
        local q = m
        m = n
        n =  Math.Mod(q, n);
    end
    return m
end
 
function thameur( m, n )
    return ( m ~= 0 and n ~= 0 ) and m * n / belkiss( m, n ) or 0
end

لاحظ

belkiss( m, n )

تعبر عن القاسم المشترك الأكبر

و

thameur( m, n )

تعبر عن المضاعف المشترك الأصغر

وحتى يتم استغلال الأكواد نضع أنبوت 1 و انبوت 2
لحساب القاسم المشترك الأصغر بكود غير الذي طرح في مشاركات سابقة تحت زر نضع

m = Input.GetText("Input1");
n = Input.GetText("Input2");
 Dialog.Message("Notice", belkiss( m, n ));

أما إذا أردنا حساب المضاعف المشترك الأكبر محل حديثنا
نستغل الانبوت 3 و4 للكود التالي :

m = Input.GetText("Input3");
n = Input.GetText("Input4");

 Dialog.Message("Notice", thameur( m, n ));

ستلاحظ أنه قد تحصلنا على المضاعف المشترك لعددين

معلومة رياضية : لحساب مضاعف عدة أعداد يمكن أن يتم حساب كل مضاعفين للعدد الاول و الثاني
ثم حساب مضاعفي العدد الثالث والرابع ثم نحسب مضاعف الناتيجين و على هذا النمط يتم البناء

أرجو أني أفدت و بالتأكيد ستبقى المسافة المتبقية عليك

[عبود عبود عبود عبود]

عندما أعود بعد غد من عملى إن شاء الله سوف أحاول أن أركز أكثر على مثل هذة الحاجات البرمجية والتى لم لأضعها فى أولوياتى أو موضع إهتماماتى إلى الآن

مع أنى خريج معهد فنى صناعى سنة 2001

سأركز معك إن شاء الله بعدما أسترجع معلوماتى الرياضيـــــــة