Множества: вывести первые вхождение букв в текст, сохраняя их порядок

@Карл Кори · Регистрация: 02.03.2011

Студворк — интернет-сервис помощи студентам

Как вывести множество, в таком порядке, в котором они записаны
ведь при использовании

Pascal
1
2
3
for i:=0 to 255 do
if chr(i) in m then
write(chr(i),' ');

они выписываются по алфавитном порядке.

Или предложите решение, как сделать такое:
вывести первые вхождение букв в текст (s), сохраняя их порядок.

@Puporev · 05.04.2011, 14:29

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

@Карл Кори · 05.04.2011, 14:31 **[ТС]**

К сожалению надо, ведь в задаче стоит такое ограничение...

@Puporev · 05.04.2011, 14:33

Например так.

Pascal
1
2
3
4
5
6
7
8
i:=1;
while i<=length(s)-1 do
 begin
  c:=s[i];
  for j:=length(s) downto i+1 do
  if s[j]=c then delete(s,j,1);
  i:=i+1;
 end;

Добавлено через 54 секунды

Сообщение от Карл Кори

ведь в задаче стоит такое ограничение.

А текст задачи написать слабо чтобы мозг не конопатить?

@Карл Кори · 05.04.2011, 14:35 **[ТС]**

сори...........то как? можно?

@Puporev · 05.04.2011, 14:39

Сообщение от Карл Кори

можно?

Что можно? ты условие задачи полностью напиши...

@Карл Кори · 05.04.2011, 14:41 **[ТС]**

Дан текст (s). Вывести первые вхождение букв в текст , сохраняя их порядок.
При решении задачи использовать множества.

@Puporev · 05.04.2011, 14:57

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
const bk=['A'..'Z','a'..'z','А'..'п','р'..'ё'];
var s:string;
    m:set of char;
    i:byte;
begin
writeln('Введите строку:');
readln(s);
m:=[];
writeln('Первые вхождения букв:');
for i:=1 to length(s) do
if (s[i] in bk)and not(s[i] in m) then
  begin
   write(s[i]);
   m:=m+[s[i]];
  end;
end.

@Карл Кори · 05.04.2011, 15:03 **[ТС]**

Спасибо

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	05.04.2011, 14:29
	Так для этого не нужно использовать множество, нужно просто удалить из текста все последующие вхождения. 0

@Карл Кори 3 / 3 / 1 Регистрация: 02.03.2011 Сообщений: 18
	05.04.2011, 14:31 [ТС]
	К сожалению надо, ведь в задаче стоит такое ограничение... 0

@Карл Кори 3 / 3 / 1 Регистрация: 02.03.2011 Сообщений: 18
	05.04.2011, 14:35 [ТС]
	сори...........то как? можно? 0

@Карл Кори 3 / 3 / 1 Регистрация: 02.03.2011 Сообщений: 18
	05.04.2011, 14:41 [ТС]
	Дан текст (s). Вывести первые вхождение букв в текст , сохраняя их порядок. При решении задачи использовать множества. 0

@Карл Кори 3 / 3 / 1 Регистрация: 02.03.2011 Сообщений: 18
	05.04.2011, 15:03 [ТС]
	Спасибо 0