Contoh Program Linked List

  1. Screenshot Program

a. Tampilan saat program dijalankan

(gambar 1)

b. Tampilan saat menginput jumlah bilangan

(gambar 2)

c. Tampilan saat menekan ENTER

(gambar 3)

d. Tampilan saat ingin melanjutkan input data

(gambar 4)

e. Tampilan saat menekan ENTER

(gambar 5)

f. Tampilan saat menginputkan jumlah bilangan

(gambar 6)

g. Tampilan saat menekan ENTER

(gambar 7)

h. Tampilan saat tidak ingin melanjutkan input bilangan

(gambar 8)

i. Tampilan hasil dari inputan data

(gambar 9)

2. Source Code

2.      uses crt; 3.        type pointer=^typedata; 4.        TYPEDATA = RECORD 5.         NILAI : INTEGER; 6.         BERIKUTNYA : POINTER; 7.         end; 8.        9.        10.    var list :pointer; 11.    12.    procedure mas_dep(var L : pointer; x : Integer); 13.    var baru : pointer; 14.    15.   begin 16.    new(baru); 17.    baru^.Nilai:=x; 18.    baru^.Berikutnya:= nil; 19.    if L= nil then L:=baru 20.    else 21.    begin 22.    baru^.berikutnya :=L; 23.    L:= baru; 24.    end; 25.   end; 26.    27.   procedure cetak (L:pointer); 28.   var bantu : pointer; 29.   begin 30.    bantu:= L; 31.    while bantu <> nil do 32.    begin 33.    write (bantu^.Nilai:3); 34.    Bantu:=bantu^.Berikutnya; 35.     end; 36.    end; 37.    38.    var bil, bil2 : integer; 39.    JB : char; 40.    41.    begin 42.    clrscr; 43.    new(list); 44.    list:=nil; 45.    jb:='Y'; 46.    writeln; 47.    writeln (' +++program linked List+++'); 48.    writeln; 49.    writeln ('  Masuk depan'); 50.    while upcase(Jb)='Y' do 51.    begin 52.    writeln; 53.     write ('Masukkan bilangan : '); readln(bil); 54.     mas_dep(list,bil);      write ('Lagi [Y/T]  : '); readln(Jb);      end;      cetak(list);      writeln; readln;    end.