Функция подсчёта кол-ва слогов в слове

[Xeon332]

почти прогу добил. осталось 2 функции (подсчета количества слогов в слове и замена в строках пробелов на символ подчеркивания)

мыслей нет вобще как эти функции в делфи реализовать...

Вот функция по подсчёту кол-ва слов в строкее

function kolvo_slov (s: string): integer;    
var
  i, count, n: integer;
begin
  n:=length(s);
  i:=1;
  count := 0;
  repeat
    while (s[i]=' ')and(i<=n) do
      i:=i+1;
    if (s[i]<>' ')and(i<=n) then begin
      count := count+1;
      while (s[i]<>' ')and(i<=n) do
        i:=i+1;
    end;
  until i>n;
  kolvo_slov  := count;
end;

как можно её изменить или необходимо новую функцию писать? подскажите по этим 2 функциям... (как их реализовать)

[Роман Радер]

Открою секрет. Слогов в слове столько-же, сколько и гласных букв. Просто их посчитайте.
А замена пробелов - дело техники. Циклом по всем символам проверяете на пробелы, если да - то заменяете на "_"

[maladoy]

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

program Slogi;
  uses crt;
var
 sl,sl1:string[255];
 k,i,n,j:integer;
begin
 clrscr;
 write(' Введите предложение  ');
 readln(sl);
 k:=0;
 n:=length(sl);
 sl1:='ауыеоэюияё';
for i:=1 to n do
for j:=1 to 10 do
begin
if (sl[i]=sl1[j]) then
 k:=k+1;
end;
 writeln('  Слогов  ',  k);
 readln;
end.

[Xeon332]

благодарю. со слогами оказалось всё просто)))

[Stilet]

Слогов в слове столько-же, сколько и гласных букв

Вопрос на засыпку - Сколько слогов с в слове "Регистрация"?

[Пепел Феникса]

Ре-гист-ра-ци-я

[Stilet]

Лана. Убедил.

[maladoy]

//функция  замены пробела на '_'
function zamena(var s:string):string;
  var i:integer;
      st:string;
begin
  st:=''
  for i:= 1 to length(s) do
    begin
	  if s[i]:=' ' then st:=st+'_'
      else st:=st+s[i];
    end;
  result:=st;
end;

[Toxa]

Роман Радер, а пробелы заменить можно проще, stringreplace(text,' ','_',[rfReplaceAll])