1 / 19

Senarai Berantai

Senarai Berantai. Adalah salah satu struktur data dinamis yang paling sederhana (linked list) atau juga disebut senarai satu arah ( one way list). DEKLARASI VARIABEL PADA SENARAI BERANTAI :. Type Simpul = ^Tali ; Tali = record Info : char; Berikut : Simpul end;

misae
Download Presentation

Senarai Berantai

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Senarai Berantai Adalah salah satu struktur data dinamis yang paling sederhana (linked list) atau juga disebut senarai satu arah ( one way list).

  2. DEKLARASI VARIABEL PADA SENARAI BERANTAI : Type Simpul = ^Tali ; Tali = record Info : char; Berikut : Simpul end; Var elemen : char ; Awal, Akhir, Baru : Simpul;

  3. Masing – masing komponen dinamakan dengan simpul (node). • Setiapsimpuldalamsuatusenaraiberantaiterbagimenjadiduabagian : • Medan informasiberisiinformasi yang disimpandandiolah. • Medan penyambung (linked field) berisialamatsimpulberikutnya. A B C D E F Awal Gambar contoh senarai berantai dengan 6 simpul

  4. OPERASI PADA SENARAI BERANTAI • MENAMBAH : • Menambahdibelakang • Menambahdidepan • Menambahditengah • MENGHAPUS : • Menghapussimpulpertama • Menghapussimpulditengah • Menghapussimpuldiakhir • 3. MEMBACA : • Membacamaju • Membacamundur • 4. MENCARI DATA

  5. Illustrasi Penambahan Simpul di Belakang a. Awal Baru Akhir B C D F A A B D F b. Akhir^.Berikut := Baru ; Awal Baru Akhir C

  6. c. Akhir:= Baru ; Akhir^.Berikut := nil Awal Baru Akhir A B D F C Procedure tambah_belakang(var Awal, akhir : simpul; elemen : char ); Var Baru : simpul ; Begin new(baru); baru^.info:=elemen; akhir^.berikut := baru; akhir:=baru; akhir^.berikut:= nil; End;

  7. Procedure tambah_belakang(var Awal, akhir : simpul; elemen : char ); Var Baru : simpul ; Begin new(Baru);Baru^.Info := Elemen ; if Awal := nil then Awal := Baru else Akhir^.Berikut := Baru ; Akhir := Baru; Akhir^.Berikut := nil ; End;

  8. Illustrasi Penambahan Simpul di Awal a. Awal Baru Akhir C D A F D C B F b. Baru^.Berikut := Awal ; Awal Baru Akhir A B

  9. c. Awal:= Baru ; Baru Awal Akhir C D F A B Procedure tambah_depan(var Awal, akhir : simpul; elemen : char ); Var Baru : simpul ; Begin new(Baru);Baru^.Info := Elemen ; if Awal := nil then Akhir := Baru else Baru^.Berikut := Awal; Awal := Baru; End;

  10. Illustrasi Penambahan Simpul di Tengah Awal Bantu Akhir a. B A A B D F Baru C b. Baru^.Berikut := Bantu^.Berikut; Awal Bantu Akhir D F Baru C

  11. b. Bantu^.Berikut := Baru ; Awal Bantu Akhir A D B F Baru C

  12. Procedure tambah_depan(var Awal, akhir : simpul; elemen : char ); Var bantu,Baru : simpul ; Begin new(baru); baru^.info:=elemen; bantu:=awal; {mencari posisi dimana elemen akan disisipkan} while baru^.info>bantu^.berikut^.info do bantu:=bantu^.berikut; baru^.berikut:=bantu^.berikut; bantu^.berikut:=baru; end;

  13. Illustrasi Penghapusan Simpul di Pertama a. C D A B B D A Bantu Awal Akhir b. Awal:= Bantu^.Berikut; Bantu Awal Akhir C

  14. c. Dispose(bantu); Awal Akhir A B C D F B D C Illustrasi Penghapusan Simpul di tengah Bantu:=Awal^.Berikut; Hapus:=Bantu^.Berikut; a. Hapus Awal Bantu Akhir

  15. Bantu^.Berikut:=Hapus^.Berikut; b. Hapus Awal Bantu Akhir D F C A D F A B Dispose(hapus); c. Awal Bantu Akhir B

  16. Illustrasi Penghapusan Simpul di akhir Bantu:=Bantu^.Berikut; a. C D A C F B D F B A Awal Bantu Akhir Akhir:=Bantu; b. Awal Bantu Akhir

  17. Bantu^.Berikut = nil; c. Awal Bantu Akhir A B D C F

  18. Illustrasi Pembacaan Maju Bantu:=Bantu^.Berikut;Writeln(Bantu^.Info); a. Awal Bantu Akhir A C F D B F Illustrasi Pembacaan Mundur Bantu:=Bantu^.Berikut; a. Awal Bantu Akhir C D A B

More Related