LISTY

 

 

LISTY  :



  

jednokierunkowe



  

dwukierunkowe



   

cykliczne

nil

 

2

16

  

9

 nil

headL

nil

 

2

16

  

9

headL

 

2

16

 

 9

 

 

type 

    wsk  =  ^ element ;                                    

    element = record  

                       prev : wsk;                                

                       key : integer;               

                        next : wsk

                   end ;                               

var  

   headL  : wsk ;

pre
v

nex
t

 

ke
y

headL

 

 

procedure LIST_INSERT1 (var k : Integer ;  var  headL : wsk);

{ Dołącza element o kluczu k na początek listy  
dwukierunkowej }

  var  pom : wsk;
  begin
       New (pom);

       pom^.key := k;
       pom^.prev := nil;
       pom^.next. := headL;

       if  headL <> nil   then    headL^.prev := pom ;
       headL := pom
  end;

 

 

procedure LIST_INSERT2 (var k : Integer ; var za: wsk; var  
headL : wsk);

{Dołącza element o kluczu k  za   element „za”   listy  
dwukierunkowej}

  var  przed,  pom : wsk;

  begin
    New (pom);
    przed := za^.next ; 

    if  przed <> nil   then
 
       begin    
          pom^.key := k;
          pom^.prev := za;
          pom^.next. := przed;
          przed^.prev := pom;
          za^.next := pom
      end
   

else 

      begin
          pom^.key := 
k;
          pom^.prev := 
za;
          pom^.next := 
nil;
         za^.next := 
pom
 end;  

end;

 

 

procedure LIST_SEARCH1 (var k : Integer ; var  headL : wsk; var 
jest: wsk);

        { Znajduje na liście element o kluczu k }

  var  pom : wsk ;
  begin
     jest := nil;
     pom := headL;   
     while  ( pom <> nil )  do
         begin
             if  (pom^.key <> k)   then    pom := pom^.next
               else    
                 begin
                     jest := pom;
                     pom := nil;
                 end
         end
  end;

 

 

procedure LIST_SEARCH2 (var k : Integer ; var  headL : wsk; var 
jest: wsk);

       { Znajduje na liście element o kluczu k }

  var  pom : wsk ;
  begin
     pom := headL;   
     while  (( pom <> nil )   and    ( pom^.key <> k )) do
            pom := pom^.next ;

     jest := pom;

end;

 

 

procedure LIST_DELETE1 (var  headL : wsk);
   

{Usuwa pierwszy element  z listy}

 var  pom : wsk;
 begin
   if  headL <> nil  then 
      begin
         headL := headL^.next;     
         if   headL <> nil    then    headL^.prev := nil
      end
end;

        

 

 

Procedure LIST_DELETE 2 (var el: wsk;  var  headL : wsk);
 

{Usuwa element o wskazniku el z listy}

 var  pom : wsk;
 begin
    if  el^.prev <> nil
       then    begin
                     pom := el^.prev;
                     pom^.next := el^.next
                  end

       else     headL := el^.next;     
    if   el^.next <> nil 
       then   begin
                    pom := el^.next;
                    pom^.prev := el^.prev
                 end;