определять гласные и согласные в тексте и добавлять к ним текст "се" и выводить в Мемо ( Delphi 7)

[Streletz]

мне нужно помочь в том как написать код к тему алгоритму

Простите, что Вы имеете ввиду. У Вас есть собственные наработки по теме?

[kiberzem]

Подскажите пожалуйста, как можно в Delphi 7 сделать программу, которая будет определять гласные и согласные в тексте и добавлять к ним текст "се" и выводить в Мемо. Нужно сделать подкачку с файла блокнота и форму ввода текста, кнопку генератор, что переводит текст и выводит в мемо с "се"? Буду очень благодарен!

[Streletz]

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

[kiberzem]

Уважаемые программисты! Друзья! Знатоки! Специалисты !

Помогите пожалуйста студенту! Только начал учить язык, полный "0" !

Кто может объяснять на пальцах что за чем делать, с примерами, решения такой задачи:
1) Припустим есть текст который я ввожу в форму ввода (edt1).
2) Нужно сделать так чтобы к негласным буквам в конце слова добавило сочетанные "се".
3) Вывело результат при нажатии на кнопку в Memo.

Буду очень благодарен!

[Vanta11a]

edited: Учиться, учиться и учиться! (с)

[Serge_Bliznykov]

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

Уважаемые программисты! Друзья! Знатоки! Специалисты !

Помогите пожалуйста студенту! Только начал учить язык, полный "0" !

ну, стремление что-то выучить весьма похвально. Дорогу осилит идущий.
Только странное у Вас желание учить язык, прося других сделать за Вас.
Если Вы попросите Васю, который умеет плавать, проплыть за Вас дистанцию в бассейне, Вы от этого плавать не научитесь.
Самому надо пытаться что-то сделать!

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

Кто может объяснять на пальцах что за чем делать, с примерами, решения такой задачи:

Вы не рассматривали вариант взять какую-нибудь книжку (начального уровня по Delphi) и почитать. Создать форму и набросать на неё нужные контролы (кнопки, эдиты, лейблы, мемо), это совершенно несложно и не требует никаких особенных знаний и умений.
Начните с этого.

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

1) Припустим есть текст который я ввожу в форму ввода (edt1).

Так. Форму уже создали? На неё edt1 бросили? Т.е. это пункт уже выполнен?

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

2) Нужно сделать так чтобы к негласным буквам в конце слова добавило сочетанные "се".

В общем случае это должно выглядеть так:

забрать текст из edt1.Text в строковую переменную (это не обязательно, edt1.Text, по сути, тоже строка, но работать со строкой удобнее, да и не везде метод, который возвращает текст можно использовать, а строку - в любых процедурах обработки)
Определится, с тем, что такое "слова" в данном конкретном случае.
Например, во фразе
буга-га-га[2га]3рок&ролл_ага рога:нога вот!
сколько слов (и какие они).
какие группы символов считаются словом, а какие - разделителями слов.

Далее, по поводу негласных букв в конце слова. Это, скорее всего имеются в виду СОГЛАСНЫЕ буквы ?
тогда сразу вопрос - на каком языке фраза, на русском?
для русского языка гласные буквы это:

const
  RusGlas : set of Char = ['а', 'у', 'ы', 'о', 'э', 'и', 'я', 'ю', 'ё', 'е',
                           'А', 'У', 'Ы', 'О', 'Э', 'И', 'Я', 'Ю', 'Ё', 'Е' ];

соответственно, согласные это русские буквы, которые не входят в данном множество.

теперь по поводу расположения согласных букв "в конце слова".
Рискну предположить, что имеется в виду, что обработать нужно слова, которые ЗАКАНЧИВАЮТСЯ на согласную букву, т.е. последняя буква слова является согласной.

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

т.е. вся программа будет выглядеть так:

обнулить выходное мемо.
если входная строка пуста - выход
записать в выходную переменную первый символ исходной строки.
цикл от 2-го символа исходной строки до последнего 
  если текущий символ строки является разделителем(не буква), то
     если предыдущий символ исходной строки является согласной буквой - вывести в выходную строку строку 'се'
  вывести в выходную строку текущий символ исходной строки
конец цикла
в мемо вывести выходную строку.

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

3) Вывело результат при нажатии на кнопку в Memo.

ну, это совсем просто.
Пусть, например, результат обработки находится в строке sOut.
Тогда

  Memo.Append( sOut );

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

Буду очень благодарен!

Всегда пожалуйста, обращайтесь!

[syrj]

procedure TForm2.Button2Click(Sender: TObject);
var
i: integer;
s:String;
c: char;
begin
Memo1.Clear;
if Edit1.Text<>' 'then
s := Edit1.Text;
i:=length(Edit1.Text);
c := s[i]; //с теперь равно 'c' (последнему символу в строке)

if c in
['ц', 'к', 'н', 'г',
'ш', 'щ', 'з', 'х',
'ф', 'в', 'п', 'р',
'л', 'д', 'ж', 'ч',
'с', 'м', 'т', 'б']
then
Memo1.Text:=Edit1.Text + 'се ' else Memo1.Text:=Edit1.Text;
end;