Задача на множества

[RegI]

Здравствуйте, помогите решить на Паскаль. В множествах не понимаю ничего.

Дана непустая последовательность слов из строчных латинских букв; между соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово; все согласные буквы, которые не входят ни в одно слово.

(использовать динамический массив нельзя)

[RusArtm]

Что подразумевается под словом "множетсво"? не динамический массив? Список?

[__STDC__]

Эта задача много раз решалась..

[RegI]

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

Что подразумевается под словом "множетсво"? не динамический массив? Список?

Множество это тип данных в Паскале. Соответствует математическому представлению о множествах.

[RegI]

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

Эта задача много раз решалась..

А ссылку, где она решалась можно? В поиске по форумам я не нашла такую задачу.

[__STDC__]

Мне что ли искать? Если хотите, могу алгоритм подсказать...

[RusArtm]

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

Множество это тип данных в Паскале. Соответствует математическому представлению о множествах.

Хорошо... тогда как данапоследовательность? И при чем тут множества?
Ну есть такой вид данных, а что им можно задать в данной задачи???

Короче, при чем тут множесьтва?

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

А множества как сюда запихнуть?
Может дашь пример множества? может мы о разном говорим всетаки?

[__STDC__]

Если особо не париться над алгоритмом, то как-то так

procedure separate(var tmp,s:string);
begin
	tmp := copy(s,1,pos(',',s));
	if (tmp = '') then
		tmp := s;
	delete(s,1,pos(',',s));
end;

procedure find_same(s:string);
var
	i,j:integer;
	k:char;
	tmp:string;
	a,b,c:set of char;
begin
	a := ['e','y','u','i','o','a']; b := []; c := [];
	for i:=1 to length(s) do begin
		separate(tmp,s);
		for j:=1 to length(tmp) do begin
			if (tmp[j] in a) then begin
				if (i = 1) then b := b+[tmp[j]];
				c := c+[tmp[j]];
			end;
		end;
		b := b*c;
		c := [];
	end;
	
	for k:='a' to 'z' do
		if (k in b) then write(k:2);
end;

procedure find_other(s:string);
var
	i,j:integer;
	k:char;
	tmp:string;
	a:set of char;
begin
	a := ['q','w','r','t','p','s','d','f','g','h','j','k','l','z','x','c','v','b','n','m'];
	for i:=1 to length(s) do begin
		separate(tmp,s);
		for j:=1 to length(tmp) do 
			if (tmp[j] in a) then a := a-[tmp[j]];
	end;
			
	for k:='a' to 'z' do
		if (k in a) then write(k:2);	
end;

var
	s:string;
begin

	readln(s);
	find_same(s);
	writeln;
	find_other(s);
end.

[RegI]

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

Мне что ли искать? Если хотите, могу алгоритм подсказать...

Если не трудно алгоритму тоже буду рада...

[__STDC__]

См. выше...
Суть в том, что мы разделяем строку на слова... Затем все гласные из первого заносим в массив b (я сейчас про процедуру find_same).. все гласные каждого следущего слова заносим в массив c, а потом находим пересечение b и c... в конце в b будут все гласные, которые встречаются в каждом слове... по-моему, в этом задании это ед. что могло вызвать сложность..