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

نام تاپیک: بدست آوردن میانگین و گرد کردن عدد

  1. #1

    Question بدست آوردن میانگین و گرد کردن عدد

    با سلام خدمت اساتید ، من می خوام یه عدد رو بر 10 تقسیم کنم و جواب رو بصورت نمره دانش آموزی بنویسم مثلا 87/75 تقسیم بر 10 ( 10 / 87.75 ) که جواب اون میشه 8.775 که بر اساس نمرات دانش آموز چون8.77 نمیشه استفاده کرد باید اونو به عدد بالاتر یعنی 9 رند کنه یا اگه بفرض جواب شد 8.24 اونو به 8.25 رند کنه

  2. #2

    نقل قول: بدست آوردن میانگین و گرد کردن عدد

    ویژوال بیسیک کلاسیک تابع گرد کردن به نزدیکترین عدد صحیح داره، Round، و تابع گرد کردن به پایین هم داره، Int و Fix، ولی تابع گرد کردن به بالا نداره که خودمون میسازیم :

    Private Function Ceil(ByVal v As Single) As Single
    Ceil = IIf(Fix(v) = v, v, Fix(v) + 1)
    End Function


    حالا چون 0.25 رو مبنای گرد کردن قرار می دهید و نه 1.0 رو، قبل از گرد کردن به 4 ضرب اش می کنیم و بعد گرد کردن بر 4 تقسیم اش می کنیم :

    Private Function Ceil(ByVal v As Single) As Single
    v = v * 4
    Ceil = IIf(Fix(v) = v, v, Fix(v) + 1)
    Ceil = Ceil / 4
    End Function


    و اینطوری ازش استفاده می کنیم :

    Dim n As Single, m As Single

    m = 87.75 / 10
    n = Ceil(m)
    MsgBox n

    m = 82.4 / 10
    n = Ceil(m)
    MsgBox n

  3. #3

    نقل قول: بدست آوردن میانگین و گرد کردن عدد

    یه دنیا ممنون ، عالی بود




تاپیک های مشابه

  1. پاسخ: 1
    آخرین پست: یک شنبه 06 فروردین 1396, 09:01 صبح
  2. پاسخ: 2
    آخرین پست: جمعه 31 مرداد 1393, 10:12 صبح
  3. سوال: ساخت چند یوزر پس برای هاست و محدود کردن هاست برای نویسندگان هاست.
    نوشته شده توسط rezanic در بخش توسعه وب (Web Development)
    پاسخ: 0
    آخرین پست: شنبه 04 مرداد 1393, 21:07 عصر
  4. پاسخ: 7
    آخرین پست: سه شنبه 28 آذر 1391, 13:48 عصر

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

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