Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
2 / 2 / 0
Регистрация: 01.05.2013
Сообщений: 44
1

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

01.05.2013, 12:39. Показов 1956. Ответов 1
Метки нет (Все метки)

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

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

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

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

Определить сколько раз в последовательности встречаются максимальное чисел, а сколько раз минимальное
Добрый вечер всем! Мне надо решить на экзамен задачку, прошу вас помочь с ней :) Задача: Дана...

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

Строка: Написать какие буквы и сколько раз встречаются в тексте
Добрый вечер! Помогите, пожалуйста, с задачкой! Заранее благодарю за решение Символьная строка...

1
158 / 137 / 106
Регистрация: 18.05.2013
Сообщений: 289
27.05.2013, 11:50 2
Лучший ответ Сообщение было отмечено k1x как решение

Решение

Наверное, уже поздновато отвечать, но задачка интересная
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
var
  f: text;
  s1, s2: string;
  x1, x2, x: integer;
 
begin
  assign(f, 'story.txt');
  reset(f);
  write('Введите нужные слова (через пробел): ');
  read(s2);
  s1 := copy(s2, 1, pos(' ', s2) - 1);
  delete(s2, 1, pos(' ', s2));
  s1 := UpperCase(s1);
  s2 := UpperCase(s2);
  var s: string;
  x := 0;
  x1 := 0;
  x2 := 0;
  while not eof(f) do
  begin
    var k := 1;
    readln(f, s);
    s := UpperCase(s);
    while (k <= length(s)) do 
      if not (s[k] in ['А'..'Я']) then 
        delete(s, k, 1)
      else inc(k); 
    k := 1;
    while (k <= length(s)) do
      if s1 = copy(s, k, length(s1)) then begin
        inc(x1);
        if k > length(s2) then if s2 = copy(s, k - length(s2), length(s2)) then inc(x);
        k += length(s1); end
      else if s2 = copy(s, k, length(s2)) then begin
        inc(x2);
        if k > length(s1) then if s1 = copy(s, k - length(s1), length(s1)) then inc(x);
        k += length(s2); end
      else inc(k);
  end;
  writeln('Слово ' + s1 + ' встречается в тексте ', x1, ' раз.');
  writeln('Слово ' + s2 + ' встречается в тексте ', x2, ' раз.');
  writeln('Оба слова подряд встречаются в тексте ', x, ' раз.');
  close(f);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.05.2013, 11:50

Посчитать, сколько раз в тексте встречаются сокращенные названия дней недели
Можете пожалуйста помочь сделать задачу в паскале , надо чтобы пользователь мог вписать текст в...

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

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

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


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

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

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