2. POINTER dan SINGLE LINK LIST - iLab

Head := Temp2^.Next;
Dispose(Temp2);
End
Else {Menghapus simpul tengah / }
Begin {Akhir }
Temp1 := Head
{ Memulai proses pencarian elemen yang akan dihapus }
While (Elemen Temp1^.Info) And (Temp1^.Next NIL)
Do
Temp1 := Temp1^.Next;
If Temp2 NIL Then { Jika simpul ketemu }
Begin
{ Jika Simpul yang di cari ada di tengah }
If Temp2 Tail Then
Temp1^.Next := Temp2^.Next
Else
Begin
Tail := Temp1;
Tail^.Next := NIL;
End;
Dispose(Temp2);
End
Else
{ Simpul yang akan dihapus tidak ketemu }
Writeln(‘Simpul Tidak di ketemukan !’);
End;
End;
3. Membaca Isi Link List
Ada dua jenis untuk membaca isi link list yaitu membaca maju dan membaca
mundur.
Lab. Teknik Informatika – Struktur Data 8