Определить, чередуются ли в строке гласные и согласные буквы

[Waise]

Дана строка St, состоящая из латинских букв.
Определить, чередуются ли в этой строке гласные и согласные буквы.
Пример: beginapenalanalog.

Помогите пожалуйста,строки вообще не знаю((

[Bugrimov]

Язык программирования какой?

[Вадим Мошев]

Алгоритм:

сначала предположим, что буквы чередуются, в переменную flag запишем true;
Идём по строке, начиная с первого до ПРЕДПОСЛЕДНЕГО
	Проверяем условие: ((ЕСЛИ ТЕКУЩИЙ СИМВОЛ ПРИНАДЛЕЖИТ МНОЖЕСТВУ ГЛАСНЫХ БУКВ) И (СЛЕДУЮЩИМ ЗА НИМ - МНОЖЕСТВУ СОГЛАСНЫХ))
			ИЛИ наоборот ((ЕСЛИ ТЕКУЩИЙ СИМВОЛ ПРИНАДЛЕЖИТ МНОЖЕСТВУ СОГЛАСНЫХ БУКВ) И (СЛЕДУЮЩИМ ЗА НИМ - МНОЖЕСТВУ ГЛАСНЫХ))
			
	ЕСЛИ ТАКОЕ УСЛОВИЕ НЕ ВЫПОЛНЯЕТСЯ, тогда в переменную флаг пишем false, после чего пишем BREAK для выхода из цикла
	
после того, как мы вышли из цикла, проверяме переменную flag. Если она true, тогда пишем что буквы чередуются, иначе - буквы
	не чередуются

[newerow1989]

Паскаль:

const gl:array[0..5] of char=('e','y','u','i','o','a');

function prinadl(c:char):boolean;
var i:byte;
begin
   Result:=false;
   For i:=Low(gl) to High(gl) do
      If c=gl[i] then
      begin
         Result:=true;
         Exit;
      end;
end;

const slovo='beginapenalanalog';
var i:integer;
    d:boolean;
begin
   d:=prinadl(slovo[1]);
   For i:=2 to Length(slovo) do
   begin
      d:=not d;
      If d<>prinadl(slovo[i]) then
      begin
         Writeln('no prinadlezhit!');
         Readln;
         Exit;
      end;
   end;
   Writeln('yes, prinadlezhit!');
   Readln;
end.

Сойдет?

[Вадим Мошев]

newerow1989
Для описания множества букв не обязательно использовать массив. Можно их хранить в строке, а принадлежность проверять с помощью функции pos, сравнивая её с нулём.

[newerow1989]

function prinadl(c:char):boolean;
begin
   Result:=Pos(c,'eyuioa')>0;
end;

Как-то так!

[Waise]

Блин,извините. Язык С++. Помогите сам учусь на диспетчера авиац. безоп. на информатике сделать до завтра сказали((

Помогите пожалуйста

[Вадим Мошев]

ну я же вам дал алгоритм http://www.programmersforum.ru/showp...71&postcount=3
Что мешает составить программу по нему?

[Аватар]

Помогите сам учусь на диспетчера авиац. безоп.

А потом самолеты почему-то падают

[Waise]

Вообще-то программирование диспетчерам вообще не нужно, просто информатика не по профилю идет, а по какому-то плану. Я на си вообще никогда не писал, ну знаю, как вводить переменные и библиотеки и все. Ну помогите((