برگزیده های پرشین تولز

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

tabestani

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

tabestani

کاربر تازه وارد
تاریخ عضویت
8 اکتبر 2007
نوشته‌ها
19
لایک‌ها
0
از مهندسین عزیز کسی نیست به این سوال شاگرد تنبل این فروم جواب بده؟
 

n.s

کاربر تازه وارد
تاریخ عضویت
2 اکتبر 2007
نوشته‌ها
59
لایک‌ها
0
الگوریتمی میخوام که 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
 

pirmard

Registered User
تاریخ عضویت
21 آگوست 2007
نوشته‌ها
841
لایک‌ها
5
توی فرومهای دیگه رسم بر اینه که جواب اینجور سوالات داده نمیشه .
معمولا مدیر فروم میاد تذکر میده ... :)

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

tabestani

کاربر تازه وارد
تاریخ عضویت
8 اکتبر 2007
نوشته‌ها
19
لایک‌ها
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

از لطف شما ممنونم
حالا اگه میخاستیم فقط از IF استفاده کنیم چجوری میشه ؟
شرمنده
 

n.s

کاربر تازه وارد
تاریخ عضویت
2 اکتبر 2007
نوشته‌ها
59
لایک‌ها
0
خوب اینم یه سواله ... حالا چه ساده ... چه خط خطی
 

tabestani

کاربر تازه وارد
تاریخ عضویت
8 اکتبر 2007
نوشته‌ها
19
لایک‌ها
0
توی فرومهای دیگه رسم بر اینه که جواب اینجور سوالات داده نمیشه .
معمولا مدیر فروم میاد تذکر میده ... :)

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

منظور شما برام روشن نیست اگه ممکنه شفاف بگید تا دیگه از این سوالا نپرسیم
 

tabestani

کاربر تازه وارد
تاریخ عضویت
8 اکتبر 2007
نوشته‌ها
19
لایک‌ها
0
یعنی بدون استفاده از آرایه ها ؟؟؟
فقط با if خیلی درهم برهم میشه ...


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


البته برای ماکسیمم خیلی سخت نیست ولی هر کار میکنم برای ماکسیمم و مینمم با هم جواب نمیده اگه ممکنه راهنمایی کنید
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
 

n.s

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

tabestani

کاربر تازه وارد
تاریخ عضویت
8 اکتبر 2007
نوشته‌ها
19
لایک‌ها
0
خوب شما همین دستورات رو برای min هم میتونید تکرار کنید فقط علامت بین متغیرا ها رو عوض کنید ...
اون وقت جواب میده ...شما متغیر ها رو با چی گرفتین ؟؟؟:blink:
یا منظورتون اینه که با همین یه تیکه کد همین مین و هم ماکس رو پیدا کنید آره ؟؟؟:wacko:

آره همینطوره
میخام هم مین و هم ماکس رو پیدا کنه و بگه :
The Max is : The Min is :

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

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

n.s

کاربر تازه وارد
تاریخ عضویت
2 اکتبر 2007
نوشته‌ها
59
لایک‌ها
0
آره همینطوره
میخام هم مین و هم ماکس رو پیدا کنه و بگه :
The Max is : The Min is :

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

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



ببخشید ...منظورم این بود که عدد ها رو با چی گرفتی ؟؟؟ با Textbox یا Inputbox ؟؟؟
حالا نمیشه از آرایه ها استفاده کنی اون که هم ساده تره و هم بهینه تر !!!
بذار ببینم میشه هر دو رو با هم گرفت ... اگه تونستم میگم بهت ...
 

n.s

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

erroring

Registered User
تاریخ عضویت
4 دسامبر 2006
نوشته‌ها
297
لایک‌ها
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)))
 
بالا