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

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

01.10.2014, 21:27. Показов 1771. Ответов 2

Написать программу, которая считывает текст из файла и выводит его на экран, после каждого предложения добавляя, сколько раз встретилось в нем введенное с клавиатуры слово.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.10.2014, 21:27
Ответы с готовыми решениями:

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

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

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

Напечатать различные слова предложения, указав для каждого из них число его вхождений
ПРИВЕТСТВУЮ ВСЕХ!!!! РЕБЯТА, ПОМОГИТЕ ПОЖАЛУЙСТА, самой времени не хватает:cry:, Напечатать...

2
Эксперт Pascal/Delphi
2380 / 1292 / 1491
Регистрация: 29.08.2014
Сообщений: 4,626
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
0 / 0 / 0
Регистрация: 30.09.2014
Сообщений: 20
05.10.2014, 23:52  [ТС] 3
Спасибо огромное!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.10.2014, 23:52

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

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

Вывести на экран слова перевертыши из заданного предложения.
Составьте программу с процедурой, выводящую на экран слова перевертыши из заданного предложения....

Вывести на экран слова перевертыши из заданного предложения
Составьте программу, выводящую на экран слова перевертыши из заданного предложения. Слова...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru