Sabtu, 06 Oktober 2012

contoh Array Record

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.

*SELAMAT MENCOBA *

YULIE

Tidak ada komentar:

Posting Komentar