Latihan 4 Struktur Data

Contoh 1

program lat_recor;

{$APPTYPE CONSOLE}

uses

  SysUtils;

type  mahasiswa=record

      nim:integer;

      nama,jurusan,alamat:string;

end;

var mhs1,mhs2,mhs3,mhs4,mhs5:mahasiswa;

begin

      writeln('----------------------');

      writeln('input data mahasiswa 1');

      writeln('----------------------');

      write('nim mhs1     : ');readln(mhs1.nim);

      write('nama mhs1    : ');readln(mhs1.nama);

      write('jurusan mhs1 : ');readln(mhs1.jurusan);

      write('alamat mhs1  : ');readln(mhs1.alamat);

      writeln;

      writeln('----------------------');

      writeln('input data mahasiswa 2');

      writeln('----------------------');

      write('nim mhs2     : ');readln(mhs2.nim);

      write('nama mhs2    : ');readln(mhs2.nama);

      write('jurusan mhs2 : ');readln(mhs2.jurusan);

      write('alamat mhs2  : ');readln(mhs2.alamat);

      writeln;

      writeln('----------------------');

      writeln('input data mahasiswa 3');

      writeln('----------------------');

      write('nim mhs3     : ');readln(mhs3.nim);

      write('nama mhs3    : ');readln(mhs3.nama);

      write('jurusan mhs3 : ');readln(mhs3.jurusan);

      write('alamat mhs3  : ');readln(mhs3.alamat);

      writeln;

      writeln('----------------------');

      writeln('input data mahasiswa 4');

      writeln('----------------------');

      write('nim mhs4     : ');readln(mhs4.nim);

      write('nama mhs4    : ');readln(mhs4.nama);

      write('jurusan mhs4 : ');readln(mhs4.jurusan);

      write('alamat mhs4  : ');readln(mhs4.alamat);

      writeln;

      writeln('----------------------');

      writeln('input data mahasiswa 5');

      writeln('----------------------');

      write('nim mhs5     : ');readln(mhs5.nim);

      write('nama mhs5    : ');readln(mhs5.nama);

      write('jurusan mhs5 : ');readln(mhs5.jurusan);

      write('alamat mhs5  : ');readln(mhs5.alamat);

      writeln;

      writeln;

      writeln('                  DAFTAR MAHASISWA                       ');

      writeln('=========================================================');

      writeln('|    nim    |     nama     |    jurusan    |    alamat   |');

      writeln('=========================================================');

      writeln(mhs1.nim:10,mhs1.nama:13,mhs1.jurusan:15,mhs1.alamat:15);

      writeln(mhs2.nim:10,mhs2.nama:13,mhs2.jurusan:15,mhs2.alamat:15);

      writeln(mhs3.nim:10,mhs3.nama:13,mhs3.jurusan:15,mhs3.alamat:15);

      writeln(mhs4.nim:10,mhs4.nama:13,mhs4.jurusan:15,mhs4.alamat:15);

      writeln(mhs5.nim:10,mhs5.nama:13,mhs5.jurusan:15,mhs5.alamat:15);

      readln;

  { TODO -oUser -cConsole Main : Insert code here }

end.

Contoh 2

program lat2_recor;

{$APPTYPE CONSOLE}

uses

  SysUtils;

type  penjualan=record

      kode,harga:integer;

      barang:string;

end;

var jual1,jual2,jual3:penjualan;

begin

      writeln('----------------------');

      writeln('input data penjualan 1');

      writeln('----------------------');

      write('kode jual1   : ');readln(jual1.kode);

      write('barang jual1 : ');readln(jual1.barang);

      write('harga jual1  : ');readln(jual1.harga);

      writeln;

      writeln('----------------------');

      writeln('input data penjualan 2');

      writeln('----------------------');

      write('kode jual2   : ');readln(jual2.kode);

      write('barang jual2 : ');readln(jual2.barang);

      write('harga jual2  : ');readln(jual2.harga);

      writeln;

      writeln('----------------------');

      writeln('input data penjualan 3');

      writeln('----------------------');

      write('kode jual3   : ');readln(jual3.kode);

      write('barang jual3 : ');readln(jual3.barang);

      write('harga jual3  : ');readln(jual3.harga);

      writeln;

      writeln;

      writeln('            DAFTAR PENJUALAN                ');

      writeln('   ============================');

      writeln('   |  kode  |  barang  | harga |');

      writeln('   ============================');

      writeln(jual1.kode:10,jual1.barang:10,jual1.harga:10);

      writeln(jual2.kode:10,jual2.barang:10,jual2.harga:10);

      writeln(jual3.kode:10,jual3.barang:10,jual3.harga:10);

      writeln;

      writeln('TOTAL HARGA : ',jual1.harga+jual2.harga+jual3.harga);

      readln;

  { TODO -oUser -cConsole Main : Insert code here }

end.