Record
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:
Posting Komentar