Задача.Динамич. структуры данных

[BDA]

Просто изначально не додумал этот вариант до такого способа (с 1 проходом)
Честно говоря, не хотелось бы делать сортировку, а ограничиться при решении только операциями добавления элемента в список и определения длины списка (лень накрыла ).

[Poma][a]

Интересно.. Реализовать список не лень, а сортануть уже проблема..

А вообще я за такое решение :
Создаем битовый массив. (Насколько помню, это есть и в паскале и в сях)
И переменную для каждой вершины

Дальше берем пару (i,j), смотрим есть ли она в массиве. Если есть - ничего, если нет - засовываем, увеличиваем переменную на 1.

Вот и все

[BDA]

Так ТС прошел только списки, поэтому от них и отталкиваюсь)
Решение с битовым массивом и переменными, пожалуй, будет лучше по памяти (да и по времени, скорее всего). Но если есть требование на применение списков, то приходится чем-то жертвовать.

[challengerr]

Примерно так

#include <stdio.h>
#include <windows.h>

#define N 5

struct o
{
int a;
int b;
struct o* next;

o() { next = 0; }
o(int i1, int i2) { a = i1; b = i2; next = 0; }
void add_next(int i1, int i2) { if(next) next->add_next(i1, i2); else next = new o(i1, i2);}
void print() { printf("%d %d\n", a, b); if (next) next->print(); }

};


void main() 
{
struct o list;
struct o *p, *p1;
int cnt1, cnt2;

list.a = 1; list.b = 2;
list.add_next(1, 3);
list.add_next(1, 4);
list.add_next(1, 5);
list.add_next(1, 6);
list.add_next(2, 7);
list.add_next(2, 4);
list.add_next(2, 5);
list.add_next(3, 8);
list.add_next(3, 6);

list.print();

p = &list;


while (p != 0)
{
 p1 = p->next;
 cnt1 = 0;
 cnt2 = 0;
 while(p1 != 0)
 {
  if ( (p->a == p1->a) || (p->a == p1->b) ) cnt1++;
  if ( (p->b == p1->a) || (p->b == p1->b) ) cnt2++;
  p1 = p1->next;
 }
 if (cnt1 > 3) printf("%d\n", p->a);
 if (cnt2 > 3) printf("%d\n", p->b);
 p = p->next;
}
}

[Neostat]

И снова я тут. В общем появилась у меня одна проблема в ходе решении задачи.
Я пошел по первому варианту.Проблема у меня возникла вот в чем...
Я получил список пар городов между которыми есть прямая дорога.Например:
(a,b)
(g,d)
(a,b)
(a,b)
(r,s)
И все бы было хорошо,кроме того что мне нужно удалить лишние одинаковые звенья. То есть ,чтобы после обработки получился такой список:
(a,b)
(g,d)
(r,s)
Но сколько вот сижу не получается.Получилось написать,чтобы он удалял в том случае,если они идут подряд, допустим : (a,b)(a,b) ~ (a,b).
Попробовал поправить цикл,но ничего не вышло,просто вылетает программа.Не могу понять в чем ошибка.Помогите пожалуйста исправить её.
Вот код,пожалуй,всей программы(цикл проверки в главной части программы):

[Neostat]

PHP код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  windows;

type
   Tpnt =^TElem;
   TElem = record
              Stadt_1:string;
              Stadt_2:string;
              next:Tpnt;
   end;

   Tptr =^TNode;
   TNode = record
         Stadt_1:string;
         next:Tptr;
   end;

   var start,last,q,p,r:Tpnt;
       i:integer;
       phead2:Tptr;
       stadt_1:string;

    procedure DelNode(var t:Tptr);
    var z:Tptr;
    begin
        z:=t;
        t:=z^.next;
        Dispose(z);
    end;

   function YesNo():Boolean;
   var check:char; ok:Boolean;
   begin
       writeln('?');
       Readln(check);

       ok:=true;
       while ok do
       begin
         if not(check  in ['Y','y','Í','í','N','n','ò','Ò'])then
           begin
            Writeln(' (y/n):');
            Readln(check);
            end
         else
            ok:=False;

       end;

       if(check in ['Y','y','Í','í']) then
          YesNo:=True
       else
         YesNo:=false;
   end;

   procedure Einrichtung(var i,j:string);
   var  WordLength:Integer;
        ok:Boolean; st:string;
   begin
         readln(st);
         ok:=True;

         while ok do
         begin
           if((st[1] <> '(') or (st[Length(st)]<>')') or(Pos(',',st)=0)) then
             begin
               writeln('');
               Readln(st);
             end
           else
            ok:=False;

         end;

          Delete(st,1,1);
          WordLength:=1;
          while(WordLength<Pos(',',st))do
            inc(WordLength);

          i:=Copy(st,0,WordLength-1);

          Delete(st,1,WordLength);

          WordLength:=1;
          while(WordLength<Pos(')',st))do
           Inc(WordLength);

          j:=Copy(st,1,WordLength-1);
   end;

   function GleichStadten(i,j:string;var t:Tpnt):Boolean;
   var q:Tpnt; var ok:boolean;
   begin

      ok := false;
      if q<>nil then
      while t<> nil do
      begin
        if((q^.Stadt_1 = i) and (q^.Stadt_2 = j)) or ((q^.Stadt_1 = j) and (q^.Stadt_2 = i)) then
           GleichStadten := True;

           q:=q^.next;
      end;


   end;

   procedure addNode(var start,last:Tpnt);
   var j,i:string;
       ok:boolean;
   begin
       writeln('');
       ok:=True;
       start := nil;
       last := nil;
       while ok do
       begin
            Einrichtung(i,j);


            if start = nil then
             begin
                New(start);
                last:= start;
                New(last^.next);
                last^.Stadt_1 := i;
                last^.Stadt_2 := j;
                last := last^.next;
                last^.next:=nil;
             end
            else
             begin
               New(last^.next);
               last^.Stadt_1 := i;
               last^.Stadt_2 := j;
               last := last^.next;
               last^.next := nil;
             end;

            ok:=YesNo;
        end;


   end;

   procedure DeleteNode(var start:Tpnt);
   var q,p:Tpnt;
   begin
     q:=start;
     p:=start;
     while q^.next <> nil do
     begin
        while q^.stadt_1 = q^.next.Stadt_1 do
          begin
            p :=q^.next;
            q^.next := q^.next.next;
            Dispose(p);
          end;
          q:=q^.next;
     end;

   end;

   procedure PrintNode(var t:Tptr);
   var q:Tptr;
   begin
      q:=t;
      while(t<>nil)do
      begin
          Writeln(t^.Stadt_1);
          t:=t^.next;
      end;
   end;

   procedure Print(t:Tpnt);
   var q:Tpnt;
   begin
      q:=t;

      while(t<>nil)do
      begin
          Writeln(t^.Stadt_1,' ',t^.Stadt_2);
          t:=t^.next;
      end;
   end;

begin{main}
   SetConsoleCP(1251);
   SetConsoleOutputCP(1251);

   addNode(start,last);
   writeln;
   Print(start);

 //Вот тут ошибка(
//P.s. Я для теста цикла,делал проверку только по первому городу,поэтому не обращайте внимание,что не делал проверку второго города
   q:=start;
   p:=start;
     while q^.next <> nil do
     begin
       stadt_1 := q^.Stadt_1;
       r:=start;
        while r^.next <> nil do
          begin
            if stadt_1 = r^.next.Stadt_1 then
              begin
                p :=r^.next;
                r^.next := r^.next.next;
                Dispose(p);
              end;
              r:=r^.next;
          end;
          q:=q^.next;
     end;

   Print(start);
   readln;

end. 


[Neostat]

В общем,кажется я нашел альтернативное решение данной проблемы.Буду проверять на входе,есть ли уже такой элемент или нет.