Spojový seznam – Pascal – Fórum – Programujte.com

Dobrý den,

potřeboval bych poradit s procedurou.

Pseudokod:

1) Mám 2 spojové seznamy např.  

a dvě globální proměnné s hodnotou integer.

2) Chtěl bych proceduru, která mi projede první spoják  a pokud se tam vyskytuje první proměnná, tak do druhého spojáku přidá druhou hodnotu integer.. jinak pokud se tam nevyskytuje, tak  přidá první hodnotu  do prvního seznamu a do druhého seznamu přidá druhou hodnotu. 

Pro příklad by to mělo vypadat takhle.

Mám 1 prom. = 1
         2 prom. = 2

V prvním spojáku  je už např. 1, tak to přidá do druhého spojáku 2.

Další příklad:  mám  1.prom. = 1

                                 2 prom. = 2

první spoják je prázdný, tak do prvního přidám hodnotu 1 a do druhého hodnotu 2.

type TList = ^Node;
     Node = record
              Info: integer;
              Next: TList
            end;

type TList2 = ^Node2;
     Node2 = record
              Info: integer;
              Next: TList2
            end;