Вывести только повторяющиеся элементы односвязного списка.

[dima1257]

Задача такая: В файл записывается последовательность целых чисел. Создается линейный список из считанной последовательности. Из исходного списка создать список всех одинаковых элементов списка. Вывести исходный список и список выбранных элементов на экран.

то есть если есть последовательность

1  1  7  4  7  5  5  8

в результате должно получиться

1 1 7 7 5 5

program lab_6;
uses crt;
const max_n=100;
type ptr=^din;
     din=record
     inf:integer;
     link:ptr;
     end;
var f:file of integer;
    n,i,k,tx:integer;
    x:byte;
    povtor:integer;
    p,p1,p2,head,pt1,pt2:ptr;

procedure sozd;
begin
     assign(f,'file.int');
     rewrite(F);
     writeln('Vvedi kol n:');
     readln(n);
     randomize;
     for i:=1 to n do
     begin
          k:= random(10);
          //read(k);
          write(f,k);
     end;
     close(f);
     writeln('Soderjimoe faila:');
     reset(f);
     while not eof(f) do
     begin
          read(f, k);
          write(k, ' ');
     end;
     close(f);
     writeln;
end;

procedure spisok;
begin
     writeln('Ishodniy spisok:');
     assign(f,'file.int');
     reset(f);
     i:=1;
     while not eof(f) do
     begin
          if i=1 then
          begin

             new(p);
             read(f,tx);
             p^.link:=nil;
             p^.inf:=tx;
             head:=p;
             p1:=p;
             i:=i+1;
          end
          else
          begin
               new(p);
               read(f,tx);
               p^.link:=nil;
               p^.inf:=tx;
               p1^.link:=p;
               p1:=p;
               i:=i+1;
          end;
     end;
     close(f);
end;

procedure sort;
begin
     p:=head;
     while p <> nil do
     begin
          write(p^.inf, ' ');
          p:=p^.link;
     end;
     writeln;
     writeln('Povtoryaushiesya elementi:');
     
     
     for x:=1 to n do

     begin
     p:=head;
     povtor:= p^.inf;
          if x <> 1 then
          for i:= 1 to x - 1  do
          begin
               p:= p^.link;
               povtor:= p^.inf;
          end;
          
          writeln('X:',x);
          povtor:=p^.inf; 
          while p <> nil do 
          begin
               if p^.inf = povtor then
               begin
                    writeln('Povtor = ', povtor);
               end;

               p:=p^.link;
          end;
     end;

end;

begin
     sozd;
     spisok;
     sort;
end.

Не получается вывести только повторяющиеся элементы. подскажите пожалуйста как это сделать или ссылку если есть.

[dima1257]

Задачу сам решил.

вот кому интересно.

program lab_6;
uses crt;
const max_n=100;
type ptr=^din;
     din=record
     inf:integer;
     bil:boolean;
     link:ptr;
     end;
var f:file of integer;
    n,i,k,tx:integer;
    x:byte;
    povtor:integer;
    p,p1,p2,head,pt1,pt2:ptr;

procedure sozd;
begin
     assign(f,'file.int');
     rewrite(F);
     writeln('Vvedi kol n:');
     readln(n);
     randomize;
     for i:=1 to n do
     begin
          k:= random(10);
          //read(k);
          write(f,k);
     end;
     close(f);
     writeln('Soderjimoe faila:');
     reset(f);
     while not eof(f) do
     begin
          read(f, k);
          write(k, ' ');
     end;
     close(f);
     writeln;
end;

procedure spisok;
begin
     writeln('Ishodniy spisok:');
     assign(f,'file.int');
     reset(f);
     i:=1;
     while not eof(f) do
     begin
          if i=1 then
          begin

             new(p);
             read(f,tx);
             p^.link:=nil;
             p^.inf:=tx;
             p^.bil:= false;
             head:=p;
             p1:=p;
             i:=i+1;
          end
          else
          begin
               new(p);
               read(f,tx);
               p^.link:=nil;
               p^.inf:=tx;
               p^.bil:= false;
               p1^.link:=p;
               p1:=p;
               i:=i+1;
          end;
     end;
     close(f);
end;

procedure sort;
begin
     p:=head;
     while p <> nil do
     begin
          write(p^.inf, ' ');
          p:=p^.link;
     end;
     writeln;
     writeln('Povtoryaushiesya elementi:');
     
     p:=head; // встать в начало списка
     for i:= 1 to n do
     begin
          write(p^.inf, '---');
          
          p1:= head;
          for k:= 1 to n - 1 do
          begin
               write(p1^.inf, ' ');
               
               if k = i then
                  p1:= p1^.link;

               if p^.inf = p1^.inf then
               begin
                    p^.bil:= true;
               end;
               
               p1:= p1^.link;
          end;
          writeln;
          p:= p^.link;
     end;
     
     writeln;
     p:= head;
     while p <> nil do
     begin
          write('elem = ', p^.inf, ' ');
          write('bil = ', p^.bil);
          writeln;
          p:= p^.link;
     end;
     
     p:= head;
     while p <> nil do
     begin
          if p^.bil = true then
          begin
               write(p^.inf, ' ');
          end;
          p:= p^.link;
     end;
end;

begin
     sozd;
     spisok;
     sort;
end.

допустим дан список

1  5  4  5  7

Решено это при помощи буленовской переменной. Каждый элемент списка сравнивается со всем списком кроме своей позиции. Например берем первый элемент это 1. Сравниваем со всем списком кроме своей позиции, не находим повтора и соответственно по умолчанию логическая часть этого элемента остается false.

Берем второй элемент и сравниваем его со всем списком кроме своей позиции. Находим такой же элемент на 4й позиции и ставим логическую часть 4го элемента равной true.

С 3им элементом также как и с первым.

Берем 4й элемент и сравниваем его со всей последовательностью. Находим повтор во второй позиции и ставим логическую часть 2го элемента равной true.

C 5м элементом всё точно так же как с 1 и 3.
в результате получаем такое содержимое списка

1 false
5 true
4 false
5 true
7 false

И при помощи вот этого куска кода выводим только те элементы у которых логическая часть равна true.

 p:= head;
     while p <> nil do
     begin
          if p^.bil = true then
          begin
               write(p^.inf, ' ');
          end;
          p:= p^.link;
     end;

Список будет не сортирован, но это уже кому надо сделает.