Программа о "слове"

[Dvoishnik]

http://pascal.guti.ru/string.html
Почитай тут все просто

[Serge_Bliznykov]

Serge_Bliznykov, среда делфи!можешь помочь?как выглядит программа ?

ну Вы же сами в первом своём сообщении расписали, как она выглядит.
Запускаете Delphi, кидаете нужные компоненты на форму.
Кидаете кнопку.
по кнопке двойной щелчок, в открывшемся окне пишете примерно такой код:

CONST
  RusGlas : set of Char = ['а', 'у', 'ы', 'о', 'э', 'и', 'я', 'ю', 'ё', 'е'];
var  s : string;
   LenS : integer;
begin
    s := Trim(Edit1.Text); {в Edit1 задаётся исходное слово}  
    LenS := Length(s);
    if (length(s)<3) or (Not odd(LenS) ) then ShowMessage('Слово не подходит!')
    else 
       if  Not (AnsiUpperCase(s[ LenS div 2 + 1]) in RusGlas) then
                    ShowMessage('Слово не подходит - в центре не гласная буква!')
       else begin
          Label1.Caption := Copy(s,1, LenS div 2);
          Label2.Caption := Copy(s, (LenS div 2)+2, LenS div 2);
       end;

begin
      
    end;

[Vard]

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

ну Вы же сами в первом своём сообщении расписали, как она выглядит.

это я писал =(

[Serge_Bliznykov]

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

это я писал =(

не понял... Это Вы о чём?!

я вот об этом:

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

Помогите написать программу!! сложное слово состоит из 2х частей одинаковой длины и соединительной гласной.найдите обе части этого слова.
Форма выглядит примерно так: поле для ввода слова, кнопка выводящая на экран обе части., и еще возможно лейбл. например вводим слово "паровоз". щелкаем кнопку, выводит на экран "пар" "воз".Вот как то так!помогите с написанием программного кода!!

[Vitalya_1993]

Serge_Bliznykov, программа ужасно ругается
if Not (AnsiUpperCase(s[ LenS div 2 + 1]) in RusGlas) then перед скобкрй ошибку выдает

[Serge_Bliznykov]

ну я же сказал - ПРИМЕРНО!

попробуйте такой код:

procedure TForm1.Button1Click(Sender: TObject);
CONST
  RusGlas : set of Char = ['а', 'у', 'ы', 'о', 'э', 'и', 'я', 'ю', 'ё', 'е'];
var  s : string;
   LenS : integer;
begin
    s := Trim(Edit1.Text); {в Edit1 задаётся исходное слово}
    LenS := Length(s);
    if (length(s)<3) or (Not odd(LenS) ) then ShowMessage('Слово не подходит!')
    else
       if  Not (AnsiLowerCase(s[ (LenS div 2) + 1])[1] in RusGlas) then
                    ShowMessage('Слово не подходит - в центре не гласная буква!')
       else begin
          Label1.Caption := Copy(s,1, LenS div 2);
          Label2.Caption := Copy(s, (LenS div 2)+2, LenS div 2);
       end;
end;

[Vitalya_1993]

Serge_Bliznykov после нажатия кнопки пуск перескакивает указатель на строку после end(см рисунок)

[Vitalya_1993]

Помогите сделать!!

[Mad_Cat]

end.

дописать не пробовали?