Множества

[Zenit10]

[QUOTE=Zid@ne;67466]Написать программу, осуществляющую ввод текста, состоящего из неповторяющихся символов. QUOTE]

Как я понял в этой задаче нужно поставить какой либо блокиратор, который бы не давал ввести допустим букву н 2 раза, т.е. чтобы он запоминал что вводит, но код я не представляю как выглядит, если что пиши в личку попробую ответить.

[Serge_Bliznykov]

Сообщение от Zid@ne

Форумчане! Убедительная просьба помочь "бедному" студенту...
1)Дана строка символов. Преобразовать ее, удалив из нее повторные вхождения каждой литеры.

var
  s : string;
  i : integer;
begin
  WriteLn('Введите строку: ');
  Readln(s);
  i:=1;
  while i<Length(s) do
  begin
    while Pos(s[i],Copy(s,i+1,255))>0 do
      delete(s,Pos(s[i],Copy(s,i+1,255))+i,1);
    inc(i);  
  end;
  WriteLn(s)  
end.

2)Дана строка S. Подсчитать в ней наибольшее количество идущих подряд цифр (для решения задачи использовать множества).

БЛИН! сначала решил задачу чуть сложнее - по нахождению максимального числа подряд идущих одинаковых символов (может надо кому?? ;-) и ещё хотел спросить, с какого бока тут множества ;-((( и только потом внимательно прочитал задачу...

const
  Digits : set of char = ['0','1','2','3','4','5','6','7','8','9'];

var s : string;
    MaxN, CurN, i : longint;
begin
  WriteLn('Введите строку: ');
  Readln(s);
  MaxN := 0;
  CurN := 0;
  for i:=1 to length(s) do
    if s[i] in Digits then
      Inc(CurN)
    else begin
      if CurN>MaxN then MaxN:=CurN;
      CurN:=0;
   end;

  WriteLn('Наибольшее количество идущих подряд цифр: ',MaxN:1)    
end.

[Zid@ne]

Спасибо, Сергей, огромное! Вы спасли мне жизнь! При многом вам благодарен!

[Serge_Bliznykov]

Сообщение от Serge_Bliznykov

1)Дана строка символов. Преобразовать ее, удалив из нее повторные вхождения каждой литеры.

прошу только обратить внимание, что, хотя я и решил задачу, но не использовал при этом "Множества"... ;-(((
Так что — будьте осторожны...
Кстати, можно и под множества переписать, не проблема...

[puporev]

Вот на всякий случай с множеством.

uses crt;
var s:string;
    a:set of char;
    i:integer;
begin
clrscr;
write('s: ');readln(s);
writeln;
a:=[];
for i:=length(s) downto 1  do
    begin
      if not (s[i] in a) then
      a:=a+[s[i]]
      else  delete(s,i,1);
    end;
write(s);
readln
end.

[Zid@ne]

Спасибо вам большое! Не знаю, что бы без вас делал! Очень помогли! Благодарю.

[Zid@ne]

Более менее с вашей помощью разбираться начал! Спасибо!