напечатать в алфавитном порядке различные строчные буквы, входящие в заданный текст из 200 литер(текст , я так понимаю брать от балды).....оч срочно нужно решить, но голова не варит совсем(((помогите пожалуйста)))
Автор: Lapp 25.03.2010 6:01
Цитата(AlexShadow @ 25.03.2010 1:08)
напечатать в алфавитном порядке различные строчные буквы, входящие в заданный текст из 200 литер
Заводишь множество:
var m: set of char;
Сначала проходишь по тексту и складываешь буквы в множество:
for i:= 1 to Length(s) do Include(m,s[i]);
Потом убираешь оттуда лишние символы:
m:= m * ['a'..'z'];
И печатаешь:
for c:='A' to 'z' do if c in m then Write( с );
Вроде все..
Автор: AlexShadow 25.03.2010 6:05
Цитата(Lapp @ 25.03.2010 2:01)
Заводишь множество:
var m: set of char;
Сначала проходишь по тексту и складываешь буквы в множество:
for i:= 1 to Length(s) do Include(m,s[i]);
Потом убираешь оттуда лишние символы:
m:= m * ['a'..'z'];
И печатаешь:
for c:='A' to 'z' do if c in m then Write( с );
Вроде все..
пасиб большое))))
Автор: Lapp 25.03.2010 6:20
Цитата(AlexShadow @ 25.03.2010 2:05)
пасиб большое))))
Пара исправлений.. В последней строке нужно A заменить на a.
for c:='a' to 'z' do if c in m then Write( с );
Но тогда предпоследняя сторока становится вообще не нужна, можешь ее убрать.