برنامه ای بسازید که بزرگترین مقسوم علیه مشترک دو عدد A و B را حساب کند.
Printable View
برنامه ای بسازید که بزرگترین مقسوم علیه مشترک دو عدد A و B را حساب کند.
این کد سی هستش
فک نکنم تبدیلش کاری داشته باشه
کد:
main()
{
int num1 , num2 , i ;
cout << "\nEnter frist number => ";
cin >> num1 ;
cout << "\nEnter Second number =>";
cin >> num2;
for(i = num1 ; i > 0 ; i-- )
{
if (!(num1%i) && !(num2%i))
{
cout <<"\nB.M.M = " << i;
break;
}
}
}
اینم هست
کد:int bmm(int x, int y)
{
if(x>y)
{
int min = y;
int max = x;
int i =min;
while( y%i != 0 || x%i !=0)
{
i--;
}
return i;
}
if(x<y)
{
int min = x;
int max = y;
int i =min;
while( y%i != 0 || x%i !=0)
{
i--;
}
return i;
}
else
return x;
}
این پست رو حذف شده حساب کنید!
فقط يه سوال
اون علامتاي % رو حذف كردم تبديلش رو هم به وي بي انجام دادم اما ارور ميده اگه باعث زحمت نيست ميشه سورسشو بذاريد
ممنون
علامت % به معنای باقی مانده است یعنی mod نباید حذفش کنیدنقل قول:
ببخشيد زياد درخواست مي كنم ميشه لينكش رو بذاريدنقل قول:
اگه میشه یهو کد VB رو بذارید ممنون میشم
من تبدیل بلد نیستم ):
چي شد كسي نيست جواب ما رو بده
سلامنقل قول:
لینک چی رو می خواین؟
همون کد به صورت VB
PLZ
سلام دوست عزیز لطفاً بگو VB6 آخه [فاطمه] کد سی و سی شارپ تحت نت رو نشونتون دادن.
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] ویژوال بیسیک 6(VB6) کد:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] ویژوال بیسیک(Visual Basic) کد:کد:Private Function bmm(x As Integer, y As Integer) As Integer
Dim min, max, i As Integer
If (x > y) Then
min = y
max = x
i = min
Do While (y Mod i <> 0 Or x Mod i <> 0)
i = i - 1
Loop
bmm = i
End If
If (x < y) Then
min = x
max = y
i = min
Do While (y Mod i <> 0 Or x Mod i <> 0)
i = i - 1
Loop
bmm = i
Else
bmm = x
End If
End Function
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] سی شارپ(#C) کد(به گفته [فاطمه]):کد:Private Function bmm(ByVal x As Integer, ByVal y As Integer) As Integer
If (x > y) Then
Dim min As Integer = y
Dim max As Integer = x
Dim i As Integer = min
While (y Mod i <> 0 Or x Mod i <> 0)
i = i - 1
End While
Return i
End If
If (x < y) Then
Dim min As Integer = x
Dim max As Integer = y
Dim i As Integer = min
While (y Mod i <> 0 Or x Mod i <> 0)
i = i - 1
End While
Return i
Else
Return x
End If
End Function
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] سی پلاس پلاس(++C) کد:کد:int bmm(int x, int y)
{
if(x>y)
{
int min = y;
int max = x;
int i =min;
while( y%i != 0 || x%i !=0)
{
i--;
}
return i;
}
if(x<y)
{
int min = x;
int max = y;
int i =min;
while( y%i != 0 || x%i !=0)
{
i--;
}
return i;
}
else
return x;
}
البته اینو هم عرض کنم که من فقط تبدیلشون کردم اگه مشکلی داشت حتماً بگو.با تشکر قربانت علی:11:.کد:
{
if(x>y)
{
int min = y;
int max = x;
int i =min;
while( y%i != 0 || x%i !=0)
{
i--;
}
return i;
}
if(x<y)
{
int min = x;
int max = y;
int i =min;
while( y%i != 0 || x%i !=0)
{
i--;
}
return i;
}
else
return x;