ب.م.م

همون کد به صورت VB
PLZ

سلام دوست عزیز لطفاً بگو VB6 آخه [فاطمه] کد سی و سی شارپ تحت نت رو نشونتون دادن.

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] ویژوال بیسیک 6(VB6) کد:

کد:

---

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

---

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] ویژوال بیسیک(Visual Basic) کد:

کد:

---

    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;
}

---

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] سی پلاس پلاس(++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:.