الگوریتمی میخوام که 4 عدد را گرفته و کوچکترین و بزرگترین مقدار در بین انها را به دست اورد
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
کد: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
توی فرومهای دیگه رسم بر اینه که جواب اینجور سوالات داده نمیشه .
معمولا مدیر فروم میاد تذکر میده ...
مدل اینجور سوالا معلومه که از کجا میاد و به کجا میره !
از لطف شما ممنونم
حالا اگه میخاستیم فقط از IF استفاده کنیم چجوری میشه ؟
شرمنده
یعنی بدون استفاده از آرایه ها ؟؟؟
فقط با if خیلی درهم برهم میشه ...
خوب شما همین دستورات رو برای min هم میتونید تکرار کنید فقط علامت بین متغیرا ها رو عوض کنید ...
اون وقت جواب میده ...شما متغیر ها رو با چی گرفتین ؟؟؟:blink:
یا منظورتون اینه که با همین یه تیکه کد همین مین و هم ماکس رو پیدا کنید آره ؟؟؟:wacko:
آره همینطوره
میخام هم مین و هم ماکس رو پیدا کنه و بگه :
The Max is : The Min is :
حالا چجوری میتونم هر دو رو همزمان از برنامه بگیرم ؟؟
راستی ! منظورت از متغیرها رو با چی گرفتی چیه ؟ ببخشید سوالهای پیش پا افتاده میکنم
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)))