Написать программу в Pascal. Из предложения вывести слова с заданным количеством слогов.

Question

Написать программу в Pascal.

Из предложения вывести слова с заданным количеством слогов.

Answer 1

Количество слогов считаем по количеству гласных букв в слове.

Program pr;
uses crt;

var str,s: string; 
a,i,j,len,k,kslog: byte;      

Begin 
Writeln('Введите предложение'); 
readln(str);   
Writeln('Введите кол-во слогов'); 
readln(k);   
Writeln('Слова с ',k,' слогами:'); 
Writeln;   

len:=length(str); 
a:=0; 
kslog:=0; 

for i:=1 to len do     
            Begin           
                   if (str[i] = ' ')   then         
                        Begin         
                           s:=copy(str,i+1,a);                   
                 
                           for j:=1 to length(s) do           
                           Begin             
                           if s[j] in ['А','О','У','Э','Ы','Я','Ё','Ю','Е','И','а','о','у','э','ы','я','ё','ю','е','и'] then                                                    inc(kslog);           
                           end;                           
                   if (k=kslog) then Writeln(s);               
                   kslog:=0;               
                   a:=0;         
                      end         
                   else  a:=a+1;     
             end;           

Writeln;     
Writeln('Для завершения программы нажмите Enter');     
readln;      
end.