tugas struktur data

program record_degung;

uses crt;

type   barang = record

       nama,  kd_barang: string;

       harga, jumlah : integer;

end;

var jual : barang;

begin

clrscr;

write('Masukkan Kode Barang:'); readln (jual.kd_barang);

write('Masukkan Nama Barang:'); readln (jual.nama);

write('Masukkan Harga Barang:'); readln (jual.harga);

write('Masukkan Jumlah  Barang:'); readln (jual.jumlah);

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

writeln ('Kode Barang :', jual.kd_barang);

writeln ('Nama :', jual.nama);

writeln ('Harga :', jual.harga);

writeln ('Jumlah :',jual.jumlah);

readln;

end.

program record_array_sujana;

uses crt;

type Mhs = record

     Nim, Nama, Alamat : string;

end;

var M : Mhs;

Data : array [1..3] of Mhs;

begin clrscr;

writeln(' Data ke-1');

write('Masukkan NIM:'); readln (data[1].Nim);

write('Masukkan Nama:'); readln (data[1].Nama);

write('Masukkan Alamat:'); readln (data[1].Alamat);

writeln(' Data ke-2');

write('Masukkan NIM:'); readln (data[2].Nim);

write('Masukkan Nama:'); readln (data[2].Nama);

write('Masukkan Alamat:'); readln (data[2].Alamat);

writeln(' Data ke-3');

write('Masukkan NIM:'); readln (data[3].Nim);

write('Masukkan Nama:'); readln (data[3].Nama);

write('Masukkan Alamat:'); readln (data[3].Alamat);

writeln('DATA MAHASISWA KE-1');

writeln('NIM :', data[1].Nim);

writeln('Nama :', data[1].Nama);

writeln('Alamat :', data[1].Alamat);

writeln('DATA MAHASISWA KE-2');

writeln('NIM :', data[2].Nim);

writeln('Nama :', data[2].Nama);

writeln('Alamat :', data[2].Alamat);

writeln('DATA MAHASISWA KE-3');

writeln('NIM :', data[3].Nim);

writeln('Nama :', data[3].Nama);

writeln('Alamat :', data[3].Alamat);

readln;

end.