Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Turbo Pascal] Определение гласной в слоге

Автор: Hellride 5.12.2009, 17:54

Задание 3
Дано слово bз трёх слогов. Определять, имеется ли во втором слоге гласная "О".

Автор: Hellride 8.12.2009, 20:26

народ хэлп

Автор: ТоляМБА 9.12.2009, 11:30

Если считать что в одном слоге одна гласная, то:

Код

program a123;
var
   s:string;
   l,i:integer;
   b:byte;
begin
     readln(s);
     l:=length(s);
     b:=0;
     for i:=1 to l do
     begin
         if (b=1) and (s[i]='o') then
         begin
              b:=2;
              break;
         end;
         if (s[i] in ['e','y','u','i','o','a']) and (b=1) then break;
         if s[i] in ['e','y','u','i','o','a'] then b:=1;
     end;
     if b=2 then writeln('yes') else writeln('no');
readln;
end.