Подсчет и вывод слов, начинающихся с одинаковых букв

@GreeFF · Регистрация: 11.07.2013

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

C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
void __fastcall TForm1::Button2Click(TObject *Sender)
{
AnsiString text = Memo1->Text;
AnsiString word;
int j=1,k=1;
char first =text[1];
char last;
for (int i=1;i<text.Length();i++)
 {
 if ((text[i]==' ') && (text[i-1]==first))
 {
   for (j=k;j<i;j++)
   {
    word+=text[j];
   }
    first=text[i+1];
    k=i+1;
    Memo2->Lines->Add(word)     ;
 }
 }
 
}

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

@korep · 27.09.2015, 23:35

не знаю поможет или нет, но у вас first не зависимо от слова равно первому символу всего текста, а не слова

Добавлено через 10 минут

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
for(int i = 1; i <= text.Length(); i++ ){
if(text[i] != ' '){
for(int j = i + 1; ((text[j] != ' ') || (j != text.Length()); j++){
if((text[j+1] == ' ') || (j + 1 == text.Length())){
if(text[i] == text[j]){
for(int k = i; k < j; k++){
word[k - i + 1] = text[k];
}
}
}
}
}
}

добавьте вывод вашего word и все будет работать
здесь правда несколько лишних проверок есть

@GreeFF · 27.09.2015, 23:54 **[ТС]**

Спасибо большое, а почему за предела массива выходит? А в принципе код понял.

@D1973 · 28.09.2015, 06:17

Я бы вот так как-то сделал...

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TStringList *List = new TStringList;
  List->CommaText = Memo1->Text;
  for(int i = 0; i < List->Count; i++)
   {
     String s = List->Strings[i];
     if(s.Length() == 1) continue;
     if(s[1] == s[s.Length()]) Memo2->Lines->Add(s);
   }
  Label1->Caption = "Всего найдено слов: " + IntToStr(Memo2->Lines->Count);
  delete List;
}

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .

@GreeFF 0 / 0 / 0 Регистрация: 11.07.2013 Сообщений: 37
	27.09.2015, 23:54 [ТС]
	Спасибо большое, а почему за предела массива выходит? А в принципе код понял. 0

Подсчет и вывод слов, начинающихся с одинаковых букв

Решение