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

Дана строка, состоящая из слов, разделенных пробелами. Вывести на экран порядковый номер слова минимальной длины и

08.10.2018, 12:59. Показов 5570. Ответов 16
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дана строка, состоящая из слов, разделенных пробелами. Вывести на экран порядковый номер слова минимальной длины и количество символов в этом слове.
C++
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
50
51
52
53
54
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormActivate(TObject *Sender)
{
        Form1->ComboBox1->SetFocus();       
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ComboBox1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
        if (Key == 13)  {
        ComboBox1->Items->Add(ComboBox1->Text);  
 
        ComboBox1->Text="";             
}
        
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ComboBox1Click(TObject *Sender)
{
        int n, i, nst;
        nst = ComboBox1->ItemIndex;             
        String st = ComboBox1->Items->Strings[nst];     
        if (st[1] != ' ')   n = 1;              
            else   n = 0;
        for(i=1; i<st.Length(); i++)            
            if(st[i] == ' ' && st[i+1] != ' ')  n++;
        Edit1->Text = IntToStr(n);              
 
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        ShowMessage("...!");
        Close();
}
//---------------------------------------------------------------------------
Миниатюры
Дана строка, состоящая из слов, разделенных пробелами. Вывести на экран порядковый номер слова минимальной длины и  
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.10.2018, 12:59
Ответы с готовыми решениями:

Дана строка, состоящая из слов разделенных пробелами. Вывести на экран порядковый номер слова максмимальной дл
Подскажите как сделать. Дана строка, состоящая из слов разделенных пробелами. Вывести на экран...

Дана строка, состоящая из слов на английском языке, разделенных пробелами. Вывести на экран эти слова в порядке алфавита
Дана строка, состоящая из слов на английском языке, разделенных пробелами. Вывести на экран эти...

Дана строка символов, состоящая из произвольного текста, слова раз-делены пробелами. Вывести на экран порядковый номер слова, накрывающего k позицию
Помогите с вот такой вот задачкой: Дана строка символов, состоящая из произвольного текста,...

Дана строка состоящая из слов, разделенных запятыми. Определить порядковый номер слова минимальной длины
Дана строка состоящая из слов, разделенных запятыми. Определить порядковый номер слова минимальной...

16
Практикантроп
4829 / 2720 / 527
Регистрация: 23.09.2011
Сообщений: 5,779
08.10.2018, 13:40 2
C++
1
2
3
4
5
6
7
 String stroka = "Романс: Как упоительны России вечера";
    int i,j,cnt,min=99;
    TStringList *LL = new TStringList;
    LL->CommaText = stroka;
    for(i=0;i<LL->Count;++i) if ((j=LL->Strings[i].Length()) < min) { min=j; cnt=i+1; }
    delete LL;
    Label1->Caption = String().sprintf("Самое короткое %d слово из %d букв.",cnt,min);
1
2 / 1 / 0
Регистрация: 07.10.2018
Сообщений: 172
08.10.2018, 13:46  [ТС] 3
Пишет сообщение об ошибке: индест списка за пределами!
0
Практикантроп
4829 / 2720 / 527
Регистрация: 23.09.2011
Сообщений: 5,779
08.10.2018, 14:04 4
Для такого написания, как в моем примере, никаких ошибок быть не должно. Если вы к своей задаче это приспосабливали, - там и ошибку ищите.
1
51 / 39 / 15
Регистрация: 20.09.2018
Сообщений: 163
08.10.2018, 14:05 5
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
int i,shortest_word_len,shortest_word_index;
TStringList * words;
 
words = new TStringList();
words->Delimiter=' ';
words->DelimitedText=source_str;
 
shortest_word_len=words->Strings[0].Length();
shortest_word_index=0;
for(i=1;i<words->Count;i++)
   if(shortest_word_len>words->Strings[i].Length())
   {
      shortest_word_len=words->Strings[i].Length();
      shortest_word_index=i;
   }
delete words;
shortest_word_len и shortest_word_index - то, что тебе нужно
0
2 / 1 / 0
Регистрация: 07.10.2018
Сообщений: 172
08.10.2018, 14:08  [ТС] 6
Неопределенный символ 'source_str'
0
51 / 39 / 15
Регистрация: 20.09.2018
Сообщений: 163
08.10.2018, 14:10 7
Цитата Сообщение от Фазли Посмотреть сообщение
Неопределенный символ 'source_str'
это строка, которую надо анализировать. подставь в коде
0
2 / 1 / 0
Регистрация: 07.10.2018
Сообщений: 172
08.10.2018, 14:10  [ТС] 8
а именно куда?)
0
51 / 39 / 15
Регистрация: 20.09.2018
Сообщений: 163
08.10.2018, 14:12 9
Цитата Сообщение от Фазли Посмотреть сообщение
а именно куда?)
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
void __fastcall TForm1::ComboBox1Click(TObject *Sender)
{
int i,shortest_word_len,shortest_word_index;
TStringList * words;
 
words = new TStringList();
words->Delimiter=' ';
words->DelimitedText=source_str;
 
shortest_word_len=words->Strings[0].Length();
shortest_word_index=0;
for(i=1;i<words->Count;i++)
   if(shortest_word_len>words->Strings[i].Length())
   {
      shortest_word_len=words->Strings[i].Length();
      shortest_word_index=i;
   }
delete words;
 
Edit1-> Text="Индекс="+IntToStr(shortest_word_index)+", длина="+IntToStr(shortest_word_len);
}
0
2 / 1 / 0
Регистрация: 07.10.2018
Сообщений: 172
08.10.2018, 14:15  [ТС] 10
Такая же ошибка.
0
51 / 39 / 15
Регистрация: 20.09.2018
Сообщений: 163
08.10.2018, 14:16 11
Лучший ответ Сообщение было отмечено Фазли как решение

Решение

а, да, пробуй
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
void __fastcall TForm1::ComboBox1Click(TObject *Sender)
{
int i,shortest_word_len,shortest_word_index;
TStringList * words;
 
words = new TStringList();
words->Delimiter=' ';
words->DelimitedText=ComboBox1->Text;
 
shortest_word_len=words->Strings[0].Length();
shortest_word_index=0;
for(i=1;i<words->Count;i++)
   if(shortest_word_len>words->Strings[i].Length())
   {
      shortest_word_len=words->Strings[i].Length();
      shortest_word_index=i;
   }
delete words;
 
Edit1-> Text="Индекс="+IntToStr(shortest_word_index)+", длина="+IntToStr(shortest_word_len);
}
0
2 / 1 / 0
Регистрация: 07.10.2018
Сообщений: 172
08.10.2018, 14:19  [ТС] 12
теперь такая.
Миниатюры
Дана строка, состоящая из слов, разделенных пробелами. Вывести на экран порядковый номер слова минимальной длины и  
0
51 / 39 / 15
Регистрация: 20.09.2018
Сообщений: 163
08.10.2018, 14:27 13
Этих функций в коде выше вообще нет. Подозреваю они объявлены у тебя в .h-файле.
Если да, то их надо оттуда удалить.

Добавлено через 2 минуты
все таки этот код надо вставить в OnChange:

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
int i,shortest_word_len,shortest_word_index;
TStringList * words;
 
words = new TStringList();
words->Delimiter=' ';
words->DelimitedText=ComboBox1->Text;
 
shortest_word_len=words->Strings[0].Length();
shortest_word_index=0;
for(i=1;i<words->Count;i++)
   if(shortest_word_len>words->Strings[i].Length())
   {
      shortest_word_len=words->Strings[i].Length();
      shortest_word_index=i;
   }
delete words;
 
Edit1-> Text="Индекс="+IntToStr(shortest_word_index)+", длина="+IntToStr(shortest_word_len);
}
0
2 / 1 / 0
Регистрация: 07.10.2018
Сообщений: 172
08.10.2018, 14:27  [ТС] 14
так и должно быть по заданию?
Миниатюры
Дана строка, состоящая из слов, разделенных пробелами. Вывести на экран порядковый номер слова минимальной длины и  
0
51 / 39 / 15
Регистрация: 20.09.2018
Сообщений: 163
08.10.2018, 14:39 15
ну наверно. ты просил индекс самого короткого слова и его длину.
индекс слова "по" равен 1 (т.к. нумерация с нуля), длина равна 2.
Если индекс нужен с единицы, то замени:
C++
1
Edit1-> Text="Индекс="+IntToStr(shortest_word_index+1)+", длина="+IntToStr(shortest_word_len);
0
2 / 1 / 0
Регистрация: 07.10.2018
Сообщений: 172
08.10.2018, 14:40  [ТС] 16
Да в принципе без разницы насчет индекса все и так работает правильно, спасибо за помощь!!!
0
51 / 39 / 15
Регистрация: 20.09.2018
Сообщений: 163
08.10.2018, 14:40 17
Обращайтесь )
0
08.10.2018, 14:40
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.10.2018, 14:40
Помогаю со студенческими работами здесь

Дана строка символов, состоящая из произвольного текста, слова разделены пробелами. Вывести на экран порядковый номер сл
Дана строка символов, состоящая из произвольного текста, слова разделены пробелами. Вывести на...

Дана строка. Вывести на экран порядковый номер слова минимальной длины и количество символов в этом слове.
Помогите в решении, пожалуйста. Дана строка символов, состоящая из произвольного текста, слова...

Дана строка, состоящая из слов, разделенных пробелами. Вывести слова этой строки, которые отличны от последнего слова
ана строка, состоящая из слов, разделенных пробелами. Вывести слова этой строки, которые отличны от...

Дана строка текста, состоящая из слов и чисел, разделенных пробелами, вывести самые короткие слова строки
Дана строка текста, состоящая из слов и чисел, разделенных пробелами, вывести самые короткие слова...

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

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


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

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

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