подсчитать количество строк в файле, содержащий заданный символ более одного раза |
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
подсчитать количество строк в файле, содержащий заданный символ более одного раза |
kill94 |
Сообщение
#1
|
Группа: Пользователи Сообщений: 5 Пол: Мужской Репутация: 0 |
нужно подсчитать количество строк в файле, содержащий заданный символ более одного раза
|
@nto$ka |
Сообщение
#2
|
Новичок Группа: Пользователи Сообщений: 38 Пол: Мужской Репутация: 0 |
Код var s:string; i :integer; ... while not eof(f1) do begin readln(f1,s);//Читай сразу [b]строку[/b] i:=pos(sim, s); //В строке ищем символ if i>0 then //И если он есть begin s[i]:=chr(256-ord(sim)); //Заменим символ на кракозябру if pos(sim, s)> 0 then //И если он встретился во второй раз inc(q); //увеличим число строк end; end; ЗЫ Код не проверял. Писано на коленке |
Текстовая версия | 30.04.2024 2:17 |