Пятница, 29 Мар 2024, 15:20
Uchi.ucoz.ru
Меню сайта
Форма входа

Категории раздела
Высшая математика [11]
Экономическая социология [95]
Основы Менеджмента [64]
Бухгалтерский учёт [157]
Философия [163]
Мировая Экономика [603]
Бизнес планирование [29]
Финансирование и кредитование инвест [105]
Ценообразование [46]
Гражданское право [196]
Права Человека [173]
Основы Маркетинга [207]
Основы энергосбережения [55]
Информатика [0]
Экология и устойчивое развитие [0]
Физика для студентов [0]
Основы права [0]
Политология [0]
Не стандартные примеры на Delphi [169]
Примеры на Delphi7 [108]
Алгоритмы [94]
API [110]
Pascal [152]
Базы Данных [6]
Новости
Чего не хватает сайту?
500
Статистика
Зарегистрировано на сайте:
Всего: 51635


Онлайн всего: 2
Гостей: 2
Пользователей: 0
Яндекс.Метрика
Рейтинг@Mail.ru

Каталог статей


Главная » Статьи » Студентам » Pascal

Как определить, что два слова имеют схожее произношение?
{ Данный совет взят из файлов помощи Ллойда (Lloyd) }

Функция Soundex определяет схожесть звучания двух слов.
Алгоритм Soundex опубликован в одной из статей журнала PC Magazine и
предназначен для работы с английским языком (может кто-нибудь портирует для
работы с нашим могучим? Пишите).
Функции передается строка. Возвращаемое Soundex значение также имеет тип строки.
Эта величина может сохраняться в базе данных или сравниваться с другим значением
Soundex. Если два слова имеют одинаковое значение Soundex, можно предположить,
что звучат они одинаково (более или менее).
Вы должны иметь в виду, что алгоритм Soundex игнорирует первую букву слова.
Таким образом, "won" и "one" будут иметь различное значение Soundex, а "Won" и
"Wunn" - одинаковое.

Soundex будет особенно полезен в базах данных, когда пользователь
затрудняется с правописанием имен и фамилий.

Function
Soundex(OriginalWord: string): string;
var

Tempstring1, Tempstring2: string;
Count: integer;begin

Tempstring1 := '';
Tempstring2 := '';
OriginalWord := Uppercase(OriginalWord); {Переводим исходное слово в верхний регистр}
Appendstr(Tempstring1, OriginalWord[1]);
{Используем первую букву слова}
for Count := 2 to
length(OriginalWord) do
{Назначаем числовое значение каждой букве, за
исключением первой}

case OriginalWord[Count] of
'B','F','P','V': Appendstr(Tempstring1,
'1');
'C','G','J','K','Q','S','X','Z': Appendstr(Tempstring1,
'2');
'D','T':
Appendstr(Tempstring1, '3');
'L': Appendstr(Tempstring1, '4');
'M','N':
Appendstr(Tempstring1, '5');
'R': Appendstr(Tempstring1, '6');
{Все другие буквы, цифры и знаки пунктуации
игнорируются}
end;
Appendstr(Tempstring2, OriginalWord[1]);
{Удаляем из результата все последовательно
повторяющиеся цифры.}

for Count:=2 to
length(Tempstring1) do
if Tempstring1[Count-1]<>Tempstring1[Count] then
Appendstr(Tempstring2,Tempstring1[Count]);
Soundex:=Tempstring2; {Это - значение
soundex}end;
Категория: Pascal | Добавил: Lerka (22 Ноя 2012)
Просмотров: 546 | Рейтинг: 1.0/ 6 Оштрафовать | Жаловаться на материал
Похожие материалы
Всего комментариев: 0

Для блога (HTML)


Для форума (BB-Code)


Прямая ссылка

Профиль
Пятница
29 Мар 2024
15:20


Вы из группы: Гости
Вы уже дней на сайте
У вас: непрочитанных сообщений
Добавить статью
Прочитать сообщения
Регистрация
Вход
Улучшенный поиск
Поиск по сайту Поиск по всему интернету
Наши партнеры
Интересное
Популярное статьи
Портфолио ученика начальной школы
УХОД ЗА ВОЛОСАМИ ОЧЕНЬ ПРОСТ — ХОЧУ Я ЭТИМ ПОДЕЛИТ...
Диктанты 2 класс
Детство Л.Н. Толстого
Библиографический обзор литературы о музыке
Авторская программа элективного курса "Практи...
Контрольная работа по теме «Углеводороды»
Поиск
Главная страница
Используются технологии uCoz