Вывести файл на экран, добавлляя после каждого предложения число вхождений в него заданного слова

@SubZer · Регистрация: 30.09.2014

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

Написать программу, которая считывает текст из файла и выводит его на экран, после каждого предложения добавляя, сколько раз встретилось в нем введенное с клавиатуры слово.

@Joy · 02.10.2014, 07:11

Pascal

const 
  delim=[#32..#47,#91..#93,#123..#125];{разделитель слов}
  delim1=['.',';','!','?'];{разделитель предложений}
var
  f:text;
  sum,i:integer;
  s,si:string;
  c:char;
begin
  assign(f,'test.txt');
  reset(f);
  write('Слово>');readln(si);
  while not eof(f)do begin
    while not eoln(f) do begin
      read(f,c);s:=s+c;
      if c in delim1 then begin
        write(s);s:=#32+s+#32;
        while pos(si,s)>0 do begin
          i:=pos(si,s);
          if (s[i-1] in delim) and (s[i+length(si)] in delim) then inc(sum); 
          delete(s,2,i+length(si));
        end; 
        writeln(sum);
        sum:=0;s:='';
       end;
     end;
     readln(f);
   end;
  close(f);
end.

Добавлено через 9 минут
В разделителях предложений не указал '!' и '?'

@SubZer · 05.10.2014, 23:52 **[ТС]**

Спасибо огромное!

@SubZer 0 / 0 / 0 Регистрация: 30.09.2014 Сообщений: 20
		1
	Вывести файл на экран, добавлляя после каждого предложения число вхождений в него заданного слова 01.10.2014, 21:27. Показов 1955. Ответов 2 Метки анализ, количество, слово, строка, файл (Все метки) Написать программу, которая считывает текст из файла и выводит его на экран, после каждого предложения добавляя, сколько раз встретилось в нем введенное с клавиатуры слово. 0

@SubZer 0 / 0 / 0 Регистрация: 30.09.2014 Сообщений: 20
	05.10.2014, 23:52 [ТС]	3
	Спасибо огромное! 0

Опции темы

Вывести файл на экран, добавлляя после каждого предложения число вхождений в него заданного слова

Решение