Contoh Program Pascal Linked List

Pendahuluan

Linked list adalah salah satu struktur data yang penting dalam pemrograman. Dalam bahasa Pascal, linked list dapat digunakan untuk menyimpan dan mengakses kumpulan data secara dinamis. Dalam artikel ini, akan diberikan contoh program Pascal yang menggunakan linked list.

Persiapan

Sebelum memulai, pastikan Anda telah menginstal kompiler Pascal di komputer Anda. Ada berbagai kompiler Pascal yang tersedia secara gratis, seperti Free Pascal atau Turbo Pascal. Setelah itu, buatlah file program baru dengan ekstensi .pas dan buka file tersebut menggunakan editor teks yang Anda sukai.

Membuat Tipe Data Node

Untuk memulai, pertama-tama kita perlu membuat tipe data node yang akan digunakan dalam linked list. Tipe data node ini akan memiliki dua bagian, yaitu data dan pointer ke node berikutnya.

“`pascaltypeNode = recorddata: integer;next: ^Node;end;“`

Dalam contoh di atas, tipe data Node memiliki dua anggota, yaitu data bertipe integer dan next bertipe pointer ke Node. Pointer next akan menunjuk ke node berikutnya dalam linked list.

Artikel Lain:  Sinopsis Novel Salah Pilih

Membuat Fungsi untuk Mengisi Node Baru

Setelah membuat tipe data Node, kita perlu membuat fungsi yang dapat digunakan untuk mengisi node baru dengan data yang diinginkan. Fungsi ini akan mengembalikan pointer ke node baru tersebut.

“`pascalfunction createNode(data: integer): ^Node;varnewNode: ^Node;beginnew(newNode);newNode^.data := data;newNode^.next := nil;createNode := newNode;end;“`

Dalam contoh di atas, fungsi createNode akan menerima satu parameter yaitu data yang ingin dimasukkan ke dalam node baru. Fungsi ini akan mengalokasikan memori untuk node baru menggunakan perintah new, mengisi data pada node baru, dan mengatur pointer next menjadi nil.

Membuat Fungsi untuk Menambahkan Node ke Linked List

Selanjutnya, kita perlu membuat fungsi yang dapat digunakan untuk menambahkan node baru ke dalam linked list. Fungsi ini akan menerima linked list yang sudah ada dan data yang ingin ditambahkan sebagai parameter.

“`pascalprocedure addNode(var head: ^Node; data: integer);varnewNode, tempNode: ^Node;beginnewNode := createNode(data);if head = nil thenbeginhead := newNode;endelsebegintempNode := head;while tempNode^.next nil dobegintempNode := tempNode^.next;end;tempNode^.next := newNode;end;end;“`

Dalam contoh di atas, prosedur addNode akan menerima dua parameter yaitu head linked list yang sudah ada dan data yang ingin ditambahkan. Jika linked list masih kosong, maka node baru akan menjadi head. Jika tidak, maka prosedur akan mencari node terakhir dalam linked list dan menambahkan node baru setelahnya.

Artikel Lain:  Susunan Ibadat Harian Katolik

Membuat Fungsi untuk Menampilkan Linked List

Setelah menambahkan node baru ke dalam linked list, kita perlu membuat fungsi yang dapat digunakan untuk menampilkan isi dari linked list tersebut.

“`pascalprocedure displayList(head: ^Node);vartempNode: ^Node;begintempNode := head;if tempNode = nil thenbeginwriteln(‘Linked list kosong’);endelsebeginwriteln(‘Isi linked list:’);while tempNode nil dobeginwrite(tempNode^.data, ‘ ‘);tempNode := tempNode^.next;end;writeln;end;end;“`

Dalam contoh di atas, prosedur displayList akan menerima satu parameter yaitu head linked list. Jika linked list kosong, maka akan ditampilkan pesan bahwa linked list kosong. Jika tidak, maka semua data dalam linked list akan ditampilkan.

Contoh Penggunaan

Setelah menyiapkan semua fungsi yang diperlukan, kita dapat menggunakan linked list pada program Pascal kita. Berikut adalah contoh penggunaan linked list:

“`pascalprogram ContohLinkedList;varhead: ^Node;beginhead := nil;addNode(head, 1);addNode(head, 2);addNode(head, 3);displayList(head);end.“`

Dalam contoh di atas, program akan membuat linked list kosong, menambahkan tiga node ke dalam linked list menggunakan fungsi addNode, dan menampilkan isi linked list menggunakan fungsi displayList. Output yang dihasilkan adalah:

“`Isi linked list:1 2 3“`

Kesimpulan

Linked list adalah salah satu struktur data yang penting dalam pemrograman. Dalam bahasa Pascal, linked list dapat digunakan untuk menyimpan dan mengakses kumpulan data secara dinamis. Dalam contoh program Pascal di atas, kita telah melihat bagaimana cara membuat, menambahkan, dan menampilkan linked list menggunakan tipe data record dan pointer.

Artikel Lain:  Marilah Kita Bangkit dengan Segera

Dengan menggunakan contoh program Pascal linked list ini, Anda dapat mengembangkan program-program lain yang membutuhkan struktur data linked list. Selamat mencoba!

Leave a Comment