örneği:
1. cümle "Her internet kullanıcısı dosya transferi yapabilir."
2. cümle "İnterneti kullananlar dosya transferi yapabilir."
yada
1. cümle "Ali okula gider, top oynar."
1. cümle "Ali top da oynar okuluna da gider."
Gelelim bu algoritmayı neden istediğime.
İngilizceden Türkçe Bilgisayar teknik terimler sözlüğü hazırladım. Text dosyadan import özelliği ekledim. Ancak eklenen dosyadaki bir kelime var ise sözlükte eklenen anlamı var olan anlamdaki ile karşılaştırıp , eklenen farklı bir anlam ise listeye eklemek , var olan anlamın içinde var ise eklememek istiyorum. oh bee tek nefeste sölemek ne zormuş
iki tane procedure hazırladım. şu an da onunla uğraşıyorum
Bu procedure eklenen kelimenin anlamındaki her bir harfin kaç defa geçtiğini kaydediyor.
Kod: Tümünü seç
procedure tform1.kontrol_eklenen_anlam;
begin
alfabe:='abcçdefgğhıijklmnoöpqrsştuüvyxwz';
for it:=1 to length(turks) do
begin
harf:=turks[it];
if harf in ['a','b','c','ç','d','e','f','g','ğ','h','ı','i','j','k','l','m','n','o','ö','p','q','r','s','ş','t','u','ü','v','y','x','w','z'] then
begin
harfler_tr[pos(harf,alfabe)]:=harfler_tr[pos(harf,alfabe)]+1;
end;
end;
end;
Bu procedure de varolan kelimenin anlamındaki her bir harfin kaç defa geçtiğini kaydediyor.
Kod: Tümünü seç
procedure tform1.kontrol_varolan_anlam;
begin
alfabe:='abcçdefgğhıijklmnoöpqrsştuüvyxwz';
for it:=1 to length(ings) do
begin
harf:=ings[it];
if harf in ['a','b','c','ç','d','e','f','g','ğ','h','ı','i','j','k','l','m','n','o','ö','p','q','r','s','ş','t','u','ü','v','y','x','w','z'] then
begin
harfler_en[pos(harf,alfabe)]:=harfler_en[pos(harf,alfabe)]+1;
end;
end;
end;
1- bu çıkan sonuçları bir biri ile karşılaştırarak farkı bulucam ve dicem ki toleransım %50 farklı toplamın yarısından fazla ise aynı cümle değil yarından az ise aynı cümledir.
2- bu çıkan sonuçlardaki bir-birini tutan harfleri elicem kalanların farkını bulucam ve dicem ki toleransım %50 farklı toplamın yarısından fazla ise aynı cümle değil yarından az ise aynı cümledir.
v.s v.s bu şekilde bir çok farklı mantık yürütülebilir.
sizlerden istediğim yardım şu bunu nasıl kesin sonuca ulaştırırım baika bir şekilde nasıl yaparım.
herkese şimdiden teşekkürler.
Asri
