Arama Algoritması

Visual Basic & Action script Arama Algoritması Programlama hakkında bilgi paylaş; Arama Algoritması İkili Arama Algoritması Bu algoritma sıralnmış veriler üzerinde istenilen elmanı bulma yöntemidir. Bu algoritmaya göre ...
Cevapla
 
Seçenekler
  #1  
Arama 24-12-2007, 12:13
Celebrian - ait Kullanıcı Resmi (Avatar)

Üyelik Tarihi: 19/11/07
Mesajlar: 3.307
 
     WS-Ticareti: (0)
Teşekkürleri: 0
31 Msg. 38 Tşkr.
Rep Gücü: 36 Celebrian rep gücü yükselmeye başladı

Arama Algoritması

Arama Algoritması İkili Arama Algoritması
Bu algoritma sıralnmış veriler üzerinde istenilen elmanı bulma yöntemidir. Bu algoritmaya göre arama işlemi dizinin ortasındaki elman ile aranılan elemanın karşılaştırlması şeklinde yapılır. Bu karşılaştırma işleminde 3 durum sözkonusudur.
Birinci durum : Aranılan eleman dizinin ortasındaki elemandan büyüktür. O zaman dizinin ortasını başlangıç noktası seçerek dizinin tekrar ortasındaki elemanı bulmaya devam ederiz.
İkinci durum : Aranılan eleman dizinin ortasındaki elemandan küçüktür. O zaman dizinin ortasını bitiş noktası seçerek dizinin tekrar ortasındaki elemanı bulmaya devam ederiz.
Üçüncü durum : Aranılan elaman dizideki elemana eşittir. O zaman istenilen eleman bulunmuştur. Aramayı keseriz.
Algoritmayı şu şekilde verebiliriz ;

ikili_arama(aranan)
{
bas=1
son=dizinin_boyutu
Do while bas<=son
orta=(bas+son)/2
If aranan=dizi(orta) Then
'işlem başarılı
return orta
Elseif aranan %lt dizi(orta)
son=orta
Else
bas=orta
Endif
Loop
return 0
' eger fonksiyondan 0 döner ise eleman bulunamamıştır.
}


Şimdi bu algoritmayı Visual basic'de gerçekleştirelim. Bir önceki algoritmada anlattığımız programı geliştirerek devam edelim. Form üzerine bir buton daha yerleştiriniz. Butonun başlığını arama olarak değiştiriniz. Bu butonun click event'ine aşağıdaki kodu giriniz.


Private Sub Command3_Click()
Dim bas, son, aranan As Integer
bas = 1
son = p
aranan = Val(InputBox("Aranan elemanı giriniz ...", "Arama"))
Do While bas < son
orta = (bas + son) / 2
If aranan = dizi(orta) Then
Print
bas = orta - Int(orta)
If bas < 0.5 Then
orta = Int(orta)
Else
orta = Int(orta) + 1
End If

Print "Aranan eleman "; orta; " sırada bulundu"
Exit Sub
ElseIf aranan < dizi(orta) Then
son = orta
Else
bas = orta
End If
Loop
Print
Print "Aranan elaman bulunamadı."
End Sub
Alıntı ile Cevapla
Cevapla
Arama Etiketleri: ,



Seçenekler


Benzer Konular
Konu Konu Açanlar Forum Cevaplar Güncel Mesajlar
Pagerank gidiyor, yerine orion algoritması geliyor !!! becerikliforum Google Pagerank 7 17-07-2008 11:15
En basit anlatımla Orion Algoritması Nedir ve nasılişler ? kadınca SEO Arama Motoru Optimizasyonu 0 13-07-2008 11:49
google orion algoritması nedir??? özlem34 Webmastersitesi çöplüğü 7 23-05-2008 01:33
Arama Motorlarına yerleşmek için ne yapmalıyım,arama motorları ipuçları,hitinizi arttırın kadınca SEO Arama Motoru Optimizasyonu 0 06-02-2008 07:35
XP’nin Kullandığı PRNG Şifreleme Algoritması Kırıldı egitimbilgisi Donanım Haberleri 0 29-11-2007 08:24

Webmaster Sitesine Reklam Verin

Webmaster web tasarım online reviews ~ Kadınlar blogu ~ Apple iPhone, iPod Touch ( iTouch ) Forum ~ iPhone