0 / 0 / 0
Регистрация: 26.05.2018
Сообщений: 2
1

Определить, сколько раз заданные слова встречаются в тексте и сколько из них - непосредственно друг за другом

29.05.2018, 18:20. Показов 1286. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Есть файл. Ввести два разных слова. Определить,
сколько раз они встречаются в тексте и сколько из них — непосредственно
друг за другом.
Помогите пожалуйста
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.05.2018, 18:20
Ответы с готовыми решениями:

Определить, сколько раз заданные слова встречаются в тексте и сколько из них - непосредственно друг за другом
Не знаю как его делать( П.5.18.Правил Запрещено размещать задания и решения в виде картинок и...

Определить, сколько раз заданные 2 слова встречаются в тексте, и сколько из них непосредственно друг за другом
Привет, подскажите как решить. С ВБА не дружу, на других языках решается легко, спасибо Дан...

Определить, сколько раз заданные два слова встречаются в тексте и сколько из них - непосредственно друг за другом
Приветствую, форумчане. Всех с праздником и заслуженными выходными) Требуется помощь в нескольких...

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

2
438 / 367 / 132
Регистрация: 09.09.2011
Сообщений: 1,335
30.05.2018, 00:05 2
В чем сложность для Вас в этой задаче?

Какими средствами разрешено пользоваться?

Приложите тестовый файл и тестовые слова подготовьте.
0
438 / 367 / 132
Регистрация: 09.09.2011
Сообщений: 1,335
30.05.2018, 10:39 3
Ладно сделаю за вас.

ввод слов, сделайте самостоятельно.

для такого файла data.txt:

Кликните здесь для просмотра всего текста
one two three four five one two three four five one two three four five
one two three four five one two three four five one two three four five
one two three four five one two three four five one two three four five
one two three four five one two three four five one two three four five
one two three four five one two three four five one two three four five
one two three four five one two three four five one two three four five
one two three four five one two three four five one two three four five
one two three four five one two three four five one two three four five
one two three four five one two three four five one two three four five
one two three four five one two three four five one two three four five


вот такая программа:
Кликните здесь для просмотра всего текста
Delphi
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
program word_seq;
{программа по заданию с https://www.cyberforum.ru/free-pascal/thread2255330.html
 
Есть файл. Ввести два разных слова. Определить,
сколько раз они встречаются в тексте и сколько из них — непосредственно
друг за другом.}
{$mode objfpc}{$H+}
 
uses
  Classes, sysutils, RegExpr;
 
const
  FNAME = 'data.txt';
 
function check_patt(var AReg: TRegExpr; const aPat, aData : String): Integer;
begin
  Result:=0;
 
  AReg.Expression:= aPat;
    if AReg.Exec(aData) then begin
      repeat
        inc(Result);
      until not AReg.ExecNext ;
    end;
 
end;
 
var
  RegexpObj: TRegExpr;
  FContent:  TStringStream;
  FStream:   TFileStream;
 
begin
  try
    if not FileExists(FNAME) then
       Raise Exception.Create('Cannot find data file!');
 
    //read data from file
    FStream:=  TFileStream.Create(FNAME, fmOpenRead);
    FContent:= TStringStream.Create('');
    FContent.CopyFrom(FStream, FStream.Size);
    FreeAndNil(FStream);
 
    RegexpObj:= TRegExpr.Create;
    RegexpObj.ModifierI:= True;  //case insensitive
 
    //testing
    writeln('word ''one'' matches ', check_patt(RegexpObj, 'one', FContent.DataString), ' times' );
    writeln('word ''two'' matches ', check_patt(RegexpObj, 'two', FContent.DataString), ' times' );
    writeln('word ''six'' matches ', check_patt(RegexpObj, 'six', FContent.DataString), ' times' );
    writeln('words ''two followed by one'' matches ', check_patt(RegexpObj, 'one+\Wtwo', FContent.DataString), ' times' );
    writeln('words ''one followed by five'' matches ', check_patt(RegexpObj, 'five*\Wone', FContent.DataString), ' times' );
 
    //cleaning
    FreeAndNil(RegexpObj);
    FreeAndNil(FContent);
 
  except on E:exception do begin
    WriteLn('Something going wrong:' + LineEnding + E.Message);
    readln;
    halt(1);
    end;
  end;
  readln;
end.


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

Для "русских" литералов возможно потребуется доработка.
Миниатюры
Определить, сколько раз заданные слова встречаются в тексте и сколько из них - непосредственно друг за другом  
0
30.05.2018, 10:39
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.05.2018, 10:39
Помогаю со студенческими работами здесь

Определить сколько раз слова встречаются в тексте и сколько непосредственно друг за другом.
Дан файл, содержащий текст на русском языке, в котором встречаются некоторые 2 слова. определить...

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

Определить, сколько раз в тексте встречаются заданные слова
задача во вложении

Определить, сколько раз в тексте встречаются заданные слова
Help, я вообще не успеваю Определить, сколько раз в тексте встречаются заданные слова: Дан файл с...


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

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

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