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

@Sherkan · Регистрация: 23.12.2014

Студворк — интернет-сервис помощи студентам

Builder xe7
Нужно написать программу, которая вместо удвоенных букв пишет одну.
Например: мама мыла Жанну в ванной, а должно получиться : мама мыла Жану в ваной.

@nick42 · 26.11.2015, 16:29

C++
1
2
3
    String S = "мама мыла Жанну в ванной"; 
    for(int i=S.Length();i>1;i--) if(S[i]==S[i-1]) S.Delete(i,1); 
    Label1->Caption = S;

@volvo · 26.11.2015, 20:59

C++
1
2
3
4
#include <System.RegularExpressions.hpp>
 
String S = L"мама мыла Жанну в ванной";
S = TRegEx::Replace(S, L"([^\\s])\\1", L"\\1");

@Sherkan · 27.11.2015, 11:22 **[ТС]**

А если мне нужно общее решение? Допустим я набираю текст в RichEdit1, а правильный текст по кнопке Button1 выходит в RichEdit2., как мне это сделать?

@Sasha · 27.11.2015, 11:32

C++
1
2
3
4
void __fastcall TForm1::Button1Click(TObject *Sender)
{
RichEdit2->Text = TRegEx::Replace(RichEdit1->Text, L"([^\\s])\\1", L"\\1");
}

@nick42 · 27.11.2015, 11:33

Что значит "общее решение"? А RichEdit1->Text что же, не String по вашему?

@Sherkan · 27.11.2015, 11:44 **[ТС]**

Значит решение не только для заданного предложения, а для всех случаев

@nick42 · 27.11.2015, 11:49

Сообщение от Sherkan

Значит решение не только для заданного предложения, а для всех случаев

Вас послушать, так получается, что если я "маму" заменю на "папу", то Жанна так и останется с двумя н и немытая... .

@Sherkan · 27.11.2015, 12:20 **[ТС]**

Да препод задания задаёт странные ппц) не мог ничего лучше придумать)

@Почтальон · 27.11.2015, 12:39

Сообщение от Sherkan

Да препод задания задаёт странные ппц) не мог ничего лучше придумать)

Ну так дайте преподу ссылочку на форум, что мучаетесь

)), пусть уж нам вопросы задает, и вы сломаным телефоном не будете

@Sherkan · 27.11.2015, 13:55 **[ТС]**

Sasha, а не подскажешь какие библиотеки подключил?

@Sasha · 27.11.2015, 13:56

C++
1
#include <System.RegularExpressions.hpp>

@Sherkan · 30.11.2015, 00:09 **[ТС]**

nick42, А если мне нужно общее решение? Допустим я набираю текст в RichEdit1, а правильный текст по кнопке Button1 выходит в RichEdit2., как мне это сделать?

@Sasha · 30.11.2015, 00:22

Сообщение от Sherkan

nick42, А если мне нужно общее решение? Допустим я набираю текст в RichEdit1, а правильный текст по кнопке Button1 выходит в RichEdit2., как мне это сделать?

C++
1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   RichEdit2->Text = RichEdit1->Text;
   for(int i= RichEdit2->Text.Length();i>1;i--)
   {
    if(RichEdit2->Text[i]==RichEdit2->Text[i-1])
    {
      RichEdit2->Text = RichEdit2->Text.Delete(i,1);
    }
   }
 
}

@volvo · 30.11.2015, 01:13

Сообщение от Sherkan

А если мне нужно общее решение?

А подумать?

C++
1
2
3
4
5
6
7
8
9
10
11
String __fastcall RemoveDups(String s)
{
    return TRegEx::Replace(s, L"([^\\s])\\1", L"\\1");
}
 
// и вызывай:
RichEdit2->Text = RemoveDups(RichEdit1->Text);
// или
Memo2->Text = RemoveDups(Memo1->Text);
// или
RichEdit1->Text = RemoveDups(L"мама мыла Жанну в ванной");

Куда уж более общее решение-то?

@Sasha · 30.11.2015, 01:17

volvo, странно я же Sherkanу написал в 5 посте, неужели он не понял, что это для общего случая...........

@Sherkan · 30.11.2015, 01:30 **[ТС]**

Sasha, твой синтаксис понятнее и проще для меня)

@volvo · 30.11.2015, 01:41

Сообщение от Sherkan

твой синтаксис понятнее и проще для меня)

И плевать, что он дороже обходится процессору, правда? Тогда зачем используешь

Сообщение от Sherkan

Builder xe7

? Возвращайся на 5/6 (без XE, просто Builder 5 или Builder 6) и пиши, там это единственно доступный синтаксис. Зачем покупать новый Феррари и сажать за руль слепого водителя? Это именно то, что ты сейчас делаешь.

@nick42 · 30.11.2015, 09:13

Сообщение от volvo

И плевать, что он дороже обходится процессору

Вы в этом действительно уверены и можете обосновать? Что, регулярка использует микропрограммы какого-нибудь математического или графического сопроцессора N-го поколения? Я думаю, - такие же циклы, что и написанные программером вручную, только созданные профессионалами Эмбаркадеро и вбитые в их новые библиотеки. Запись выглядит на пару слов короче, и код на пару сотен килобайт длиннее, но при теперешней мощи ЭВМ и её памяти эти лишние килобайты - сущий пустяк! верно?

@Почтальон · 30.11.2015, 09:48

Не по теме:

Сообщение от nick42

но при теперешней мощи ЭВМ и её памяти эти лишние килобайты - сущий пустяк! верно?

Т.е. про оптимизацию кода можно теперь забыть :) ?

Новые блоги и статьи Все статьи Все блоги /
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды "Заполнить" и "Очистить" на форме документа Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных выбран регистр накопления, в. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip

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

Решение

Решение

Решение

@Sherkan 0 / 0 / 0 Регистрация: 23.12.2014 Сообщений: 8

	Заменить удвоенную букву в каждом слове предложения одной 26.11.2015, 14:36. Показов 1681. Ответов 20 Метки нет (Все метки) Builder xe7 Нужно написать программу, которая вместо удвоенных букв пишет одну. Например: мама мыла Жанну в ванной, а должно получиться : мама мыла Жану в ваной. 0

@Sherkan 0 / 0 / 0 Регистрация: 23.12.2014 Сообщений: 8
	27.11.2015, 11:22 [ТС]
	А если мне нужно общее решение? Допустим я набираю текст в RichEdit1, а правильный текст по кнопке Button1 выходит в RichEdit2., как мне это сделать? 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	27.11.2015, 11:33
	Что значит "общее решение"? А RichEdit1->Text что же, не String по вашему? 0

@Sherkan 0 / 0 / 0 Регистрация: 23.12.2014 Сообщений: 8
	27.11.2015, 11:44 [ТС]
	Значит решение не только для заданного предложения, а для всех случаев 0

@Sherkan 0 / 0 / 0 Регистрация: 23.12.2014 Сообщений: 8
	27.11.2015, 12:20 [ТС]
	Да препод задания задаёт странные ппц) не мог ничего лучше придумать) 0

@Sherkan 0 / 0 / 0 Регистрация: 23.12.2014 Сообщений: 8
	27.11.2015, 13:55 [ТС]
	Sasha, а не подскажешь какие библиотеки подключил? 0

@Sherkan 0 / 0 / 0 Регистрация: 23.12.2014 Сообщений: 8
	30.11.2015, 00:09 [ТС]
	nick42, А если мне нужно общее решение? Допустим я набираю текст в RichEdit1, а правильный текст по кнопке Button1 выходит в RichEdit2., как мне это сделать? 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	30.11.2015, 01:17
	volvo, странно я же Sherkanу написал в 5 посте, неужели он не понял, что это для общего случая........... 0

@Sherkan 0 / 0 / 0 Регистрация: 23.12.2014 Сообщений: 8
	30.11.2015, 01:30 [ТС]
	Sasha, твой синтаксис понятнее и проще для меня) 0