|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.12.2009, 15:28 | #1 |
Регистрация: 02.12.2009
Сообщений: 6
|
Паскаль. Удаление из слов предыдущие вхождения в него последней буквы.
Здравствуйте.
Дана строка, состоящая из латинских символов. Символы, разделенные пробелами, будем называть слова. Напечатать слова, отличные от последнего слова, удалив из них все предыдущие вхождения последней буквы. Мой код почему-то не работает, хотя вроде бы и все правильно, нужна помощь в нахождении ошибки в коде... uses crt; var s:string; v:string[1]; i,j:byte; begin clrscr; write('Введите строку'); readln(s); i:=length(s); repeat if copy(s,i,1)<>' ' then begin v:=copy(s,i,1); j:=i-1; while (j>=1) and (copy(s,j,1)<>' ') do begin if copy(s,j,1)=v then begin delete(s, j, 1); inc(j); end; dec(j); end; i:=j; end; dec(i); until i<1; writeln(s); readln; end. |
11.12.2009, 18:44 | #2 |
Пользователь
Регистрация: 26.02.2009
Сообщений: 60
|
Вам нужно чтобы на запрос "Chem dalshe v les tem bolshe drov" программа выдала "Chem dalse v ls t bolh dro"? Такая логика?
|
11.12.2009, 18:59 | #3 |
Пользователь
Регистрация: 26.02.2009
Сообщений: 60
|
Если да, то вот код.
Код:
|
11.12.2009, 19:32 | #4 |
Регистрация: 02.12.2009
Сообщений: 6
|
Мне нужно чтобы она выдала вместо:
bjkblb ahjkh okhl jklb ajkh okhl то есть нашла в слове последнюю букву, и если такие же буквы есть в этом же слове, то удалила их... |
11.12.2009, 20:01 | #5 |
Пользователь
Регистрация: 26.02.2009
Сообщений: 60
|
Если хотите получить более менее подходящий ответ, правильно ставьте вопрос.
Код:
Последний раз редактировалось AlexanderKs; 11.12.2009 в 20:06. |
11.12.2009, 20:24 | #6 |
Удален
Форумчанин
Регистрация: 02.12.2009
Сообщений: 309
|
решение задачи:
Код:
Последний раз редактировалось Alex_FF; 11.12.2009 в 20:27. |
11.12.2009, 20:30 | #7 | |
Удален
Форумчанин
Регистрация: 02.12.2009
Сообщений: 309
|
Цитата:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Удаление слов из строки С | vivo89 | Помощь студентам | 4 | 13.11.2009 22:13 |
Удаление слов из текста | Gery | Помощь студентам | 24 | 22.09.2009 14:37 |
Удаление отступов в последней ячейке каждой строки в каждой таблице | Busine2009 | Microsoft Office Word | 7 | 06.06.2009 12:27 |
В заданной строке символов заменить все первые буквы слов на заглавные | NV-salt | Общие вопросы C/C++ | 4 | 05.04.2009 18:41 |
удаление одинаковых слов (С/С++) | jewel | Помощь студентам | 1 | 12.12.2008 15:14 |