|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.11.2008, 23:23 | #1 |
Пользователь
Регистрация: 13.11.2008
Сообщений: 80
|
помогите исправить задачку
Вот задача: Ввести строка символов, которая содержит слова и эталонное слово. Найти в строке все слова, из которых можно получить эталонное слово в результате одной ошибки.
Вот код, но здесь что-то не правильно, как ее проверить?Скажите чего исправить const rzd = [',', '-', '.']; var slovo, etalon, st: string; i, j, k: byte; begin write('st = '); readln(st); write('etanol = '); readln(etalon); st := ' ' + st + ' '; for i := 1 to length(st) do if st[i] in rzd then st[i] := ' '; while pos(' ', st) > 0 do delete(st, pos(' ', st), 1); delete(st, 1, 1); repeat i := pos(' ', st); slovo := copy(st, 1, i - 1); j := 0; if abs(length(slovo) - length(etalon)) <= 1 then for i := 1 to length (slovo) do if slovo[i] <> etalon[i] then inc(j); if j = 1 then writeln(slovo);//одна ошибка обязательна delete(st, 1, i) until st = ''; readln end. |
30.11.2008, 12:12 | #2 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
30.11.2008, 12:26 | #3 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Код:
Последний раз редактировалось puporev; 30.11.2008 в 12:43. |
30.11.2008, 12:45 | #4 |
Пользователь
Регистрация: 13.11.2008
Сообщений: 80
|
Огромное вам спасибо
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите решить задачку. | [Pr1_Zr4k] | Помощь студентам | 4 | 10.10.2009 17:52 |
Помогите решить задачку:-(( | torrik | Помощь студентам | 32 | 10.10.2008 09:56 |
Помогите решить задачку:-( | torrik | Microsoft Office Excel | 11 | 07.10.2008 13:38 |
Помогите Помогите Пожалуйста Решить Одну Задачку в Паскале!!! | VisTBacK | Помощь студентам | 6 | 19.09.2008 13:44 |