Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ задача на строки

Автор: AlexShadow 25.03.2010 5:08

напечатать в алфавитном порядке различные строчные буквы, входящие в заданный текст из 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( с );

Но тогда предпоследняя сторока становится вообще не нужна, можешь ее убрать.