Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
SubZer
0 / 0 / 0
Регистрация: 30.09.2014
Сообщений: 20
1

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

01.10.2014, 21:27. Просмотров 1011. Ответов 2

Написать программу, которая считывает текст из файла и выводит его на экран, после каждого предложения добавляя, сколько раз встретилось в нем введенное с клавиатуры слово.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.10.2014, 21:27
Ответы с готовыми решениями:

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

Вывести различные слова, указав для каждого из них число вхождений в последовательность
Дана последовательность до 30 слов в каждом из которых от 1 до 5 символов,...

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

Создать типизированный файл и записать в него 5 одинаковых слов. Вывести слова на экран
Вариант 10. Создать типизированный файл и записать в него 5 одинаковых слов....

Для каждого слова заданного предложения указать долю согласных
Для каждого слова заданного предложения указать долю согласных. Определить...

2
Joy
Эксперт Pascal/Delphi
2163 / 1194 / 1434
Регистрация: 29.08.2014
Сообщений: 4,373
02.10.2014, 07:11 2
Лучший ответ Сообщение было отмечено SubZer как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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 минут
В разделителях предложений не указал '!' и '?'
2
SubZer
0 / 0 / 0
Регистрация: 30.09.2014
Сообщений: 20
05.10.2014, 23:52  [ТС] 3
Спасибо огромное!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.10.2014, 23:52

Подсчитать число вхождений каждого слова в текст
Разработать блок-схему алгоритма и составить программу обработки текстовых...

Составить строку,содержащую первые буквы из каждого слова заданного предложения
1)Составить строку,содержащую первые буквы из каждого слова заданного...

Создать текстовый файл, в который записать 4 предложения. Вывести на экран самое длинное и короткое предложения.
Создать текстовый файл, в который записать 4 предложения. Вывести на экран...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru