Скачать: CL | DM;

Искать похожие слова   Найти похожие ветки 

← →
Евгений Т.   (2008-02-21 14:08) [0]

Всем привет! Вот пишу программу которая бегает по записям и сравнивает Строку1 и Строку2. Теперь появилась необходимость искать похожие слова. Пример: Строка1 = "машина", Строка2 = "красная машина"
В данном случаи результат True. Мастера, если у кого уже есть такая функция поиска будьте любезны, выложить. Я бы мог помучиться и попробувать сделать сам, но уже скоро сдавать да и велосипед изобритать ... зр. Спасибо.

---

← →
Palladin ©   (2008-02-21 14:11) [1]

конкретное тз неозвучено... да и Строка2 это два слова, а не одно...

---

← →
Плохиш ©   (2008-02-21 14:16) [2]

> Евгений Т.   (21.02.08 14:08)  

У меня есть, Pos - называется.

---

← →
Евгений Т.   (2008-02-21 14:19) [3]

> Плохиш ©

Да с "Pos" я знаком, но я обратился потому что время совсем поджимает. Если у кого уже есть то плз.

---

← →
Servy   (2008-02-21 14:20) [4]

> Строка1 = "машина", Строка2 = "красная машина"
> В данном случаи результат True.


Первый вариант функции, удовлетворяющей приведенному условию:

function CompareStr1(const S1, S2: string): Boolean;
begin
 Result := (S1 = "машина") and (S2 = "красная машина");
end;

Включая телепатер, можно предположить, что критерий похожести такой: если одна из строк полностью входит в другую, то строки считаются похожими.

function CompareStr2(const S1, S2: string): Boolean;
begin
 Result := (Pos(S1, S2) > 0) or (Pos(S2, S1) > 0);
end;

Еще, как критерий похожести можно использовать расстояние Левенштейна, гугль поможет. Можно еще вагон решений придумать, сказать, что нужно Евгению не представляется возможным за недостатком информации.

---

← →
Плохиш ©   (2008-02-21 14:20) [5]

Сумма не озвучена

---

← →
Евгений Т.   (2008-02-21 14:22) [6]

Сумма чего ?

---

← →
Amoeba ©   (2008-02-21 14:27) [7]

> Евгений Т.   (21.02.08 14:22) [6]
>
> Сумма чего ?
>

Догадайся с трех раз.

---

← →
Игорь Шевченко ©   (2008-02-21 14:28) [8]

> Я бы мог помучиться и попробувать сделать сам, но уже скоро
> сдавать


а нам какое дело ?

---

← →
Riply ©   (2008-02-21 14:35) [9]

> [0] Евгений Т.   (21.02.08 14:08)
> Я бы мог помучиться и попробувать сделать сам,

Может уступить место тому, для кого учеба не является мучением ?

---

← →
Евгений Т.   (2008-02-21 14:40) [10]

Я же не прошу написать вас с нуля такую функцию. Я попросилил если есть у кого: цитирую свои слова:  "Мастера, если у кого уже есть такая функция поиска будьте любезны"

Если нету, зачем флудить ?

> Плохиш ©

У тебя все продается?

---

← →
Johnmen ©   (2008-02-21 14:43) [11]

> Евгений Т.   (21.02.08 14:40) [10]
> > Плохиш ©
> У тебя все продается?

Нет. У него всё покупается.

---

← →
Евгений Т.   (2008-02-21 14:43) [12]

2 Johnmen ©

А вы я так понимаю его секретарша?

---

← →
Johnmen ©   (2008-02-21 14:45) [13]

> А вы я так понимаю его секретарша?

Я его пресс-секретарь.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.009 c