Linked List (daftar berkait) adalah suatu node
(simpul) yang menunjuk ke node (simpul) berikutnya dalam suatu urutan. Suatu
node minimal harus mempunyai 2 komponen, yaitu:
1.
Satu atau lebih field yang berisi data di daftar
berkait.
2.
Satu atau lebih field berupa pointer yang
menunjuk ke node lainnya. Field yang berupa pointer ini disebut dengan link.
Berikut ini salah satu contoh program menggunakan link list
|
program
linked_list;
uses
crt;
type
ptrdata = ^recorddata;
recorddata = record
item : string;
berikut : ptrdata
end;
var
pd : ptrdata;
elem : string;
procedure
node_baru(var baru: ptrdata; elemen: string);
var
ps: ptrdata;
Begin
new(ps);
new(baru);
baru^.item := elemen;
baru^.berikut := nil;
End;
Procedure
tambah_depan(Var depan : ptrData; elemen : string);
Var ps :ptrdata;
Begin
new(ps);
new(depan);
node_baru(ps,elemen);
ps^.berikut :=
pd;
pd:=ps ;
End;
BEGIN
clrscr;
new(pd);
elem := 'Nama : Nurul Annisa';
tambah_depan(pd, elem);
writeln(pd^.item);
elem := 'NIM : J1F114054';
tambah_depan(pd, elem);
writeln(pd^.item);
writeln;
elem := 'Nama : Nur Dina';
tambah_depan(pd, elem);
writeln(pd^.item);
elem := 'NIM : J1F114051';
tambah_depan(pd, elem);
writeln(pd^.item);
readln;
END.
|
Hasil Output :
Tidak ada komentar:
Posting Komentar