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

Выбрать из заданного текста все слова, содержащие заданный символ

07.12.2013, 01:46. Показов 2329. Ответов 3
Метки нет (Все метки)

Выбрать из заданного текста все слова, содержащие заданный символ. Текст - в виде строки или текстового файла или массива символов.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.12.2013, 01:46
Ответы с готовыми решениями:

Выбрать слова содержащие заданный символ
Выбрать из заданного текста все слова, содержащие заданный символ. Текст - в виде строки или...

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

Найти все слова из заданного текста, в которых есть заданный символ
Всем привет. Уже задавал подобный вопрос, но тогда без каких-либо собственных примеров. Теперь вот...

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

3
Модератор
9478 / 4802 / 3210
Регистрация: 17.08.2012
Сообщений: 15,036
07.12.2013, 02:41 2
Откуда берутся эти
Цитата Сообщение от dollar619 Посмотреть сообщение
Текст - в виде строки или текстового файла или массива символов.
Вводятся, генерируются, даны Богом?
0
13091 / 5872 / 1706
Регистрация: 19.09.2009
Сообщений: 8,808
07.12.2013, 16:39 3
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
45
46
47
48
49
program Project1;
 
const
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13]; {Множество разделителей слов.}
var
  S : String;
  Ch : Char;
  i, Len, LenW, Cnt : Integer;
  IsFound : Boolean;
begin
  repeat
    Writeln('Задайте строку:');
    Readln(S);
    Writeln('Задайте символ:');
    Readln(Ch);
 
    Writeln('Перечень слов, которые содержат заданный символ:');
    Len := Length(S); {Длина строки.}
    LenW := 0; {Длина очередного слова.}
    Cnt := 0; {Количество слов, которые содержат заданный символ.}
    IsFound := False; {Обнаружен ли заданный символ в текущем слове?}
    for i := 1 to Len do {Перебор символов строки.}
      {Если символ не является разделителем, значит он принадлежит слову.}
      if not (S[i] in D) then
      begin
        Inc(LenW); {Учитываем очередную букву в длине слова.}
        if S[i] = Ch then {Отслеживаем заданный символ.}
          IsFound := True;
        if (i = Len) or (S[i + 1] in D) then {Отслеживаем конец слова.}
        begin
          {Если в текущем слове заданный символ обнаружен, то распечатываем это слово.}
          if IsFound then
          begin
            Inc(Cnt); {Подсчёт слов, удовлетворяющих условию.}
            if Cnt > 1 then {Печатаем разделитель, если это уже не первое распечатанное слово.}
              Write(', ');
            Write(Copy(S, i - LenW + 1, LenW)); {Распечатка слова.}
          end;
          LenW := 0; {Сброс длины слова.}
          IsFound := False; {Сброс флага.}
        end;
      end;
    Writeln;
    Writeln('Количество слов, которые содержат заданный символ: ', Cnt);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.
1
0 / 0 / 1
Регистрация: 12.10.2013
Сообщений: 7
08.12.2013, 14:11  [ТС] 4
Цитата Сообщение от Mawrat Посмотреть сообщение
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
45
46
47
48
49
program Project1;
 
const
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13]; {Множество разделителей слов.}
var
  S : String;
  Ch : Char;
  i, Len, LenW, Cnt : Integer;
  IsFound : Boolean;
begin
  repeat
    Writeln('Задайте строку:');
    Readln(S);
    Writeln('Задайте символ:');
    Readln(Ch);
 
    Writeln('Перечень слов, которые содержат заданный символ:');
    Len := Length(S); {Длина строки.}
    LenW := 0; {Длина очередного слова.}
    Cnt := 0; {Количество слов, которые содержат заданный символ.}
    IsFound := False; {Обнаружен ли заданный символ в текущем слове?}
    for i := 1 to Len do {Перебор символов строки.}
      {Если символ не является разделителем, значит он принадлежит слову.}
      if not (S[i] in D) then
      begin
        Inc(LenW); {Учитываем очередную букву в длине слова.}
        if S[i] = Ch then {Отслеживаем заданный символ.}
          IsFound := True;
        if (i = Len) or (S[i + 1] in D) then {Отслеживаем конец слова.}
        begin
          {Если в текущем слове заданный символ обнаружен, то распечатываем это слово.}
          if IsFound then
          begin
            Inc(Cnt); {Подсчёт слов, удовлетворяющих условию.}
            if Cnt > 1 then {Печатаем разделитель, если это уже не первое распечатанное слово.}
              Write(', ');
            Write(Copy(S, i - LenW + 1, LenW)); {Распечатка слова.}
          end;
          LenW := 0; {Сброс длины слова.}
          IsFound := False; {Сброс флага.}
        end;
      end;
    Writeln;
    Writeln('Количество слов, которые содержат заданный символ: ', Cnt);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.
Спасибо огромнейшее!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.12.2013, 14:11
Помогаю со студенческими работами здесь

Распечатать все слова, содержащие заданный символ
Уважаемые форумчане, помогите, пожалуйста, написать программу на С++: Задан текст. Распечатать все...

Тема "Строки" Задан текст. Распечатать все слова, содержащие заданный символ.
Нужна програмулька на C++ которая из заданного текста. Распечатает все слова, содержащие заданный...

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

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


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

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

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