ب.م.م و ک. م .م

[vafanezhad]

چطور میشه کاربر دو عدد را وارد کند و برنامه بزرگترین مقسوم علیه مشترک و کوچکترین مضرب مشترک بین آن دو را محاسبه و چاپ کند؟
البته فقط با استفاده از حلقه های forوdo while
ب.م.م اینگونه به دست می آید:
مثلا کاربر aوb را وارد می کند
c=a mod b
d=b mod c
e=c mod d
.
.
.
.
.
تا زمانی که با قیمانده صفر شود آنگاه آخرین به عنوان مثال D را به عنوان بزرگترن مقسوم علیه مشارک به حساب می آوریم

برا محاسبه ک .م.م:
1-ب.م.م دو عدد را بدست می آوریم
2-یکی از دو عدد وارد شده توسط کاربر را بر ب. م .م تقسیم می کنیم.
3-خارج قسمت تقسیم قبلی را در عدد دیگری که توسط کاربر وارد شده ضرب می کنیم.
ممنون میشم اگه کسی جوابمو بده

[jamesband007]

ببخشید یه کم دیر شد!! :لبخند:

Private Function bmm(ByVal int1 As Integer, ByVal int2 As Integer) As Integer
Dim a, b, r As Integer
b = int1
r = int2
Do While r <> 0
a = b
b = r
r = a Mod b
Loop
bmm = b
End Function

Private Function kmm(ByVal int1 As Integer, ByVal int2 As Integer) As Integer
kmm = int1 * int2 / bmm(int1, int2)
End Function