Berlatih Membuat Program Pascal Bagian 8

Pada bagian ini kita akan berlatih membuat kumpulan variabel yang terdiri dari element tidak sama. Bila dibagian 7 anda memahami array yang merupakan kumpulan variabel dengan tipe sama. Kali ini lebih bebas sebab boleh menggunakan elemen data yang tidak sama disebut record.

Record memiliki masing-masing item data yang disebut dengan field. Setiap field dapat dibentuk dari variabel bertipe standar seperti real, integer, char, atau string tetapi boleh juga bila dibentuk dari array ataupun record yang lain.

Contohnya seperti berikut:
Type
Siswa = RECORD
    nama:string[20];
    usia:integer;
    jeniskelamin:char;
end;

Penulisn record harus diawali dengan Type dan ditutup dengan end. Pada record bisa juga dibentuk dari alternatif pilihan item yang telah dibuat atau disebut dengan invariate. Contohnya sebagai berikut:
Type
Siswa = RECORD
   nama: string[20];
   case kelas:char of
    'A' :(... );
    'B' :(... );
end;

Contoh kode programnya sebagai berikut:

program latih8;

uses crt;

type
pegawai = record
nip      : string[6];
nama   : string[15];
gaji     : real;
end;

var
karyawan : pegawai;

procedure inputData;
begin
  with karyawan do
  begin
    write('Nomor pegawai        :'); readln(nip);
    write('Nama pegawai         :'); readln(nama);
    write('Gaji pegawai (angka) :'); readln(gaji);
  end;
end;

procedure tampilkanData;
begin
  with karyawan do
  begin
    writeln('=======================================');
    writeln('nip    nama            gaji');
    writeln(nip:7-length(nip),' ',nama:16-length(nama),' ',gaji:5:0);
  end;
end;

BEGIN
clrscr;
inputData;
tampilkanData;
readln;
END.

Hasil tampilan program diatas sebagai berikut:
Berlatih Membuat Program Pascal Bagian 8
Hasil .exe dari kode diatas dapat anda unduh disini

Posting Komentar