Текстовые файлы. Выяснить, входит ли данное слово в указанный текст, и если да, то сколько раз

@fanny.rup · Регистрация: 28.03.2012

Author24 — интернет-сервис помощи студентам

Дан файл, подержащий текст на русском "языке." Выяснить, входит ли данное слово в указанный текст, и если да, то сколько "раз."

@КонецСвета · 30.03.2012, 07:12

Pascal

var
 s,ss,sss:string;
 f:text;
 i,k: integer;
 begin
 write('Слово: '); readln(s); s:=' '+s+' ';
 assign(f,'C:\in.txt');
 reset(f);
  while not (Eof(f)) do
       begin
       readln(f,ss);
       ss:=' '+ss+' ';
       for i:=1 to length(ss)-length(s) do
           begin
           sss:=copy(ss,i,length(s));
           if sss=s then inc(k);
           end;
 end;
 if k=0 then writeln('Слово "',s,'" не входит в текст')
 else writeln('Слово "',s,'" встречается ',k,' раз(а)');
 close(f);
 end.

@fanny.rup 0 / 0 / 0 Регистрация: 28.03.2012 Сообщений: 8
		1
	Текстовые файлы. Выяснить, входит ли данное слово в указанный текст, и если да, то сколько раз 30.03.2012, 00:01. Показов 1584. Ответов 1 Метки нет (Все метки) Дан файл, подержащий текст на русском "языке." Выяснить, входит ли данное слово в указанный текст, и если да, то сколько "раз." 0

	30.03.2012, 07:12

Текстовые файлы. Выяснить, входит ли данное слово в указанный текст, и если да, то сколько раз

Решение