سلام دوستان
يه سوال داشتم و اينه كه چه جوري با استفاده از آرايه 10 عدد دريافت بشه و البته بزرگ ترين نه يكي از بزرگ ترين كوچك تر رو چاپ كنه
مثلا اگه از يك تا 10 رو بهش بدي 9 رو چاپ كنه چون بعد از 10 بزرگ ترينه
ممنون
Printable View
سلام دوستان
يه سوال داشتم و اينه كه چه جوري با استفاده از آرايه 10 عدد دريافت بشه و البته بزرگ ترين نه يكي از بزرگ ترين كوچك تر رو چاپ كنه
مثلا اگه از يك تا 10 رو بهش بدي 9 رو چاپ كنه چون بعد از 10 بزرگ ترينه
ممنون
می‌تونی یه بار توی 10 تا آرایه بگردی و بزرگترین عضو رو پیدا و بعد حذف کن یو بعد توی آرایه 9 عنصری باقیمانده، بزگترین عدد رو پیدا کنی.نقل قول:
راههای دیگه‌ای هم هست ولی فکر کنم این راحت‌ترین باشه.:11:
ممنوننقل قول:
دوست عزيز اگه كد رو هم بنويسي ممنون ميشم
از همون راهه آريه
سلامنقل قول:
اینم یه نمونه:
NumberList همون آرایه برای نگهداری 10 عدد هست و Max در آخر کار همون مقدار مورد نظر شماست.کد:Dim NumberList(1 To 10) As Integer
Dim Max As Integer
Dim MaxIndex As Integer
For Counter = 1 To 10
If NumberList(Counter) > Max Then
Max = NumberList(Counter)
MaxIndex = Counter
End If
Next
For Counter = 1 To 10
If NumberList(Counter) > Max And Counter <> MaxIndex Then
Max = NumberList(Counter)
End If
Next
توی این کد من بزرگترین عضو رو از آرایه حذف نکردم.:46:
نقل قول:
سلام
ببخشید من دخالت میکنم ...ولی max باید یه مقدار اولیه داشته باشه ...درسته ؟؟؟
اون جا مونده :46:ببخشید
مقدار اولیش صفر میشه و اگه توی این برنامه با اعداد منفی کار نشه مشکلی براش پیش نمیاد.نقل قول:
ببخشید. حق با شماست. یه ایراد دیگه هم داشت که توی این کد رفع شد:نقل قول:
کد:Dim NumberList(1 To 10) As Integer
Dim Max As Integer
Dim MaxIndex As Integer
Max = NumberList(1)
For Counter = 2 To 10
If NumberList(Counter) > Max Then
Max = NumberList(Counter)
MaxIndex = Counter
End If
Next
If MaxIndex = 1 Then Max = NumberList(2) Else Max = NumberList(1)
For Counter = 1 To 10
If NumberList(Counter) > Max And Counter <> MaxIndex Then
Max = NumberList(Counter)
End If
Next
با اجازه بزرگان
dim a(10) as long
a=inputbox("aaa
"
a(1)=max
for i=0 to 19
if
max(i)>a
then
print max
else
print a(i)
یه چیز تو این مایه ها
از همه ي دوستان ممنونم
همه زحمت افتادن