Определить, сколько раз встречается строка текста в текстовом файле - Turbo Pascal

Формулировка задачи:

Задана строка текста. Определить, сколько раз встречается эта строка текста в текстовом файле.

Код к задаче: «Определить, сколько раз встречается строка текста в текстовом файле - Turbo Pascal»

textual
Uses crt;
Var f:text; s,p:string; k:integer;
Begin
ClrScr; Write('Input string:'); Readln(p); k:=0; {ввод строки}
Assign(f,'C:/f.txt'); Reset(f);                  {открываем файл}
While not EOF(f) do                              {чтение до конца файла}
 Begin
  Readln(f,s);             {читаем строку}
  If s=p then inc(k);      {сравниваем}
 End;
Write('kol-vo:',k);        {выводим кол-во}
Readln;
End.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

10   голосов, оценка 4.200 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы