[Pascal] подскажите алгоритм

[Рамик]

Задача:
Дана строка текста, вывести все гласные, которые входят в каждое слово строки.

подскажите алгоритм пожалуйста...

[Sazary]

Выделяем первое слово. Все гласные из него заносим в множество (M).
Далее проходим по всем оставшимся словам. Из каждого слова заносим во второе множество (tmp) все гласные. M = пересечение множеств M и tmp.
Как-то так.

Можно и с массивами делать.

[Лунатик222]

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

Выделяем первое слово. Все гласные из него заносим в множество (M).
Далее проходим по всем оставшимся словам. Из каждого слова заносим во второе множество (tmp) все гласные. M = пересечение множеств M и tmp.
Как-то так.

Можно и с массивами делать.

разве нелзя полегче?

пример

program stroka;
var a:string;
i:integer;
begin
read(a);
for i:=1 to ord(a[0]) do
begin 
case a[i] of
 'a' : write('"a" ');
....
end;
end;
end.

или я не правильно думаю? можно еще через assign вроде...

[Рамик]

нужно с множеством....

[Лунатик222]

Сообщение от Рамик

нужно с множеством....

ну в чем проблема? тебе же подсказали как делать... начни хотя бы...

[Sazary]

Лунатик222

вывести все гласные, которые входят в каждое слово строки.

Я так понял, что нужны именно те гласные, которые есть в каждом слове. То есть для строки

Привет тесто тест

это будет 'е' (т.к. она есть в каждом слове)

[Рамик]

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

Лунатик222

Я так понял, что нужны именно те гласные, которые есть в каждом слове. То есть для строки

Привет тесто тест

это будет 'е' (т.к. она есть в каждом слове)

ты правельно понял...