Tugas Praktikum Ke-7 Algoritma Pemrograman II

1. Source Code
      uses crt;
   type pointer=^typedata;
   Typedata = record
   nilai : integer;
   berikutnya : pointer;
   end;

  var list :pointer;

   procedure mas_dep(var L : pointer; x : Integer);
   var baru : pointer;

   begin
   new(baru);
   baru^.Nilai:=x;
   baru^.Berikutnya:= nil;
   if L= nil then L:=baru
   else
   begin
   baru^.berikutnya :=L;
   L:= baru;
   end;
  end;

  procedure cetak (L:pointer);
  var bantu : pointer;
  begin
   bantu:= L;
   while bantu <> nil do
   begin
   write (bantu^.Nilai:3);
   Bantu:=bantu^.Berikutnya;
    end;
   end;

   var bil, bil2 : integer;
   JB : char;

   begin
   clrscr;
   new(list);
   list:=nil;
   jb:='Y';
   writeln;
   writeln ('   "Program Linked List"   ');
   writeln;
   writeln ('- Masuk depan');
   while upcase(Jb)='Y' do
   begin
   writeln;
    write ('Masukkan bilangan : '); readln(bil);
    mas_dep(list,bil);
    write ('Lagi [Y/T]  : '); readln(Jb);
    end;
    writeln;
    cetak(list);

  readln;
  end.

2. Output Program