پروژه ای طراحی کنید که دو عدد را دریافت کرده و بزرگترین مقسوم علیه انها را نشان دهد

شروع موضوع توسط Sajadmohebbi ‏31 مارس 2019 در انجمن منطق و الگوریتم برنامه‌نویسی

  1. Sajadmohebbi

    Sajadmohebbi New Member

    ارسال‌ها:
    9
    تشکر شده:
    0
    امتیاز دستاورد:
    1
    در ویژوال بیسیک 6 جواب میخوام .مرسی
     
    نوشته شده توسط Sajadmohebbi در ‏31 مارس 2019
  2. the_king

    the_king مدیرکل انجمن

    ارسال‌ها:
    11,103
    تشکر شده:
    11,373
    امتیاز دستاورد:
    113
    کد (Text):
        Dim m As Integer, n As Integer
        n = Val(InputBox("Please enter the first number:"))
        m = Val(InputBox("Please enter the second number:"))
        Do While n > 0 And m > 0
            If n > m Then n = n Mod m Else m = m Mod n
        Loop
        MsgBox m + n
     
    نوشته شده توسط the_king در ‏31 مارس 2019
    Dorhato از این پست تشکر کرده است.

به اشتراک بگذارید