الكود الخاص بالمضاعف المشترك الأصغر

[يوسف البراهيم]

السلام عليكم

اذا ممكن احد يعطني الكود الخاص بالمضاعف المشترك الأصغر

يعني مثلا
لدي عددين
6
5
اصغرمضاعف بينهم هو 30

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

x=6
y=5
i =1
repeat
i = i + 1
until Math.Mod(i, x)==0 and Math.Mod(i, y)==0
Dialog.Message("Notice", i);

[يوسف البراهيم]

x=6
y=5
i =1
repeat
i = i + 1
until Math.Mod(i, x)==0 and Math.Mod(i, y)==0
Dialog.Message("Notice", i);


الله يعطيك العافية

[عبد الهادي بهاب]

x=6
y=5
i =1
repeat
i = i + 1
until Math.Mod(i, x)==0 and Math.Mod(i, y)==0
Dialog.Message("Notice", i);

ما شاء الله

و بتغيير الترتيب تحصل على اقل قاسم المشترك

x=35
y=21
i =1
repeat
i=i+1;
until x% i ==0 and y%i == 0
Dialog.Message("Notice", i);

[عبد الهادي بهاب]

x=6
y=5
i =1
repeat
i = i + 1
until Math.Mod(i, x)==0 and Math.Mod(i, y)==0
Dialog.Message("Notice", i);

و بالتالي اذا ادمجنا الكل في الكل
سنحصل على pgdc القاسم المشترك الاكبر
و علـــــــــى ppdc القاسم المشترك الاصغر
و علــــــــــى pgmc المضاعف المشترك الاكبر
و علــــــــــى ppmc المضاعف المشترك الاصغر

لنفترض العدد الاول x=84 و العدد الثاني y=36 ......... الكود يكون

x=84
y=36
i =Math.Max(x,y);
g=1;
gh= 1;
repeat
i=i-1;
until x% i ==0 and y%i == 0

repeat
g=g+1;
until x% g ==0 and y%g == 0

repeat
gh=gh+1;
until gh%x ==0 and gh%y == 0


Dialog.Message("x=84 ** y=36","pgdc = ".. i .."\r\n" .. "ppdc ="..g .. "\r\n".."ppmc = "..gh.."\r\n".."pgmc = "..x*y);

[يوسف البراهيم]

الله يعطيك العافية

[عبد الهادي بهاب]

الله يعطيك العافية

الخطا في امه لا يوجد مضاعف اكبر لانه ما لا نهاية اي اي عدد ممكن تضربه في 10000000000000000000000000000000000000000000000 فيكون مضافعا للعدين
اما اصغر قاسم مشترك فهو 1