1. Уважаемые участники и гости, 19 октября codeby будет работать в режиме "Только чтение". Регистрация новых участников будет закрыта. 20 октября портал продолжит работу в прежнем режиме.

Работа С Символьной Информацией

Тема в разделе "C/C++/C#", создана пользователем -, 20 май 2012.

  1. Гость

    Репутация:
    0
    Доброго времени суток) Я полгода назад перешла с С++ на VBA и сейчас не могу решить простейшую задачку(( : "Заданы 2 строки символов. Определить самое длинное слово и что это за слово" Текст надо написать на С++. Заранее спасибо))

    Вот то, что я сделала. Помогите исправить ошибку)) :

    void __fastcall TForm1::Button1Click(TObject *Sender)
    {AnsiString str1, str2, str3, str4;
    int i, n, j, m;
    str1=Edit1->Text;
    str2=Edit2->Text;
    n=0;
    m=0;
    i=str1.Pos(" ");
    while (i!=0)
    {str3=str1.SubString(1,i-1);
    n=str3.Length();}
    if(str3.Length() > n)
    n=str3.Length();
    j=str2.Pos(" ");
    while (j!=0)
    {str4=str2.SubString(1,j-1);
    m=str4.Length();}
    if(str4.Length() > m)
    m=str4.Length();
    if (n>m)
    Label1->Caption=str3+" "+"n="+IntToStr(n);
    if (n<m)
    Label1->Caption=str4+" "+"m="+IntToStr(m);
    else
    Label1->Caption="равные";
     
Загрузка...

Поделиться этой страницей