![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы
![]() |
Поиск в этой теме
![]() |
![]() |
#1 |
Пользователь
Регистрация: 25.12.2008
Сообщений: 39
|
![]()
Здравствуйте, помогите с решением следующей задачи:Убрать из текста лишние пробелы, т.е. там, где они встречаются больше одного раза, оставить один пробел. Вот некоторые нароботки
Код:
|
![]() |
![]() |
![]() |
#2 |
Капсула от спама
Форумчанин
Регистрация: 04.03.2008
Сообщений: 779
|
![]()
Оо удивили))
Сами же переопределили функцию pos?) Теперже она вызывает сама себя) Вот вам и причина трабла. Код:
Код:
Если данный ответ не столь конкретен, как Вы желаете его увидеть, возможно необходимо поразмыслить, стоит ли вопрос того, чтобы о нём спрашивать на форуме?
CncFiles.ru - бесплатный файловый хостинг |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 25.12.2008
Сообщений: 39
|
![]()
Спасибо, но теперь ругается на строки Close(FIleIn) и Close(FileOut)
![]() |
![]() |
![]() |
![]() |
#4 | |
Капсула от спама
Форумчанин
Регистрация: 04.03.2008
Сообщений: 779
|
![]()
Потому что вы используете файловые переменные внутри процедур
Код:
Цитата:
![]()
Если данный ответ не столь конкретен, как Вы желаете его увидеть, возможно необходимо поразмыслить, стоит ли вопрос того, чтобы о нём спрашивать на форуме?
CncFiles.ru - бесплатный файловый хостинг Последний раз редактировалось Dj_smart; 29.03.2009 в 19:07. |
|
![]() |
![]() |
![]() |
#5 | |
Пользователь
Регистрация: 25.12.2008
Сообщений: 39
|
![]() Цитата:
Код:
![]() ![]() |
|
![]() |
![]() |
![]() |
#6 |
Пользователь
Регистрация: 20.06.2008
Сообщений: 95
|
![]()
Иван 883, ты все напутал. Вот объясни мне, чем занимается твоя функция MyPos? Проще написать заново:
Код:
![]()
Не забывайте оставлять отзывы (кнопочка в левом нижнем углу сообщения)
![]() Последний раз редактировалось bag; 29.03.2009 в 19:45. |
![]() |
![]() |
![]() |
#7 | |
Пользователь
Регистрация: 25.12.2008
Сообщений: 39
|
![]() Цитата:
По идее функция myPos преобразовывает пробелы в нули. ЗЫ ее я брал из Help'а в Pascal'еСпасибо за программу, но мне нужно именно через процедуры и функции иначе препод не принимает ![]() Последний раз редактировалось Иван 883; 29.03.2009 в 19:40. |
|
![]() |
![]() |
![]() |
#8 |
Пользователь
Регистрация: 20.06.2008
Сообщений: 95
|
![]()
А тебе че, лишние пробелы нулями заменять надо?
![]()
Не забывайте оставлять отзывы (кнопочка в левом нижнем углу сообщения)
![]() |
![]() |
![]() |
![]() |
#9 | ||
Пользователь
Регистрация: 25.12.2008
Сообщений: 39
|
![]() Цитата:
![]() Цитата:
Последний раз редактировалось Иван 883; 29.03.2009 в 19:55. |
||
![]() |
![]() |
![]() |
#10 |
Пользователь
Регистрация: 20.06.2008
Сообщений: 95
|
![]()
В n хранится позиция текущей пары пробелов (чтобы кучу раз pos() не вызывать), а в IOResult хранится код ошибки при выполнении операции reset(fin). Если IOResult=0, то ошибок не было.
Не забывайте оставлять отзывы (кнопочка в левом нижнем углу сообщения)
![]() |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
удаление лишних данных в ячейке | mistx | Microsoft Office Excel | 2 | 24.02.2009 18:32 |
Ввод и вывод | Mihael-Vlz | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 19.01.2009 18:00 |
Строки(удаление пробелов). C language | SuccEssoR | Помощь студентам | 4 | 15.01.2009 17:13 |
Консольная программа на Си: ввод, вывод, сортировка, сохранение в текстовый файл. | zerg | Помощь студентам | 8 | 16.11.2007 12:57 |