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

Дан текст. Удалить все слова, которые начинаются на одну и ту же букву

06.05.2019, 23:01. Показов 871. Ответов 1
Метки нет (Все метки)

Дан текст. Удалить все слова, которые начинаются на одну и ту же букву.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.05.2019, 23:01
Ответы с готовыми решениями:

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

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

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

Вывести на экран слова, которые начинаются и заканчиваются на одну и ту же букву
дан текст,слова в котором разделенны хотя бы одним пробелом. Вывести на экран слова, которые...

1
Эксперт Pascal/Delphi
6803 / 4562 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
09.05.2019, 09:31 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
31
32
var
  s, s1: string;
  i, k: integer;
 
begin
  write('Введите строку: ');
  readln(s);
  //s := 'мама папа дед лес поп';
  writeln(s);
  s := s + ' ';
  i := 0;
  k := 1;
  while i < Length(s) do
  begin
    inc(i);
    if not (s[i] in [' ', ',', '-']) then 
      s1 := s1 + s[i]
       else 
    begin
      if s1[1] = s1[Length(s1)] then 
      begin
        //    writeln(s1);
        delete(s, k, Length(s1) + 1);
        //    writeln(s);
      end;  
      inc(k, Length(s1) + 1);
      s1 := '';
      //writeln(k);
    end;
  end;
  writeln(s);
end.
Добавлено через 35 секунд
Цитата Сообщение от pashasos3 Посмотреть сообщение
начинаются на одну и ту же букву.
Наверное, начинаются и заканчиваются?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.05.2019, 09:31
Помогаю со студенческими работами здесь

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

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

Вывести все слова, которые содержат хотя бы одну букву е
Вывести все слова, которые содержат хотя бы одну букву е

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


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

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

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