"Wahai jin dan manusia, jika kalian mampu menembus penjuru langit dan bumi, tembuslah! Kalian tidak dapat menembusnya kecuali dengan kekuatan (ilmu)." (Ar-Rahman:33)

Disini saya akan membagi sedikit tentang linked list atau biasa disebut one-way list, senarai bertaut atau senarai berantai . pasti tidak asing bagi temen2 yang belajar struktur data. kadang-kandang kita dibuat termehek-mehek oleh tutorial yang ada. begitu kompleknya. jadi kita bingung dibuatnya tp saya akan menjelaskan contoh sederhana tentang linked list. yaitu tambah data dan tampilkan data.

Kekurangan dan kelebihan

Kita ga harus mengalokasikan memory secara manual untuk menyimpan data. tp mengalokasian memori dilakukan secara otomatis oleh pointer. tp kekurangan penyimpanan secara dinamik lebih berat dari pada penyimpanan secara statis. karena pointer harus mengalokasikan tempat penyimpanan di memori terlebih dahulu.

1. Petama tama kita deklarasikan pointer dan record


type
 ptr = ^data;
 data = record
 nilai:Integer;
 berikutnya:ptr;
 end;

var
 awal, akhir: ptr;

2. kemudian membuat prosedure tambah data

 procedure tambahNilai(nilai : integer);
 var
 baru:ptr;
 begin
 new(baru);
 baru^.nilai := nilai;
 if awal = nil then
 akhir:=baru
 else
 baru^.berikutnya:=awal;
 awal:=baru;
 end;

3. lalu membuat prosedure tampilin data

 procedure cetakNilai;
 var
 posisi:ptr;
 begin
 posisi:=awal;
 repeat
 writeln(posisi^.nilai);
 posisi:=posisi^.berikutnya;
 until posisi= nil;
 end;

4. dan terakhir menguji coba dan memanggil procedure

begin
 tambahNilai(2);
 tambahNilai(4);
 tambahNilai(5);
 tambahNilai(1);
 tambahNilai(7);
 cetakNilai;
 readln;
 end.

Cukup simple jadi tidak usah saya jelasin, dengan melihat sourcecode atas insya’allah pasti anda sudah paham. jika ada pertanyaan bisa isi komentar dibawah. Senang Bisa berbagi Trimakasih. ^_^

Contoh aplikasi sederhana yang lebih komplek
penyewaanKomik11.zip (untuk paswordnya tolong tulis email di kolom komentar dibawah ini)

Advertisements

Comments on: "Tutorial Pascal: How to use Linked List in pascal" (1)

  1. narpris said:

    saya minta passwordnya email saya : narpris@gmail.com

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s

%d bloggers like this: