REVIEW WEBSITE MEDIAKOMEN.COM || WEBSITE DAFTAR JADI BUZZER || PENGHASIL UANG VIA WEBSITE || RECEHAN REVIEW WEBSITE MEDIAKOMEN.COM || WEBSITE DAFTAR JADI BUZZER || PENGHASIL UANG VIA WEBSITE || RECEHAN REVIEW WEBSITE MEDIAKOMEN.COM || WEBSITE DAFTAR JADI BUZZER || PENGHASIL UANG VIA WEBSITE || RECEHAN REVIEW WEBSITE MEDIAKOMEN.COM || WEBSITE DAFTAR JADI BUZZER || PENGHASIL UANG VIA WEBSITE || RECEHAN #REVIEWWEBSITE #penghasiluang #receh Berikut Link Webistenya : https://www.mediakomen.com/ 0:00:00 ▼ EXPAND FOR NAVIGATION ▼ 0:01 CH 0: Opening 0:08 CH 1: Story 0:10 CH 2: Closing
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.
Komentar
Posting Komentar