Trieple-Six

Penyisipan List / Insertion

Insertion adalah penyisipan suatu elemen list pada Linked List.
a. Penyisipan sebagai elemen pertama

    Procedure SisipAwal (Var Kepala : List; P :List)
    Begin
            P^. Berikut := Kepala;
            Kepala := P;
      End;
 
b. Penyisipan sebagai elemen terakhir

    Procedure SisipAkhir (Var Kepala : List; P : List);
    Var
          Akhir : List;
    Begin
             New (P)
             If Kepala = Nil Then SisipAwal (Kepala, P); {Bila masih kosong}
       Else
             Begin
                      Akhir := Kepala;
                      While (Akhir <> Nil) Do
                          Akhir := Akhir^. Berikut;
                      P^. Berikut := Nil;
                      Akhir^. Berikut := P;
               End;
          End;

c. Penyisipan sesudah elemen P

    Procedure SisipSesudah (Var Prec : List; P : List);
    Begin
          Prec^. Berikut := P^. Berikut;
          P^. Berikut := Prec;
     End;


Sumber dari : http://www.yudasy.web.id