Множества

[AndreNalin]

Нужна помощь в решении задачи, сам алгоритм вроде понимаю, но записать его в програмном коде пока не получается. Условия задачи: дан текст на русском языке. Необходимо вывести в алфавитном порядке все согласные буквы, которые входят только в одно слово. Среда Делфи. Заранее спасибо)

[was3110]

Я бы понял задание, если бы было указано слово (например: из первого слова или из самого длинного слова). А как Вы понимаете (вроде) сам алгоритм?

[AndreNalin]

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

Я бы понял задание, если бы было указано слово (например: из первого слова или из самого длинного слова). А как Вы понимаете (вроде) сам алгоритм?

Вот именно, что в задании не указано какое именно слово, скорее всего номер этого слова нужно указывать отдельно. Я понимаю принцип, т.е. с помощью каких опереаторов это можно осуществить, но плохо владею правилами написания этих операторов.

[Stilet]

которые входят только в одно слово.

Не понял...?

[AndreNalin]

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

Не понял...?

Ответил в предъидущем посте:

скорее всего номер этого слова нужно указывать отдельно

Т.е указываешь из какого слова (например номер слова можно указать в Едит) необходимо выписать согласные, и выводишь их например в СтрингРид.

[was3110]

Ну так покажи, что написал. А то все приходится гадать. В какую переменную вводишь строку? Как проверяешь ввод номера слова (а вдруг такого нет)? Так часто бывает: даешь ответ, а тебе еще двадцать тут же (типа "А нельзя ли ...."). Ни Вам помощи, ни мне удовлетворения... (есть e-mail?)

[Stilet]

Хм...
Хорошо допустим у тебя есть слово (Как его выдрать смотри в http://www.programmersforum.ru/showt...369#post398369)
Тады

...
 l:=TStringList.Create;
 for i:=1 to length(s) do
  if s[i] in ['a','e','y','u','i','o']
   then l.Add(s[i]);
 l.Sort;
 for i:=0 to l.Count-1 do write(l[i]);
 l.Free;
...

Где

var l:TStringList;s:string;i:integer;

И S - то самое слово