نمایش نتایج 1 تا 5 از 5

نام تاپیک: تشخیص بزرگترین عدد

  1. #1
    کاربر دائمی آواتار ALI TT
    تاریخ عضویت
    اردیبهشت 1387
    محل زندگی
    C:\WINDOWS\system32
    پست
    351

    Question تشخیص بزرگترین عدد

    سلام دوستان
    دیشب من و رفیقم کل انداختیم ( کل عمرا حرفه ای !! ) که هر کی بتونه با کمترین کد و با استفاده از حلقه For عدد بزرگتر را از بین اعضای یه آرایه تشخیص دهد . ( بدون استفاده از توابع دیگر ) .
    اون این کد را داد . که ایرادش اینه که با اعداد زیر صفر ( منفی ) کار نمی کنه .
            Dim a As Integer() = {100, 5, 101, 20, 8, 214, 75, 5, 65}
    Dim uses As Integer = 0


    For H As Integer = 0 To a.Length - 1

    If uses < a(H) Then uses = a(H)

    Next

    MessageBox.Show(uses)


    منم اینو دادم که از هر لحاظ کار می کنه :

            Dim Array_int As Integer() = {-100, -5, -654, -20}
    Dim use_Long As Long = Long.MinValue

    For Each Max As Long In Array_int
    If use_Long < Max Then use_Long = Max
    Next

    MessageBox.Show(use_Long)


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


  2. #2
    کاربر دائمی آواتار #target
    تاریخ عضویت
    دی 1387
    محل زندگی
    استان گلستان
    پست
    589

    نقل قول: تشخیص بزرگترین عدد

    راه حل منطقی دیگه ای به فکرم نمی آد ولی روش فکر می کنم اگه جوابشو گرفتم می گم .

  3. #3
    کاربر تازه وارد آواتار رضا نانوا
    تاریخ عضویت
    خرداد 1385
    محل زندگی
    اهواز
    پست
    66

    نقل قول: تشخیص بزرگترین عدد

    نقل قول نوشته شده توسط ALI TT مشاهده تاپیک

    حالا سوال من : کسی بلد از این کمتر کد بده به من که برم حالشو بگیرم ، دمتون گرم
    فکر میکنم تابعی بنام MAX() باشد ولی من اونو توی SQL امتحان کردم نمیدونم توی VBجواب میده یانه

  4. #4
    کاربر دائمی آواتار mostafaaa
    تاریخ عضویت
    دی 1386
    محل زندگی
    جزیره کیش
    پست
    727

    نقل قول: تشخیص بزرگترین عدد

    سلام دوست من
    فکر میکنم تابعی بنام MAX() باشد ولی من اونو توی SQL امتحان کردم نمیدونم توی VBجواب میده یانه
    یه آرایه تشخیص دهد . ( بدون استفاده از توابع دیگر ) .

  5. #5
    کاربر دائمی آواتار ALI TT
    تاریخ عضویت
    اردیبهشت 1387
    محل زندگی
    C:\WINDOWS\system32
    پست
    351

    نقل قول: تشخیص بزرگترین عدد

    ممنون دوستان
    به نظر خودم هم از این سبکتر و بهتر نمیشه !
    اولین عدد رو با کوچکترین عدد ممکن (Long.MinValue) مقایسه میکنه و بزرگتر رو نگه میداره ، ( یعنی میده به متغیر use_Long )
    بعد دومین عدد رو با مقداری که توی شرط قبلی بزرگتر بود ( use_Long ) مقایسه و بعد اگه بزرگتر از قبلی بود ، قبلی رو ول میکنه و عدد جدیده ( که دومی باشه ) رو میده به use_Long . و همین طور تا آخر ......... در آخر هم مقدار use_Long مسلما بزرگتر از همه است .

    برای بدست آوردن کوچکترین عدد هم کافیه :

    اینو : Long.MinValue رو بکنی Integer.MaxValue
    و علامت > رو بکنی <

    در کل :
            Dim Array_int As Integer() = {-100, -5, -654, -20}
    Dim use_Long As Long = Long.MaxValue

    For Each Max As Long In Array_int
    If use_Long > Max Then use_Long = Max
    Next

    MessageBox.Show(use_Long)

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •