سلام لطفاً يه چندتا مثال درمورد مرتب سازي آزايه ها ، مرتب سازي دودويي بزنيد بهمراه توضيحات لطفاً :11:
فصل 2 برنامه سازي 2 ، آرايه ها هست كه من يكم در اين فصل مشكل دارم هفته بعد ميخواد استاد امتحان بگيره ممنون ميشم كمكم كنيد.:11::40::46:
Printable View
سلام لطفاً يه چندتا مثال درمورد مرتب سازي آزايه ها ، مرتب سازي دودويي بزنيد بهمراه توضيحات لطفاً :11:
فصل 2 برنامه سازي 2 ، آرايه ها هست كه من يكم در اين فصل مشكل دارم هفته بعد ميخواد استاد امتحان بگيره ممنون ميشم كمكم كنيد.:11::40::46:
خب من مرتب سازی آرایه به روش صعودی که بهش حبابی و Bobble Sort هم میگن رو توضیح میدم که امیدوارم بدردتون بخوره :
5|10|2|14|12
اگه شما این اعداد بالا رو خانه های a(4) در نظر بگیرید , خانه ها ی آرایه a بصورت زیر هستند:
a(0) = 12
a(1) = 14
a(2) = 2
a(3) = 10
a(4) = 5
خب برای اینکه این آرایه رو بصورت صعودی ( حبابی ، Bobble Sort ) مرتب سازی کنید کارهای زیر رو انجام بدید :
مرحله 1- اولین خانه ی آرایه را با دومین خانه آن مقایسه میکنید ( ! )
الف ) اگر خانه ی آول آرایه از خانه ی دوم کوچکتر یا مساوی بود برنامه کاری انجام ندهد . ( یعنی اگه a(0) که برابر 12 هست رو با a(1) مقایسه کنیم نتیجه میگیریمa(0) < a(1) ... پس برنامه کاری انجام نمیده )
ب ) اگر خانه ی اول آرایه از خانه ی دوم بزرگتر بود جای آن ها را عوض می کنیم . ( حالا که ما فهمیدیم a(0( از a(1) کوچکتر هست پس دیگه برنامه این قسمت رو انجام نمیده و میره به مرحله دو)
مرحله 2- مرحله ی یک را برای خانه های دوم و سوم تکرار می کنیم .
(یعنی در این روش a(1) رو با a(2) مقایسه میکنیم که نتیجه میگیریم a(1) > a(2) هست ... پس قسمت ب انجام میشه ... یعنی a(1) جاش رو با a(2) عوض میکنه )
و برای سایر خانه ها هم به همین روش ( ! )
خب این از توضیح فارسی ...
اگه بخواید کد نویسی کنید ، باید یک Command Button ایجاد کنید و کدهای زیر رو داخلش بنویسید :
کد:' این قسمت فقط برای تعریف متغیرها
Dim a(4) As Integer
Dim Temp As Integer
Dim I As Byte
Dim C As Byte
' این قسمت برای گرفتن اعداد از طریق Inputbox
For I = 0 To 4
a(I) = InputBox("Enter Number")
Next I
'این قسمت برای جابه جایی خانه ها و مرتب سازی ... یعنی همون توضیح فارسی که بالا دادم
For I = 0 To 4
For C = 0 To 3
If a(C) > a(C + 1) Then
Temp = a(C)
a(C) = a(C + 1)
a(C + 1) = Temp
End If
Next C
Next I
'این قسمت برای چاپ آرایه بصورت مرتب شده
For I = 0 To 4
Print a(I)
Next I
امیدوارم بدردتون خورده باشه ( ! )
سلام
دو روش برای جستجو داریم یکی ترتیبی و اون یکی دودویی.
ترتیبی:
این روش خیلی راحت و کنده. باید تمام عناصر آرایه رو از اول با متغیر کلید (مورد جستجو) مقایسه کنیم هر کدوم برابر بود اون جوابه. وای خیلی کنده، مثلا توی یه لیست 1000 نفری، داده مورد نظر ما تو خونه 800 هست اینجوری باید 800 بار تکرار بشه. حالا بستش بده تو 100 هزار نفری .....
این کدش:
دودویی:کد:Dim a(1 To 100) As Integer
Dim i As Integer, KEY As Integer
Dim Find As Boolean
For i = 1 To 100
a(i) = i
Next i
For i = 1 To 100
If a(i) = KEY Then Find = True
Next i
If Find = True Then MsgBox a(i)
این روش یکم پیچیدس ولی خیلی سریعتره و به درده آرایها و لیستهای مرتب شده میخوره. روش کلیش اینجوریه که اول باید عنصر وسط آرایه مرتب شده رو به دست بیاریم (مثلا توی یه آرایه 100 تایی میشه 50) اگه درست بود که هیچ ولی اگه نه باید ببینیم کوچیکتره یا بزرگتر. اگه بزرگتر از اون باشه باید نیمه دوم رو بگردیم (یعنی از 51 تا 100) ولی اگه کوچکتر باشه باید نیمه اول رو بگردیم (یعنی 1 تا 49). روش جستجو نیمه هاهم مثل اولیه یعنی باز باید وسطش رو به دست بیاریم ......
این توضیح کلی بود حالا کد نویسیش. ( به فرض اینکه آرایه ما مرتب شده)
اول به چندتا متغیر نیاز داریم:
آرایهa که لیستیه که توش باید جستجوکنیم.نقل قول:
Dim a(1 To 100) As Integer
Dim Low As Integer, High As Integer, Mid As Integer
Dim KEY As Integer, i As Integer
Dim CNT As Byte
Dim Find As Boolean
متغیر Low , High , Mid هم واسه اینه که بفهمی اول و آخر و وسط آرایه کجاست.
KEY متغیریه که مورد جستجو رو نگه میداره.
i اندیس حلقست.
CNTیه شمارندست واسه اینکه ببینیم چندبار حلقه تکرار شده تا جواب به دست اومده.
Find مشخص میکنه که به جواب رسیدیم یا نه.
تو اینجا اول با یه For آرایه رو پر کردیم.نقل قول:
For i = 1 To 100
a(i) = i
Next i
KEY = Val(InputBox("Enter Your KEY For Find:"))
بعد با Inputbox مورد جستجو رو گرفتیم.
تو این مرحله باید اول و آخر آرایه رو مشخص کنیم. چون اول و آخر آرایه اینجا مشخصه و تغییر نمیکنه اعداد رو دستی وارد کردیم ولی اگه مشخص نیست میتونی از دستور زیر استفاده کنی.نقل قول:
Low = 1
High = 100
Find = False
Lbound و Ubound توابعی هستن که به ترتیب کوچکترین عنصر و بزرگترین عنصر آرایه رو برمیگردونن.نقل قول:
Low = LBound(a)
High = UBound(a)
Find = False
تمام کار جستجو تو این حلقه اتفاق میوفته.نقل قول:
Do While High >= Low And Find = False
Mid = (High + Low) \ 2
If a(Mid) = KEY Then
Find = True
ElseIf KEY > a(Mid) Then
Low = Mid + 1
Else
High = Mid - 1
End If
CNT = CNT + 1
Loop
شرطی که گزاشتیم اینجوریه که اگه اوله آرایه (که ما مشخص میکنیم کجاست) ازآخر آرایه (اینم ما مشخص میکنیم) بزرگتر نبود و چیزی هم پیدا نشده بود (Find = False) به جستجو ادامه بده.
تو خط اول باید وسط آرایه رو مشخص کنیم. واسه پیدا کردن وسط یه لیست که اول و آخرشو داریم از این روش استفاده میکنیم. (اینجا حتما باید از تقسیم صحیح استفاده کنیم که عددمون اعشاری در نیاد)
دستور if برسی میکنه اگه داده درون عنصر وسط با KEY برابر بود که جواب پیدا شده در غیر اینصورت:
اگه KEY بزرگتر بود باید نیمه دوم رو بگردیم.
واسه اینکار کافیه اوله آرایه رو بیاریم جلو تر یعنی اوله آرایه باید بشه عدد 51. چون Mid وسط هست بهش یه دونه اضافه میکنیم میشه اوله آرایه.
اگه KEY کوچکتر بود باید نیمه اول رو بگردیم.
واسه اینکار کافیه آخر آرایه رو بیاریم عقب تر یعنی آخر آرایه باید بشه عدد 49. چون Mid وسط هست ازش یه دونه کم میکنیم میشه آخر آرایه.
به CNT یکی اضافه میشه یعنی یه بار جستجو شد.
حالا اگه دوباره شرط درسط بود جستجو ادامه پیدا میکنه.
اینجا هم که باید نتیجه و تعدا جستجو رو اعلام کنیم اول باید ببینیم چیزی پیدا شده یا نه. چون Mid همون مکانی هست کهنقل قول:
If Find = True Then MsgBox a(Mid) & " ---- " & CNT
جواب اونجاست پس داده توی همون عنصر رو نشون میدیم.
تو این روش واسه پیدا کردن عدد 80 هفت بار جستجو انجام شده ولی تو روش ترتیبی باید 80 بار بگردیم و واسه 26 شش بار ولی توی ترتیبی 26 بار.
امیدوارم مفید باشه. ولی اگه بازم توش گیر داشتی کنار تمام خطها توی وی بی Brek Point بزار و برنامه رو خط به خط دنبال کن ببین متغیرها چه تغیراتی میکنن راحت همه چی دستت میاد.
شما مرتب سازی خواستی من جستجو گفتم. :31:نقل قول:
فکر کنم سوالتونو درست نخوندم. :5: