آرايه: دريافت 10 عدد و چاپ بزرگ ترين آن ها

[mehr film]

سلام دوستان
يه سوال داشتم و اينه كه چه جوري با استفاده از آرايه 10 عدد دريافت بشه و البته بزرگ ترين نه يكي از بزرگ ترين كوچك تر رو چاپ كنه
مثلا اگه از يك تا 10 رو بهش بدي 9 رو چاپ كنه چون بعد از 10 بزرگ ترينه
ممنون

[SuB]

سلام دوستان
يه سوال داشتم و اينه كه چه جوري با استفاده از آرايه 10 عدد دريافت بشه و البته بزرگ ترين نه يكي از بزرگ ترين كوچك تر رو چاپ كنه
مثلا اگه از يك تا 10 رو بهش بدي 9 رو چاپ كنه چون بعد از 10 بزرگ ترينه
ممنون

می‌تونی یه بار توی 10 تا آرایه بگردی و بزرگترین عضو رو پیدا و بعد حذف کن یو بعد توی آرایه 9 عنصری باقیمانده، بزگترین عدد رو پیدا کنی.

راههای دیگه‌ای هم هست ولی فکر کنم این راحت‌ترین باشه.:11:

[mehr film]

می‌تونی یه بار توی 10 تا آرایه بگردی و بزرگترین عضو رو پیدا و بعد حذف کن یو بعد توی آرایه 9 عنصری باقیمانده، بزگترین عدد رو پیدا کنی.

راههای دیگه‌ای هم هست ولی فکر کنم این راحت‌ترین باشه.:11:
ممنون
دوست عزيز اگه كد رو هم بنويسي ممنون ميشم
از همون راهه آريه

[SuB]

ممنون
دوست عزيز اگه كد رو هم بنويسي ممنون ميشم
از همون راهه آريه
سلام
اینم یه نمونه:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
NumberList همون آرایه برای نگهداری 10 عدد هست و Max در آخر کار همون مقدار مورد نظر شماست.
توی این کد من بزرگترین عضو رو از آرایه حذف نکردم.:46:

[n.s]

سلام
اینم یه نمونه:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید



سلام
ببخشید من دخالت میکنم ...ولی max باید یه مقدار اولیه داشته باشه ...درسته ؟؟؟
اون جا مونده :46:ببخشید

[m3hrz4d]

سلام
ببخشید من دخالت میکنم ...ولی max باید یه مقدار اولیه داشته باشه ...درسته ؟؟؟
اون جا مونده :46:ببخشید
مقدار اولیش صفر میشه و اگه توی این برنامه با اعداد منفی کار نشه مشکلی براش پیش نمیاد.

[SuB]

سلام
ببخشید من دخالت میکنم ...ولی max باید یه مقدار اولیه داشته باشه ...درسته ؟؟؟
اون جا مونده :46:ببخشید
ببخشید. حق با شماست. یه ایراد دیگه هم داشت که توی این کد رفع شد:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[mech]

با اجازه بزرگان
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)
یه چیز تو این مایه ها

[mehr film]

از همه ي دوستان ممنونم
همه زحمت افتادن