Динамические списки

[Saawa]

С клавиатуры вводится последовательность символов. Исключить символы, повторяющиеся бо-лее 2-х раз. Исключить из последовательности символ с заданным номером.

P.S. Написать программу для ввода вывода, получилось быстро и легко...а вот как их искать и удолять озадачило... помогите пожалуйста
p.S.S Текстро программы если можно на Паскале) Т.К. Владею Паскалем, Бейсиком, и основами БрейнФака))))

[notHaker]

А причём здесь динамические списки??

А если к делу то :
1) Делаешь массив со символами.
2) Делаешь второй массив флагов (всего 255 значений может быть )
3) При вводе нового обращаешся в массив флагов[новый символ] - "встречался ли он ранее?", если нет, то ставишь флаг что уже был, помещаешь в массив со символами и ждёшь новый символ,
если стоит флаг, что уже был, то забиваешь на него и ждёшь новый

реализовать другой алгоритм можна, НО он будет оооччччень медленный

кода не будет тк ты свой повесит поленился

[Saawa]

Ну я студент, и пишу программы которые нас застовляют, и говорят как их реализовать) Вот поэтому и динамическеие списки))
Мой код :

Program Ex12;
{$APPTYPE CONSOLE}
Uses  SysUtils;
Type point=^a;
     a=record
          c:char;
          p:point;
         end;
Var r,q,f:point;
     b:a;
     e:char;
     n:integer;
begin
n:=1;
new(r);
writeln('vvedite simvol');
r^.p:=nil;
new(q);
readln(q^.c);
q^.p:=r;
new(f);
f^.p:=q; // Круговой список
	while q.c<>'1' do
        begin
          new(q);
          readln(q^.c);
          q^.p:=f^.p;
          f^.p:=q;
          n:=n+1 // n = количество символов
        end;
While q^.c<>' ' do // Поиск одинакового символа
      Begin
        e:=q^.c;
        q:=q^.p;
        if e=q^.c then
          begin
            q^.c:=' ';
            q:=q^.p;
          end
        else q:=q^.p;
      End;
While n<>0 do //ввывод
      Begin
        writeln(q^.c);
        q:=q^.p;
        n:=n-1;
      End;
readln;
end.

p.S. Работает если "убить" удаление

[notHaker]

Тупость - использовать динамический список для символов... вабще бред... в обучающих целях можно было придумать что нибудь поинтереснее... ща раберёмся...

ЗЫ: што за дурной тон писать переменные буквами цифрами, без смысловой нагрузки : q,p,s,sd,a1,a123,qwe? Писали бы вы большие проги так, ох бы и намаялись... сам чёрт ногу сломит, аж в глазах рябит.

[notHaker]

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

Ну я студент, и пишу программы которые нас застовляют, и говорят как их реализовать) Вот поэтому и динамическеие списки))
Мой код :

Program Ex12;
{$APPTYPE CONSOLE}
Uses  SysUtils;
Type point=^a;
     a=record
          c:char;
          p:point;
         end;
Var r,q,f:point;
     b:a;
     e:char;
     n:integer;
begin
n:=1;
new(r);
writeln('vvedite simvol');
r^.p:=nil;
new(q);
readln(q^.c);
q^.p:=r;
new(f);
f^.p:=q; // Круговой список
	while q.c<>'1' do
        begin
          new(q);
          readln(q^.c);
          q^.p:=f^.p;
          f^.p:=q;
          n:=n+1 // n = количество символов
        end;
While q^.c<>' ' do // Поиск одинакового символа
      Begin
        e:=q^.c;
        q:=q^.p;
        if e=q^.c then
          begin
            q^.c:=' ';
            q:=q^.p;
          end
        else q:=q^.p;
      End;
While n<>0 do //ввывод
      Begin
        writeln(q^.c);
        q:=q^.p;
        n:=n-1;
      End;
readln;
end.

p.S. Работает если "убить" удаление

опять двадцать пять... держи массив с флагами повтора и адреса предыдущего символа. и тебе проще и проге быстрее и препода на мыло . пробежался по списку ОДИН раз и вырезал символы (скрепление адресов - проще пареной репы).

кстати ссори, не врубил твою задачу сначала, ноч была...