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

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

14.01.2011, 10:03. Показов 2157. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
задача:
Текст.
A story a story is a book written and is ilustrated, bla lbablbalbalbalbla. Haley blflflflfllflfllflfllf. storystorystor.
Сколько раз встречается текст story в тексте.
 Комментарий модератора 
Условие надо уточнить. Слово "story" встречается 2 раза, а текст "story" встречается 4 раза. Что надо искать - слова или текст?


Добавлено через 4 минуты
слово story
и оно 4 раза, там вконце без Y

Добавлено через 6 минут
или подождите)
короче сколько раз повторяется данная комбинация
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.01.2011, 10:03
Ответы с готовыми решениями:

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

Определить, сколько раз каждое слово встречается в тексте
решить одно из заданий 1.дан текст. посчитать сколько раз каждое слово текста встречается в тексте...

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

Определить, сколько раз в тексте встречается заданное слово
всем привет!) народ помогите поааалуйста а то голова не варит: сколько раз в тексте встречается...

3
13104 / 5885 / 1706
Регистрация: 19.09.2009
Сообщений: 8,808
14.01.2011, 10:57 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
program Project1;
 
var
  S, Sw : String;
  i, j, Len1, Len2, Cnt : Integer;
begin
  repeat
    Writeln('Задайте строку:');
    Readln(S);
    Writeln('Задайте искомую подстроку:');
    Readln(Sw);
 
    Len1 := Length(S);
    Len2 := Length(Sw);
    Cnt := 0;
    for i := 1 to Len1 - Len2 + 1 do begin
      j := 1;
      while j <= Len2 do begin
        if S[i + j - 1] <> Sw[j] then Break;
        Inc(j);
      end;
      if j > Len2 then Inc(Cnt);
    end;
 
    Writeln('Количество вхождений: ', Cnt);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.
0
алимшер
14.01.2011, 20:28 3
Writeln('Повторить - Enter. Выход - любой символ + Enter.');

Эта строка обязательна???
13104 / 5885 / 1706
Регистрация: 19.09.2009
Сообщений: 8,808
14.01.2011, 21:50 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от алимшер Посмотреть сообщение
Writeln('Повторить - Enter. Выход - любой символ + Enter.');
Эта строка обязательна???
Можно так сделать:
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
program Project1;
 
var
  S, Sw : String;
  i, j, Len1, Len2, Cnt : Integer;
begin
  Writeln('Задайте строку:');
  Readln(S);
  Writeln('Задайте искомую подстроку:');
  Readln(Sw);
 
  Len1 := Length(S);
  Len2 := Length(Sw);
  Cnt := 0;
  for i := 1 to Len1 - Len2 + 1 do begin
    j := 1;
    while j <= Len2 do begin
      if S[i + j - 1] <> Sw[j] then Break;
      Inc(j);
    end;
    if j > Len2 then Inc(Cnt);
  end;
 
  Writeln('Количество вхождений: ', Cnt);
  Readln;
end.
0
14.01.2011, 21:50
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.01.2011, 21:50
Помогаю со студенческими работами здесь

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

Определить сколько раз встречается заданное слово во введенном тексте
Ввести текст.Определить сколько раз встречается заданное слово.Паскаль

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

Определить сколько раз встречается в файле самое длинное слово
Дан файл. Определить сколько раз встречаетьься в нем самое длинное слово. Добавлено через 22...


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

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

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