2. POINTER dan SINGLE LINK LIST - iLab

Berikut ini merupakan procedure Tambah simpul pada Pascal :
Procedure Tambah(Var Head, Tail : PSimpul; Elemen : Char);
Var Temp : PSimpul;
Begin
New(Temp);
Temp^.Info := Elemen;
If Head = NIL Then { Jika Link List Masih Kosong }
Head := Temp
Else
Tail^.Next := Temp; { Gambar 2.3.b. }
Tail := Temp; { Gambar 2.3.c. }
Tail^.Next := NIL;
End;
2. Menghapus Simpul
Operasi menghapus simpul juga ada tiga macam yaitu menghapus simpul di
depan, belakang dan tengah. Untuk menghapus sebuah simpul diperlukan satu
buah tambahan variabel pointer yaitu variabel bantu yang berguna untuk
menunjukkan simpul manakah yang akan dihapus. Procedure Hapus
selengkapnya adalah sebagai berikut :
Procedure Hapus(Var Head, Tail : PSimpul; Elemen : Char);
Var Temp1, Temp2 : PSimpul;
Begin
If Head = NIL Then { Jika Link List Masih Kosong }
Writeln(‘Link List Masih Kosong’)
Else If Head^.Info = Elemen Then { Simpul Pertama dihapus
}
Begin
Temp2:=Head;
Lab. Teknik Informatika – Struktur Data 7