Нужна помощь с алгоритмом расстановки ударения в предложении.

[Gauss]

Всем привет! Подскажите пожалуйста какой нить алгоритм по которому в веденном предложении можно было б реализовать автоматическую расстановку ударений.
Я сделал процедуру с помошью которой можно ставить после кажого гласного в словах знак ("), который показывает ударение после гласной. Но таким образом, он ставит этот знак после всех гласных, а мне нужно чтобы этот знак был только в последнем слоге (потому что в нашем языке, ударение на многих словах падает на последний слог).
Как можно написать условие чтоб программа ставила знак именно после последней гласной в каком нибудь слове?

[prizrak1390]

Считать количество гласных в слове и ставить после последней (или предпоследней)знак "

[Stilet]

Считать количество гласных в слове и ставить после последней (или предпоследней)знак "

Да ну?
Поставь правильно ударение в слове "Зарево".

[mutabor]

Стилет, читай внимательней, в "его языке", то есть в азейбарджанском. А что мешает поставить знак * после последней буквы О?

[Gauss]

Считать количество гласных в слове и ставить после последней (или предпоследней)знак "

Да, это верно.
Но у меня как то нехорошо получается, ммммм... немогу ясно выразить мысль.
Значит так, у меня же там символы в виде чаров идут от букв нашего языка, и мне надо выбрать коды тех символов которые отвечают за гласные, и в виде констант их в самом начале описать, а там вот у меня ошибка и выходит((
Коды идут как WideChar и он при их описании ошибку дает.

[mutabor]

Давай код, будем смотреть.

[Stilet]

"его языке"

А-а-а. Дык тут нужно в любом случае правилам машину научить

азейбарджанском

азербайджанском

[Gauss]

Это код по которому наши буквы отображаются в международном фонетическом алфавите (я принял 1 букву как за отдельную фонему, короче в общем случе совпадает всё).

 {Хочится тут ввиде констан отобразить отдельно наши гласные, типа этого}
Const
Glasn: Set of WideChar=[#252,#101,#117,#105,#111,#246,#97,#305,#601];{но так не получается}
{я хочу их тут объявить, а потом сказать что типа если в конце слова какой то из них встречается то ударение на нем должно быть}
var
  DM: TDM;
implementation

uses MainUnit;

{$R *.dfm}

function TDM.sr(s:WideChar): string;
begin
  case s of
 {Коды для азербайдж. букв с учетом компонентов TNT-Unicode}

 {Малые буквы}
#113: sr:='g';
#252: sr:='y';
#101: sr:='e';
#114: sr:='r';
#116: sr:='t';
#121: sr:='j';
#117: sr:='u';
#105: sr:='i';
#111: sr:='o';
#112: sr:='p';
#246: sr:='2';
#287: sr:='G';
#97: sr:='a';
#115: sr:='s';
#100: sr:='d';
#102: sr:='f';
#103: sr:='gj';
#104: sr:='h';
#106: sr:='Z';
#107: sr:='k';
#108: sr:='l';
#305: sr:='1';
#601: sr:='@';
#122: sr:='z';
#120: sr:='x';
#99: sr:='dZ';
#118: sr:='v';
#98: sr:='b';
#110: sr:='n';
#109: sr:='m';
#231: sr:='tS';
#351: sr:='S';

 {Большие буквы}
#81: sr:='g|';
#220: sr:='y|';
#69: sr:='e|';
#82: sr:='r|';
#84: sr:='t|';
#89: sr:='j|';
#85: sr:='u|';
#304: sr:='i|';
#79: sr:='o|';
#80: sr:='p|';
#214: sr:='2|';
#286: sr:='G|';
#65: sr:='a|';
#83: sr:='s|';
#68: sr:='d|';
#70: sr:='f|';
#71: sr:='gj|';
#72: sr:='h|';
#74: sr:='Z|';
#75: sr:='k|';
#76: sr:='l|';
#73: sr:='1|';
#399: sr:='@|';
#90: sr:='z|';
#88: sr:='x|';
#67: sr:='dZ|';
#86: sr:='v|';
#66: sr:='b|';
#78: sr:='n|';
#77: sr:='m|';
#199: sr:='tS|';
#350: sr:='S|';

 {Знаки препинания}
#46: sr:='.';
#44: sr:=',';
#33: sr:='!';
#63: sr:='?';
#59: sr:=';';
#58: sr:=':';
#34: sr:='"';
#42: sr:='*';
     else sr:=s;
  end;
end;
procedure TDM.Sampa;
var
 temp: wideString;
    i: byte;
begin
    temp := MainForm.memo1.Text;
  for i:=1 to length(temp) do
    begin
   MainForm.Memo2.Text := MainForm.Memo2.Text + sr(temp[i]);
    end;
end;

[mutabor]

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

азербайджанском

блин, так и знал, что неправильно напишу )

Glasn: Set of WideChar=[#252,#101,#117,#105,#111,#246,#97,# 305,#601];{но так не получается}

Я бы вместо множества массив сделал.

Знак # дает понять компилятору что это строка, в массиве он не нужен.

[B_N]

Gauss, а не проще Вам вместо этого страшного case'а объявить несколько массивов с флажками - для гласных, для согласных, для строк, которые Вы в case пребираете. Вам повезло, насколько я понял, самый большой индекс - всего 601.