بدست آوردن بزرگترین مقسوم علیه مشترک و کوچکترین مضرب مشترک به صورت نرده بانی

[papa_toop]

سلام خدمت دوستان،
V چند وقتی هست که در گیر یافتن کدی برای بدست آوردن بزرگترین مقسوم علیه مشترک (ب.م.م.)و کوچکترین مضرب مشترک(ک.م.م) به صورت نرده بانی هستم ولی چیزی به ذهنم نرسید،اگه از دوستان کسی اطلاعاتی بهم بده ممنون می شم.V

[shahab2025]

سلام
با چی اون مشکل داری ؟
منطقش را نمی دونی یا نمی تونی بنویسی ؟؟
بگو تا کمکت کنم:چشمک:

منطق BMM به صورت زیر است

while r=0
m div n =r
m=n
n=r

که در آن اعداد mو n اعداد اصلی و r تابع کمکی است

[nima898]

روش حل رو هم میخواهید نمایش بده (اجزای نردبان)؟

[shahab2025]

روش حل رو هم میخواهید نمایش بده (اجزای نردبان)؟

پست داده شده ویرایش شد
ب.م.م را مطرح کردم
اگر سوال بود بگین
اگر نتونستی ک.م.م را از روش در بیاری هم بازم هستم

اما اگر همه چیز درست بود یه کلیک روی تشکر یادت نره
مرسی

[papa_toop]

سلام
V از راهنماییهاتون سپاس گزارم،ولی همون طور که آقا نیما گفتن نشون دادن اجزای نردبان مثلا توی یه MsgBox هستش V

V اگه کد ک.م.م. هم لطف کنید ممنون میشم V

V پاینده باشید V

[shahab2025]

سلام
V از راهنماییهاتون سپاس گزارم،ولی همون طور که آقا نیما گفتن نشون دادن اجزای نردبان مثلا توی یه MsgBox هستش V

V اگه کد ک.م.م. هم لطف کنید ممنون میشم V

V پاینده باشید V

برای به دست آوردن ک.م.م دوعدد را در هم ضرب کن و تقسیم بر ب.م.م آنها کن ....همین :چشمک:

[papa_toop]

V این کدی که شما گفتید ب.م.م. رو بیان نکرد :گریه: اصل مقصود من به نمایش گزاشتن اجزای نردبان هستش V

[mohsensaghafi]

سلام دوست عزیز.
شما باید برای این کار مقادیر r رو تو یه آرایه بریزی و بعد در آخر کل آرایه رو هر طور که دوست داری نمایش بدی. همین.
موفق باشی

[shahab2025]

V این کدی که شما گفتید ب.م.م. رو بیان نکرد :گریه: اصل مقصود من به نمایش گزاشتن اجزای نردبان هستش V

من درست متوجه نمیشم
یعنی میخوای سیستم در خروجی یه نردبان اعداد بکشه و داخلش را پر کنه ؟؟؟
اگر اینطوریه که مشکل نمایش آن چیه ؟

در ضمن من اون ب.م.م را تست کردم جواب میده - شما دو عدد فرض بگیر و در فرمول بزار . جواب درست میگیری ....

[papa_toop]

VسلامV
Vمن یه همچین کدی برای ب.م.م. دارم ولی نرده بانی نیست،منظورم از نرده بانی اینه که توی تقسیم عدد اول بر عدد دوم اجزای نرده بان توی یه خروجی نشون داده بشن V


Private Shared Function GCD(a As Integer, b As Integer) As Integer
Dim Remainder As Integer

While b <> 0
Remainder = a Mod b
a = b
b = Remainder
End While

Return a
End Function


همون کد در سی شارپ


static int GCD(int a, int b)
{
int Remainder;

while( b != 0 )
{
Remainder = a % b;
a = b;
b = Remainder;
}

return a;
}
V پاینده باشید V

[shahab2025]

نمیتونم بفهمم
یعنی میخواین ب.م.م را به صورت گرافیکی آموزش بده ؟؟؟؟؟

خوب واسه این کار باید چند تا لیبل فرا خوانی کنی و بعد از هر بار اجرا شدن حلقه اونا رو مقدار دهی کنی

[papa_toop]

V ترجیحا گرافیکی نباشه،واضح تر از این نمی دونم چطوری بگم،یعنی وقتی به ترتیب که عدد بزرگ بر کوچیکه تقسیم میشه به ترتیب نمایش داده بشه V

[VG123456]

بسمه تعالی
*-*-*-*-*-*
من برای ب م م کد زیر را دارم ولی برای ک م م چیز خاصی سراغ ندارم .

Cls
N = InputBox("Input Number 1 :")
M = InputBox("Input Number 2 :")
Do While M > 0
R = N - M * Int(N / M)
N = M
M = R
Loop
MsgBox ("Javab :" & N)

[VG123456]

بسمه تعالی
*-*-*-*-*-*-*
کد بالا به کارتون آمد .