|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
14.01.2009, 21:18 | #1 |
Форумчанин
Регистрация: 30.03.2008
Сообщений: 392
|
Исправь текст с помощью программы
Здравствуйте, передо мной стоят такие задачи, я делал, но похоже мой подход оказался не совсем правильным и программа исправляла текст некорректно.
1. в строке s:string могут встречаться как 1,2,3,4 пробела между словами нужно если 1 пробел - то оставить, 2,3,4 - превратить в один пробел 2. если перед точкой есть пробел(ы) - удалить их... если после точки нет пробела - поставить заранее спасибо
Программирование - это великое искусство... Такое же как например и живопись!
|
14.01.2009, 22:39 | #2 |
Форумчанин
Регистрация: 22.12.2008
Сообщений: 104
|
вот 1
uses crt;
var s:string; i:integer; begin clrscr; write(' -> '); readln(s); while pos(' ',s)<>0 do begin i:=pos(' ',s); delete(s,i,3); end; while pos(' ',s)<>0 do begin i:=pos( ' ',s); delete(s,i,2); end; while pos(' ',s)<>0 do begin i:=pos(' ',s); delete(s,i,1); end; writeln(s); readln; end.
@(o_0)@
|
14.01.2009, 23:32 | #3 |
Форумчанин
Регистрация: 16.11.2008
Сообщений: 192
|
Tkirill, твоя программа удаляет все пробелы и еще другие символы
Rusl92, вот моя версия программы, но она удаляет один символ после пробела, может ты найдешь ошибку Код:
|
14.01.2009, 23:39 | #4 |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
Моя версия ) Потестил - вроде ненужные пробелы удаляет.
Код:
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
14.01.2009, 23:52 | #5 |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
pomoshnic Модифицировал вашу версию - теперь работает )
Код:
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
14.01.2009, 23:53 | #6 |
Форумчанин
Регистрация: 22.12.2008
Сообщений: 104
|
pomoshnic я тестировал программу, она нормально работает. Я не знаю откуда ты ето взял.
@(o_0)@
|
14.01.2009, 23:58 | #7 |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
Tkirill У меня ваша программа тоже не работает. Пример ввода:
Код:
Код:
Код:
Код:
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
15.01.2009, 00:08 | #8 |
Форумчанин
Регистрация: 16.11.2008
Сообщений: 192
|
Вот задача №2:
Код:
|
15.01.2009, 00:20 | #9 |
Форумчанин
Регистрация: 16.11.2008
Сообщений: 192
|
Вот мой пример ввода:
Ввожу: Код:
Код:
|
15.01.2009, 00:24 | #10 |
Форумчанин
Регистрация: 22.12.2008
Сообщений: 104
|
а вы в каком паскале делаете?
@(o_0)@
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Что означает этот текст программы в Паскале? | xxasb07 | Помощь студентам | 2 | 09.12.2008 19:19 |
Быстрый вызов программы с помощью мыши | Патрон | Win Api | 3 | 17.07.2008 15:40 |
Открытие файла с помощью моей программы | igroman | Общие вопросы Delphi | 3 | 09.06.2008 09:12 |
Проверьте пожалуйста текст программы | Dim@ | Помощь студентам | 1 | 26.12.2007 19:53 |
Выбор программы или Открыть с помощью | Умелец | Свободное общение | 7 | 14.07.2007 21:17 |