подсчитать количество строк в файле, содержащий заданный символ более одного раза |
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
подсчитать количество строк в файле, содержащий заданный символ более одного раза |
kill94 |
Сообщение
#1
|
Группа: Пользователи Сообщений: 5 Пол: Мужской Репутация: 0 |
нужно подсчитать количество строк в файле, содержащий заданный символ более одного раза
|
@nto$ka |
Сообщение
#2
|
Новичок Группа: Пользователи Сообщений: 38 Пол: Мужской Репутация: 0 |
Во-первых, мой компилятор сразу же заругался, т.к. Вы не открываете файл f1 на чтение
Чтобы открыть файл на чтение нужно использовать процедуру Reset(f1); После чтения не забудьте обязательно ее закрыть. Во-вторых, зачем считывать файл посимвольно ????? Читайте сразу строку! Считав строку, ищите в ней нужный символ. Затем, если такой символ нашелся, то заменяем его на другой (проще всего заменить его на chr(256-ord(sim)) Тогда вы гарантированно получите другой символ ). Наконец, смотрим, есть ли в строке этот символ еще раз. И только тогда увеличиваем число строк q Про файл вывода: Лучше всего открыть f2 процедурой reset(f2); Он создает и открывает НОВЫЙ файл. Кстати вместо Цитата while not eof(f2) do лучше написать просто writeln(q);begin read(f2,c); write©; end; Ну как-то так |
Текстовая версия | 16.05.2024 17:42 |