Из текстового файла удалить строки, состоящие из одинаковых литер |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Из текстового файла удалить строки, состоящие из одинаковых литер |
Agerest |
Сообщение
#1
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Репутация: 0 |
Дан текстовый файл G. Откорректировать его, удаляя строки, состоящие из одинаковых литер. Напечатать номера удаляемых строк. Помогите пожалуйста, заранее спасибо)
Вроде понимаю паскаль и текстовые файлы в том числе, но справиться с этой задачей не могу. |
Федосеев Павел |
Сообщение
#2
|
Знаток Группа: Пользователи Сообщений: 481 Пол: Мужской Реальное имя: Федосеев Павел Репутация: 9 |
Раз понимаете, сделайте часть программы с чтением файла и выводом на экран номера строки и самой строки без какой-либо обработки.
Это будет первый этап. Следующий этап - я помогу с удалением строк. |
Agerest |
Сообщение
#3
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Репутация: 0 |
Раз понимаете, сделайте часть программы с чтением файла и выводом на экран номера строки и самой строки без какой-либо обработки. Это будет первый этап. Следующий этап - я помогу с удалением строк. Спасибо большое, что ответили. Вот я сделал эту часть программы: Код Var F: Text; l, i: integer; s:string; begin Assign ( F, 'F:/text.txt' ); reset(f); l:=0; while not eof(f) do begin l:=l+1; while not eoln(f) do begin read(f,s); write('Строка №',l,': '); writeln(s); readln(f); l:=l+1; end; close(f); readln; end; end. |
Федосеев Павел |
Сообщение
#4
|
Знаток Группа: Пользователи Сообщений: 481 Пол: Мужской Реальное имя: Федосеев Павел Репутация: 9 |
Только осторожнее - исходный файл модернизируется и прежнюю информацию из него уже не вернуть.
program Files; |
Agerest |
Сообщение
#5
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Репутация: 0 |
Только осторожнее - исходный файл модернизируется и прежнюю информацию из него уже не вернуть. program Files; Кажется не работает. Может где-то ошибка? |
Федосеев Павел |
Сообщение
#6
|
Знаток Группа: Пользователи Сообщений: 481 Пол: Мужской Реальное имя: Федосеев Павел Репутация: 9 |
Кому кажется, как не работает, чем компилировали?
|
Гость |
Сообщение
#7
|
Гость |
|
Федосеев Павел |
Сообщение
#8
|
Знаток Группа: Пользователи Сообщений: 481 Пол: Мужской Реальное имя: Федосеев Павел Репутация: 9 |
Вот прямо только что проверил работу программы (правда, у меня FreePascal).
Сделал файл text.txt Цитата sdkjfhskdjfks ddkksdjhfkjskdf ddddddddd dddddddd v -============= ===========- 11111111111 er 444 Запустил программу, на экран вывелось Цитата 7 9 После открытия файла 'text.txt' увидел Цитата sdkjfhskdjfks ddkksdjhfkjskdf ddddddddd dddddddd v -============= ===========- er |
Agerest |
Сообщение
#9
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Репутация: 0 |
Вот прямо только что проверил работу программы (правда, у меня FreePascal). Сделал файл text.txt Цитата sdkjfhskdjfks ddkksdjhfkjskdf ddddddddd dddddddd v -============= ===========- 11111111111 er 444 Запустил программу, на экран вывелось Цитата 7 9 После открытия файла 'text.txt' увидел Цитата sdkjfhskdjfks ddkksdjhfkjskdf ddddddddd dddddddd v -============= ===========- er Ой, я не так смысл задачи понял просто. Я думал программа должна удалять строки, в которых одинаковые литеры, например строки: 56, 23, 56. И она должна удалить 1 и 3 строку. Но теперь я разобрался. Спасибо большое) Добавлено через 3 мин. Почему я репутацию повысить не могу? Хмм |
Текстовая версия | 6.05.2024 10:57 |