Link List

Program Link List

1. Source Code

Program Linked_list;
Uses crt;
Type
    Pointer = ^TypeData;
    TypeData = Record
    Nilai1 : integer;
    Nilai2 : Pointer;
End;

Var
    List,baru : Pointer;

Procedure Masuk_awal(var L : pointer; x:integer);
Begin
    New(baru);
    Baru^.nilai1 := x;
    Baru^.nilai2 :=  nil;
    If L = nil then L:=baru
    else
    begin
        Baru^.nilai2:=l;
        L:=baru;
    end;
end;

Procedure tampil(L:pointer);
Var
    Bantu : pointer;
Begin
    Bantu:=L;
    While bantu <> nil do
    Begin
       Write(Bantu^.nilai1:3);
       Bantu:=Bantu^.nilai2;
    End;
End;

Var
    Bil1, bil2 : integer;
    JB : char;

Begin
    Clrscr;
    New(list);
    List:=nil;
    Jb:='Y';
    Writeln('^^^MASUK AWAL^^^');
    While Upcase(Jb)='Y' do
    Begin
        Write('Masukkan Angka : '); readln(bil1);
        Masuk_Awal(List,bil1);
        Write('Lagi [Y/T] '); readln(Jb);
    End;
    Tampil(list);
    Writeln;
    Readln;
End.

2. Scren Shoot

1.1  Perintah input angka
 
            Gambar 1. Tampilan awal
1.2    Tampilan akhir
 
        Gambar 2. Hasil program