ForumSevgisi.Com

  ForumSevgisi.Com > ForumSevgisi Webmaster Bölümü > Webmaster Genel

Webmaster Genel Webmasterlıkla ilgili Her şeyin Paylaşıldığı Bölüm.


İki cümlenin benzerlik oranını bulma... ;)

Webmasterlıkla ilgili Her şeyin Paylaşıldığı Bölüm.


İki cümlenin benzerlik oranını bulma... ;)

ForumSevgisi Webmaster Bölümü Kategorisinde ve Webmaster Genel Forumunda Bulunan İki cümlenin benzerlik oranını bulma... ;) Konusunu Görüntülemektesiniz,Konu İçerigi Kısaca ->> İki cümlenin benzerlik oranını bulma... ;) İki cümlenin benzerlik oranını bulma... Kod: Function KelimeEsitlikOrani(s1,s2:string):Integer; var hit : Integer; p1, p2 ...

Kullanıcı Etiket Listesi

Yeni Konu aç  Cevapla
LinkBack Seçenekler Stil

Okunmamış 09 Nisan 2015, 16:27   #1
Durumu:
Çevrimdışı
Kaf_Dağı - ait Kullanıcı Resmi (Avatar)
Arastirmaci
Üyelik tarihi: 26 Ekim 2014
Şehir: ~~~~~~
Mesajlar: 1.130
Konular: 710
Beğenilen: 168
Beğendiği: 334
www.forumsevgisi.com
Standart İki cümlenin benzerlik oranını bulma... ;)

İki cümlenin benzerlik oranını bulma... ;)

İki cümlenin benzerlik oranını bulma...

Kod:
        Function KelimeEsitlikOrani(s1,s2:string):Integer;
var
      hit         : Integer;
      p1, p2      : Integer;
      l1, l2      : Integer;
      pt          : Integer;
      test        : array [1..255] of Boolean;
      Ender       : string;
      Arslanturk  : Integer;
begin
      if Length(s1) < Length(s2) then
      begin
            Ender:= s2;
            s2  := s1;
            s1  := Ender;
      end;
      l1:= Length (s1);
      l2:= Length (s2);
      p1:= 1; p2:= 1; hit:= 0;
 
      Arslanturk:= Max (l1, l2) div 3 + ABS (l1 - l2);
 
      for pt:= 1 to l1 do test[pt]:= False;
      repeat
      if not test[p1] then
      begin
              if (s1[p1] = s2[p2]) and (ABS(p1-p2) <= Arslanturk) then
              begin
                      test[p1]:= True;
                      Inc (hit);
                      Inc (p1); Inc (p2);
                      if p1 > l1 then p1:= 1;
              end
              else
              begin
                      test[p1]:= False;
                      Inc (p1);
                      if p1 > l1 then
                      begin
                              while (p1 > 1) and not (test[p1]) do Dec (p1);
                              Inc (p2)
                      end;
              end;
      end
      else
      begin
              Inc (p1);
              if p1 > l1 then
              begin
                    repeat Dec (p1);
                    until (p1 = 1) or test[p1];
                    Inc (p2);
              end;
      end;
      until p2 > Length(s2);
      Result:= 100 * hit DIV l1;
end;
 
 
//Kullanımı
 
If KelimeEsitlikOrani(Edit1.Text,Edit2.Text)=61 Then
ShowMessage('Cümleniz % 61 benzemektedir...');

________________
.........................
imza
Alıntı ile Cevapla
Yeni Konu aç  Cevapla

Etiketler
benzerlik, bulma, cumlenin, iki, iki cümlenin benzerlik oranını bulma... ;), oranini

Seçenekler
Stil


Saat: 23:00

Forum Yasal Uyarı
vBulletin® ile Oluşturuldu
Copyright © 2016 vBulletin Solutions, Inc. All rights reserved.

ForumSevgisi.Com Her Hakkı Saklıdır
Tema Tasarım:
Kronik Depresif


Sitemiz bir 'paylaşım' sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabiliyorlar. Bu sebepten ötürü, sitemizdeki mesaj ya da konulardan doğabilecek yasal sorumluluklar o yazıyı paylaşan kullanıcıya aittir ve iletişim adresine mail atıldığı taktirde mesaj ya da konu en fazla 48 saat içerisinde silinecektir.

ankara escort, izmir escort ankara escort, ankara escort bayan, eryaman escort, bursa escort pendik escort, antalya escort,