آرایه ها

[shayan100]

دوستان میخواستم یه آرایه 2بعدی رو هم به روش سطری و هم به روش ستونی مرتب کنم.:ناراحت:
الگوریتمش یادم رفته اگه امکان داره هرچه زود ترراهنمایی کنید.
ممنون:چشمک: یعنی اعداد هر ستون و سطر مرتب سازی کنه خواهش مینم کمکم کنی خیلی مهمه>>>>>>>>

[Mahdi_vb6]

دوستان میخواستم یه آرایه 2بعدی رو هم به روش سطری و هم به روش ستونی مرتب کنم.:ناراحت:
الگوریتمش یادم رفته اگه امکان داره هرچه زود ترراهنمایی کنید.
ممنون:چشمک: یعنی اعداد هر ستون و سطر مرتب سازی کنه خواهش مینم کمکم کنی خیلی مهمه>>>>>>>>


پاسخ:
(برای مثال آرایه 5 در 5 است و مرتب سازی بصورت سعودی می باشد . Dim a(5,5) as integer)
(کاراکتر f برای تنظیم متن است به آن توجه نکنید f="" )
1.شروع
2.x=2,y=1
3.اگر a(x,y)<a(x-1,y)f صحیح بود آنگاه h=a(x-1,y)f و a(x-1,y)=a(x,y)f و a(x,y)=h
4.x=x+1
5.اگر x=6 صحیح بود آنگاه x=2 و y=y+1
6.اگر y<6 صحیح بود برو به مرحله 3
7.پایان

این برای سطر بود. برای سطون رو خودت بنویس چون با اندکی تفکر می فهمی که باید جای دوتا چیزو عوض کنی!!!