Program Data Mahasiswa Dengan Link List

• Nama : Program Data Mahasiswa Dengan Link List
• Bahasa : Pascal
• Software : Free Pascal IDE
• Deskripsi : Program ini dibuat dengan menggunakan link list dengan inputan dari depan.
• Screenshot :
  
  Gambar 1. Tampilan awal
   
  Gambar 2. Proses Penginputan
   
  Gambar 3. Ketika menjawab "Y"
   
  Gambar 4. Ketika menjawab "T"

• Source Code :

uses crt; type   node   =^data;   data   =record     nim  :string;     nama :string;     next :node;   end; var   baru,bantu,ptr :node;   i      :integer;   jwb    :char;   nama,nim :string; procedure input(var p:pointer;nim:string;nama:string);   begin     new(baru);     baru^.nim :=nim;     baru^.nama:=nama;     baru^.next:=nil;     if p=nil then       p:=baru       else begin         baru^.next:=p;         p:=baru;       end;   end; procedure output(p:pointer);  begin   bantu:=p;   i:=1;   while bantu<>nil do     begin       writeln('Data ke-',i);       writeln('  NIM    : ',bantu^.nim);       writeln('  Nama   : ',bantu^.nama);       bantu:=bantu^.next;       i:=i+1;     end;   end; begin   clrscr;   new(ptr);   ptr:=nil;   jwb:='Y';   writeln('>> Program Data Mahasiswa <<');   writeln('>> Link List Dari Depan <<');   writeln;   writeln('>> Input');   while jwb='Y' do     begin       write  ('Input NIM    : ');readln(nim);       write  ('Input Nama   : ');readln(nama);       input(ptr,nim,nama);       write  ('Lagi [Y/T]   : ');jwb:=upcase(readkey);       writeln(jwb);       writeln;     end;   writeln('>> Output');   output(ptr);   readkey; end.

Read More