VPF::алгоритм поиска ближайшей клавиши

Elfebet

Дата 5.10.2006, 17:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 545
Регистрация: 15.5.2006
Где: Украина. Запорожь е.

Репутация: 2
Всего: 14

Нужно реализовать алгоритм поиска ближайшей клавиши, к примеру возмем первую букву слова computer, так как буква "с" расположена рядом с буквами "x" "s" "d" "f" "v" в результате должно вывести результат:

Код


xomputer
somputer
domputer
fomputer
vomputer

и так нужно каждую английскую букву на клавиатуре. Може есть у кого такой алгоритм? Иль хотябы подскажите как его можно реализовать правильно?

--------------------

Программист не должен всё знать... он должен знать где можно посмотреть

Alexeis

Дата 5.10.2006, 18:04 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Elfebet, придется вбивать такие значения ручками в отдельный массив, для каждой клавиши smile

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Sartorius

Дата 5.10.2006, 18:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1568
Регистрация: 18.7.2006
Где: Ivory tower

Репутация: нет
Всего: 37

Создай массив строк такого вида

Код


const char * neibors[] = {
"тут ближайшие клавиши для 'а' ",
// и тд
};

Остальное вроде понятно...

Snowy

Дата 5.10.2006, 18:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Просто заведи StringList и забей туда список. Благо клавиш не так много - это проще, чем прибумывать алгоритм.

Elfebet

Дата 5.10.2006, 18:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 545
Регистрация: 15.5.2006
Где: Украина. Запорожь е.

Репутация: 2
Всего: 14

ну ладно, та да буду забивать список клавиш в ручную smile

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

--------------------

Программист не должен всё знать... он должен знать где можно посмотреть

Sunvas

Дата 6.10.2006, 20:23 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Как один из вариантов для аниглийской клавиатуры:

Код


function getnear(bukva:char):string;
const ch:array[1..3,1..10] of char =(('q','w','e','r','t','y','u','i','o','p')
                                        ,('a','s','d','f','g','h','j','k','l',';')
                                        ,('z','x','c','v','b','n','m',',','.','/'));
var
i,j:byte;
begin
result:='';
if bukva=ch[1,1] then result:=ch[1,2]+ch[2,1]+ch[2,2];
if bukva=ch[2,1] then result:=ch[2,2]+ch[3,1]+ch[3,2]+ch[1,1]+ch[1,2];
if bukva=ch[3,1] then result:=ch[3,2]+ch[2,1]+ch[2,2];
if bukva=ch[1,10] then result:=ch[1,9]+ch[2,10]+ch[2,9];
if bukva=ch[2,10] then result:=ch[2,9]+ch[3,10]+ch[3,9]+ch[1,10]+ch[1,9];
if bukva=ch[3,10] then result:=ch[3,9]+ch[2,10];
if result<>'' then exit;
for i:=1 to 3 do
for j:=2 to 9 do
if bukva=ch[i,j] then
begin
if i=1 then begin result:=ch[i,j-1]+ch[i,j+1]+ch[2,j-1]+ch[2,j]+ch[2,j+1]; exit; end;
if i=2 then begin result:=ch[1,j-1]+ch[1,j]+ch[1,j+1]+ch[i,j-1]+ch[i,j+1]+ch[3,j-1]+ch[3,j]+ch[3,j+1]; exit; end;
if i=3 then begin result:=ch[2,j-1]+ch[2,j]+ch[2,j+1]+ch[i,j-1]+ch[i,j+1]; exit; end;
end;
end;

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »