Contoh program record

Di bawah ini merupakan listing program me-record data karyawan.

program list;  {untuk menampilkan list data karyawan}
 
uses wincrt;
type karyawan=record
  nama: string;
  kelamin: string;
  alamat : string;
end;
var kry: karyawan;
begin
  clrscr;
  write('Masukkan Nama: '); readln(kry.nama);
  write('Masukkan Jenis Kelamin: '); readln(kry.kelamin);
  write('Masukkan Alamat: '); readln(kry.alamat);
  {untuk memasukkan data karyawan}
  writeln(kry.nama);
  writeln(kry.kelamin);
  writeln(kry.alamat);
  {untuk menampilkan data karyawan}
end.

Program Nama_karyawan;
uses wincrt;

Type
karyawan = record
nama,jabat,gol : string;
jumlah,noa : integer;
gaji : longint;
end;

var
pekerja: karyawan;
i,n,o: integer;

begin
     write('INPUT JUMLAH DATA KARYAWAN = ');readln(n);
     writeln('MASUKKAN SEJUMLAH ',n,' DATA');
writeln;

begin
for i := 1 to n do

begin
writeln('Data ke',i);
write ('Input Nama   :: ');
readln(pekerja.nama);
write ('Input NIK    :: ');
readln(pekerja.noa);
write('Golongan      :: ');
readln(pekerja.gol);
writeln('Jabatan       :: ');
clrscr;
end;


begin
writeln('DAFTAR NAMA-NAMA KARYAWAN');
writeln('PT. XYZ');
writeln('=========================');
WRITELN;
writeln('No.  Nama Karyawan  NIK       Golongan     Jabatan      Gaji');
writeln('==============================================================');


begin
if (pekerja.gol='a') then
begin
pekerja.Jabat :='Direktur';
pekerja.gaji:=500;
end
else if (pekerja.gol='b') then
begin
pekerja.Jabat :='Manager';
pekerja.gaji:=400;
end
else if (pekerja.gol='c') then
begin
pekerja.Jabat :='Ass.Manager';
pekerja.gaji:=300;
end
else if (pekerja.gol='d') then
begin
pekerja.Jabat :='Staff';
pekerja.gaji:=200;
end
else if (pekerja.gol='e') then
begin
pekerja.Jabat :='CS';
pekerja.gaji:=100;
end;
o:=0;
for i:= 1 to n do
begin
inc(o);
writeln(o:1,'. ', pekerja.nama:5,' ', pekerja.noa:14,' ', pekerja.gol:11,' ',Pekerja.jabat:12,' ',pekerja.gaji:13);




pekerja.jumlah:=pekerja.jumlah+1;
end;

BEGIN

writeln;


WRITELN('JUMLAH KARYAWAN SEBANYAK ',pekerja.JUMLAH,' ORANG');
end;end;
end;

end;
end.

Demikian Listing program tentang contoh program record, Semoga bermanfaat ya. Baca juga contoh konsep if else.