آژانس هواپیمایی
pop up

تقاضای یک الگوریتم خیلی ساده

شروع موضوع توسط tabestani ‏26 اکتبر 2007 در انجمن Visual Basic 6

  1. tabestani

    tabestani کاربر تازه وارد

    تاریخ عضویت:
    ‏8 اکتبر 2007
    نوشته ها:
    19
    تشکر شده:
    0
    الگوریتمی میخوام که 4 عدد را گرفته و کوچکترین و بزرگترین مقدار در بین انها را به دست اورد
     
  2. tabestani

    tabestani کاربر تازه وارد

    تاریخ عضویت:
    ‏8 اکتبر 2007
    نوشته ها:
    19
    تشکر شده:
    0
    از مهندسین عزیز کسی نیست به این سوال شاگرد تنبل این فروم جواب بده؟
     
  3. n.s

    n.s کاربر تازه وارد

    تاریخ عضویت:
    ‏2 اکتبر 2007
    نوشته ها:
    59
    تشکر شده:
    0

    کد:
    Dim num(3) As Integer
    For i = 0 To 3
     num(i) = InputBox("Enter a number")
    Next i
    Min = num(0)
    Max = num(0)
    For j = 0 To 3
     If num(j) > Max Then Max = num(j)
     If num(j) < Min Then Min = num(j)
    Next j
    MsgBox "MaxNum" & "=" & Max & "," & "MinNum" & "=" & Min
    
    
    
     
  4. pirmard

    pirmard Registered User

    تاریخ عضویت:
    ‏21 آگوست 2007
    نوشته ها:
    837
    تشکر شده:
    3
    توی فرومهای دیگه رسم بر اینه که جواب اینجور سوالات داده نمیشه .
    معمولا مدیر فروم میاد تذکر میده ... :)

    مدل اینجور سوالا معلومه که از کجا میاد و به کجا میره !
     
  5. tabestani

    tabestani کاربر تازه وارد

    تاریخ عضویت:
    ‏8 اکتبر 2007
    نوشته ها:
    19
    تشکر شده:
    0
    از لطف شما ممنونم
    حالا اگه میخاستیم فقط از IF استفاده کنیم چجوری میشه ؟
    شرمنده
     
  6. n.s

    n.s کاربر تازه وارد

    تاریخ عضویت:
    ‏2 اکتبر 2007
    نوشته ها:
    59
    تشکر شده:
    0
    خوب اینم یه سواله ... حالا چه ساده ... چه خط خطی
     
  7. boxilink
  8. tabestani

    tabestani کاربر تازه وارد

    تاریخ عضویت:
    ‏8 اکتبر 2007
    نوشته ها:
    19
    تشکر شده:
    0
    منظور شما برام روشن نیست اگه ممکنه شفاف بگید تا دیگه از این سوالا نپرسیم
     
  9. n.s

    n.s کاربر تازه وارد

    تاریخ عضویت:
    ‏2 اکتبر 2007
    نوشته ها:
    59
    تشکر شده:
    0
    یعنی بدون استفاده از آرایه ها ؟؟؟
    فقط با if خیلی درهم برهم میشه ...
     
  10. tabestani

    tabestani کاربر تازه وارد

    تاریخ عضویت:
    ‏8 اکتبر 2007
    نوشته ها:
    19
    تشکر شده:
    0

    آره ! مثلا اینجوری


    البته برای ماکسیمم خیلی سخت نیست ولی هر کار میکنم برای ماکسیمم و مینمم با هم جواب نمیده اگه ممکنه راهنمایی کنید
    Option explicit
    Dim a,b,c,d as integer
    Private Sub cmdmaxmin_Click()
    If (a > b) and (a > c) and (a > d) then
    Print "max:";a
    Elseif (b > c) and (b > a) and ( b > d) then
    Print " max : " ; b
    Elseif ( c > a) and (c > b) and (c > d) then
    Print "MAX : " ; c
    Else
    Print " max : " ; d
    End if
     
  11. n.s

    n.s کاربر تازه وارد

    تاریخ عضویت:
    ‏2 اکتبر 2007
    نوشته ها:
    59
    تشکر شده:
    0
    خوب شما همین دستورات رو برای min هم میتونید تکرار کنید فقط علامت بین متغیرا ها رو عوض کنید ...
    اون وقت جواب میده ...شما متغیر ها رو با چی گرفتین ؟؟؟:blink:
    یا منظورتون اینه که با همین یه تیکه کد همین مین و هم ماکس رو پیدا کنید آره ؟؟؟:wacko:
     
  12. tabestani

    tabestani کاربر تازه وارد

    تاریخ عضویت:
    ‏8 اکتبر 2007
    نوشته ها:
    19
    تشکر شده:
    0
    آره همینطوره
    میخام هم مین و هم ماکس رو پیدا کنه و بگه :
    The Max is : The Min is :

    حالا چجوری میتونم هر دو رو همزمان از برنامه بگیرم ؟؟

    راستی ! منظورت از متغیرها رو با چی گرفتی چیه ؟ ببخشید سوالهای پیش پا افتاده میکنم
     
  13. n.s

    n.s کاربر تازه وارد

    تاریخ عضویت:
    ‏2 اکتبر 2007
    نوشته ها:
    59
    تشکر شده:
    0


    ببخشید ...منظورم این بود که عدد ها رو با چی گرفتی ؟؟؟ با Textbox یا Inputbox ؟؟؟
    حالا نمیشه از آرایه ها استفاده کنی اون که هم ساده تره و هم بهینه تر !!!
    بذار ببینم میشه هر دو رو با هم گرفت ... اگه تونستم میگم بهت ...
     
  14. avajang.com .leftavajang.com.right
  15. n.s

    n.s کاربر تازه وارد

    تاریخ عضویت:
    ‏2 اکتبر 2007
    نوشته ها:
    59
    تشکر شده:
    0
    دوست عزیز ببخشید ولی چیزی به ذهنم نرسید
    موفق باشین :cool:
     
  16. erroring

    erroring Registered User

    تاریخ عضویت:
    ‏4 دسامبر 2006
    نوشته ها:
    286
    تشکر شده:
    2
    محل سکونت:
    PDC (Parvazeh Developing Center)
    اينم تشخيص بزرگترين و كوچكترين فقط دردو خط!!! بدون هيچي :

    کد:
    Min = IIf(a > b, IIf(b > c, IIf(c > d, d, c), IIf(b > d, d, b)), IIf(a > c, IIf(c > d, d, c), IIf(a > d, d, a)))
    Max = IIf(a < b, IIf(b < c, IIf(c < d, d, c), IIf(b < d, d, b)), IIf(a < c, IIf(c < d, d, c), IIf(a < d, d, a)))
    
    
     
  17. erroring

    erroring Registered User

    تاریخ عضویت:
    ‏4 دسامبر 2006
    نوشته ها:
    286
    تشکر شده:
    2
    محل سکونت:
    PDC (Parvazeh Developing Center)
    البته a , b , c ,d چهارتا عدد هستن كه هر طور دوست داري مي توني مقدار دهيشون كني.