Помощь - Поиск - Пользователи - Календарь
Полная версия: задача на строки
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
AlexShadow
напечатать в алфавитном порядке различные строчные буквы, входящие в заданный текст из 200 литер(текст , я так понимаю брать от балды).....оч срочно нужно решить, но голова не варит совсем(((помогите пожалуйста)))
Lapp
Цитата(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
Цитата(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
Цитата(AlexShadow @ 25.03.2010 2:05) *
пасиб большое))))
Пара исправлений..
В последней строке нужно A заменить на a.
  for c:='a' to 'z' do if c in m then Write( с );

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

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.