Source Code Program Single Linked List Dengan Menggunakan Bahasa Pemrograman Pascal

Source Code Program Single Linked List Dengan Menggunakan Bahasa Pemrograman Pascal

Ok sob selamat malam, siang, pagi ataupun sore. Kali ini mimin akan membagikan source code program linked list single, program ini juga sering kita jumpai sebagai tugas pada semester-semester awal jika kalian semua kuliah mengambil jurusan teknik informatika, terutama yang dasar pemrogramanya mempelajari bahasa pascal.

Linked list sendiri atau biasa juga disebut senarai berantai adalah suatu data yang saling terhubung antara data satu dengan yang lainnya. Susatu elemen disebut Node dalam linked list dan selalu mempunyai hubungan dengan lingked list berikutnya, bukan sama doi yang satu lagi ya, wkwkwk, upss... 

Nah dalam artikel ini mimin akan memberikan source code single linked list nya aja sob. Langsung aja kita amati dan pastinya ATM (Amati Tiru dan Modifikasi, langsung aja sob : 

========================================================================

Program SingleLinkedList;

uses wincrt;

Type simpul = ^data;

data = record

nama : string[25];

kait : simpul;

end;

var 

awal, akhir, bantu : simpul;

ya : char;

begin

awal := nil;

ya := 'y';

while ya in ['y', 'Y'] do

begin

new (bantu);

write('Masukan Nama : '); readln(bantu^.nama);

write('Tambah data lagi [Y/N] : ?'); readln(ya);

writeln;

if awal = nil then

begin

bantu^.kait := nil;

awal := bantu;

akhir := bantu;

end

else

begin

akhir^.kait := bantu;

bantu^.kait := nil;

akhir := bantu;

end;

end;

bantu := awal;

writeln(bantu^.nama);

while bantu^.kait <> nil do

begin

bantu := bantu^.kait;

writeln(bantu^.nama);

end;

readln;

end.

========================================================================

OUTPUT

Source Code Progran Single Linked List Dengan Menggunakan Bahasa Pemrograman Pascal

========================================================================

Nah itulah sob source code yang kali ini mimin bagikan, semoga bermanfaat dan jangan lupa komen bila ada yang ingin ditanyakan, insyalloh dijawab.