جست جو به روش دودويي

سلام سلام

دوباره من

برو بچه ها مي تونن كد برنامه جستجو به روش باينري رو برام بذارن

از اون خفن اشا
مرسي مرسي:19:

بفرمایید :

1- دریافت آرایه :

کد:

---

Dim a(3) As Integer
For i = 0 To 3
 a(i) = InputBox("Enter a number")
Next i

---

2- مرتب سازی :

کد:

---

For i = 0 To 3
 For j = 0 To 2
  If a(j) > a(i) Then
  temp = a(j)
  a(j) = a(j + 1)
  a(j + 1) = temp
  End If
 Next j
Next i

---

3- کد اصلی مربوط به جستجو :

کد:

---

Item = InputBox("Enter a number for search")
L = LBound(a)
U = UBound(a)
Do While L <= U
 C = (L + U) / 2
 If Item = a(C) Then
  Print Item
  Exit Do
 End If
 If Item < a(C) Then U = C - 1
 If Item > a(C) Then L = C + 1
Loop

---

دستت درد نكنه يانگوم جان

ولي من هر كاري كردم جواب نداد

خب مشکلتون چی بود ؟

پیغام خطا یا ... ؟

در کدوم قسمت مشکل داشت ؟

مشكلش توو قسمته جستوجوش بود انگار

اعداد 4 و 5 و 2و 6 من واردشون كردم ولي خروجي هيچي نداد

راستي ميشه كه يه كاريش كرد كه وقتي اعداد مرتب ميكنه يه بار چاپشون كنه

مرسي مرسي

نقل قول:

---

نوشته شده توسط noghte [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

مشكلش توو قسمته جستوجوش بود انگار

اعداد 4 و 5 و 2و 6 من واردشون كردم ولي خروجي هيچي نداد

راستي ميشه كه يه كاريش كرد كه وقتي اعداد مرتب ميكنه يه بار چاپشون كنه

مرسي مرسي

---

نه ، مشکل در قسمت مرتب سازی بود !

درستش کردم ... ساری :

1- دریافت آرایه :

کد:

---

Dim a(3) As Integer
For i = 0 To 3
 a(i) = InputBox("Enter a number")
Next i

---

2- مرتب سازی :

کد:

---

For i = 0 To 3
 For j = 0 To 2
  If a(j) > a(j + 1) Then
  temp = a(j)
  a(j) = a(j + 1)
  a(j + 1) = temp
  End If
 Next j
Next i

---

3- چاپ اعداد مرتب شده : ( درخواست خودتون )

کد:

---

For i = 0 To 3
 Print a(i)
Next i

---

4- کد اصلی مربوط به جستجو :

کد:

---

Item = InputBox("Enter a number for search")
L = LBound(a)
U = UBound(a)
Do While L <= U
 C = (L + U) / 2
 If Item = a(C) Then
  Print Item
  Exit Do
 End If
 If Item < a(C) Then U = C - 1
 If Item > a(C) Then L = C + 1
Loop

---

----

ببخشید که اشتباه شد ! :11:

مرسي مرسي

كاش بتونم جبران كنم