Trieple-Six

Pencarian List / Searching

Searching adalah pencarian suatu elemen pada list, dengan kriteria tertentu
a. Pencarian elemen list yang berharga Y
    Function PencarianList (Var Kepala : List; Y : Info_Type) : Boolean;
    Var
           P : List;
      Ketemu : Boolean;
      Begin
                P := Kepala;
                Ketemu := False;
               While (P <> Nil) And (Not Ketemu) Do
                Begin
                          If P^. Info = Y Then
                                             Ketemu := True
                          Else
                                    P := P^. Berikut;
                 End;
                 PencarianList := Ketemu;
End;
{Jika tidak ketemu P = Nil dan PencarianList bernilai False}

b. Pencarian elemen terakhir
    Procedure PencElemenAkhir (Var Kepala, P : List) ;
    Begin
              P := Head
              If P <> Nil Then
              Begin
                         While (P^. Berikut <> Nil) Do
                                   P := P^. Berikut;
                      End;
               End;


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