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

Заменить в предложении те слова, которые начинаются со строчной буквы w

28.12.2017, 17:11. Показов 1535. Ответов 5
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Заменить в предложении те слова, которые начинаются со строчной буквы w, словом ZAMENA. + надо что бы программа удаляла двойные пробелы! То есть из" weggj qweniin werwer gfg" получалось "ZAMENA qweniin ZAMENA gfg"
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.12.2017, 17:11
Ответы с готовыми решениями:

Заменить слова, которые начинаются на букву ” f ” словом “winter”.
Ребят, помоги ОЧЕНЬ ОЧЕНЬ нужно ... Дано тескт. Заменить слова, которые начинаются на букву ”...

Задан текстовый файл f. Переписать в новый файл g все слова, которые начинаются с буквы к
Задан текстовый файл f. Переписать в новый файл g все слова, которые начинаются с буквы к.

В предложении S1 найдите все слова, которые есть в предложении S2.
9. В предложении S1 найдите все слова, которые есть в предложении S2. помогите пожалуйста.

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

5
1755 / 1347 / 1407
Регистрация: 28.10.2016
Сообщений: 4,267
28.12.2017, 17:32 2
Pascal
1
2
3
begin
  writeln(ReadlnString('Введите текст:').ToWords.Select(v -> v[1] = 'w' ? 'ZAMENA' : v).JoinIntoString(' '));
end.
0
0 / 0 / 1
Регистрация: 19.10.2017
Сообщений: 38
28.12.2017, 17:41  [ТС] 3
А можно как то более по проще, с предвидевший код что то добавить/изменить.
0
1755 / 1347 / 1407
Регистрация: 28.10.2016
Сообщений: 4,267
28.12.2017, 17:58 4
Вот: Символы и строки
0
0 / 0 / 1
Регистрация: 19.10.2017
Сообщений: 38
28.12.2017, 18:09  [ТС] 5
Если в эти программы ввести несколько пробелов, то они ломаються
0
1755 / 1347 / 1407
Регистрация: 28.10.2016
Сообщений: 4,267
28.12.2017, 18:52 6
Лучший ответ Сообщение было отмечено Иван2221 как решение

Решение

Вот так достаточно просто?
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
begin
  var s := ReadlnString('Строка:');var i := 1;
  while i < s.Length do
    if (s[i] = ' ') and (s[i + 1] = ' ') then delete(s, i, 1)
    else inc(i);
  if s[s.Length] = ' ' then delete(s, s.Length, 1);
  if s[1] = ' ' then delete(s, 1, 1);
  if s[1] = 'w' then begin
    var (j, k) := (1, 0);
    while (s[j] <> ' ') and (i < s.Length) do begin
      inc(j); inc(k);
    end;
    delete(s, 1, k + 1);
    insert('ZAMENA', s, 1);
  end;
  i := 2;
  while i < s.Length do begin
    if (s[i] = 'w') and (s[i - 1] = ' ') then begin
      var (j, k) := (i, 0);
      while (s[j] <> ' ') and (j < s.Length) do begin
        inc(j); inc(k);
      end;
      delete(s, i, k + 2);
      insert('ZAMENA ', s, i);
    end else inc(i);
  end;
  writeln(s);
end.
1
28.12.2017, 18:52
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.12.2017, 18:52
Помогаю со студенческими работами здесь

Заменить слова в предложении, которые начинаются с того же символа что и заданное слово
Помогите, пожалуйста с задачей (очень надо) Дано предложение и слово. Заменить слова в...

Найти в предложении слова, которые начинаются на одну и ту же букву
Тема: Строки. Множества. 3.1. Найти в предложении слова, которые начинаются на одну и ту же букву.

Как в предложении найти слова, которые начинаются и оканчиваются одной и той же буквой
в предложении найти слова, которые начинаются и оканчиваются одной и той же буквой. например:...

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


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

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

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