Работа с данными типа множество.

[Pavel Lapin]

Дан текст из строчных латинских букв, за которым следует точка. Напечатать:
- первые вхождения букв в текст, сохраняя их взаимный исходный порядок;
- все буквы, входящие в текст не менее двух раз;
- все буквы, входящие в текст по одному разу.

[Wicort]

а наработки где?

[Pavel Lapin]

Эта тема у меня вообще никак не получается..В лекции навроде разобрался,а программу составить не могу...Вот хочу на основе решения этой задачи разобраться.

[IT-man]

- первые вхождения букв в текст, сохраняя их взаимный исходный порядок;

M=['a'..'z'];
for i:=1 to length(t) do
if t[i] in M then begin write(t[i],' ');M:=M-[t[i]];end;

[Serge_Bliznykov]

- первые вхождения букв в текст, сохраняя их взаимный исходный порядок;

IT-man, во, а я бы с точностью до наоборот решал данную задачу.
примерно так:

var 
   WasBefore : set of char;
   t : string;
   i : integer;
....
  WasBefore := [];
  for i:=1 to Length(t) do
    if t[i] not in WasBefore then begin
       Write(t[i],' ');
       Include( WasBefore, t[i] );
    end;