Scribd
Unggah
35 tayangan4 halaman

Program Gaji Pegawai dengan Pascal

Program ini membuat ringkasan gaji pegawai berstatus honorer dan tetap dengan mencatat nama, alamat, umur, status, dan penghitungan gaji sesuai statusnya. Data pegawai diinput dan keluaran berupa tabel gaji lengkap dengan nama, alamat, umur, status, dan penghitungan gaji.

Diunggah oleh

AllyaRahmadanty
Hak Cipta
© All Rights Reserved
Kami menangani hak cipta konten dengan serius. Jika Anda merasa konten ini milik Anda, ajukan klaim di sini.
Format Tersedia
Unduh sebagai DOCX, PDF, TXT atau baca online di Scribd
35 tayangan4 halaman

Program Gaji Pegawai dengan Pascal

Program ini membuat ringkasan gaji pegawai berstatus honorer dan tetap dengan mencatat nama, alamat, umur, status, dan penghitungan gaji sesuai statusnya. Data pegawai diinput dan keluaran berupa tabel gaji lengkap dengan nama, alamat, umur, status, dan penghitungan gaji.

Diunggah oleh

AllyaRahmadanty
Hak Cipta
© All Rights Reserved
Kami menangani hak cipta konten dengan serius. Jika Anda merasa konten ini milik Anda, ajukan klaim di sini.
Format Tersedia
Unduh sebagai DOCX, PDF, TXT atau baca online di Scribd

PROGRAM PASCAL GAJI PEGAWAI

TUGAS

Diajukan untuk memenuhi tugas Teknologi Informasi dan Pemrogaman

Dosen : Deni S.,[Link] ,M.T

Oleh :

Alfina Putri Pertiwi (18020012)


Allyarisna Novia R (18020014)
Dea Dwianty R.S (18020024)
Febrianty A.P (18020035)
1K1\1K2

PROGRAM STUDI KIMIA TEKSTIL

POLITEKNIK STT TEKSTIL

2019
program Gaji_Pegawai;
type Status_pegawai = (Honorer,Tetap);
data_pegawai = record
nama : string[15];
alamat : string[20];
umur : byte;
case status : status_pegawai of
honorer : (gaji_h : real);
tetap : (gaji_t : real;
tunjangan : real;
lembur : real);
end;
var pegawai : array[1..10] of data_pegawai;
banyak,i : integer;
kode : char;
begin
{ input data}
write('Banyak Data max 10 :');readln(banyak);
for i := 1 to banyak do
begin with pegawai[i] do
begin
write('Nama pegawai =');
readln(nama);
write('Alamat =');
readln(alamat);
write('Umur =');
readln(umur);
write('pegawai tetap(T) atau Honorer(H) =');
readln(kode);
kode := upcase(kode);
case kode of 'H' :
begin
Status:=Honorer;
write('Gaji didapat= ');readln(gaji_h);
end;
'T' :
begin
status:= Tetap;
write('gaji tetap = ');
readln(gaji_t);
write('Tunjangan = ');
readln(tunjangan);
write('Lembur = ');
readln(lembur);
end;
end;
end;
end;
{output data}
writeln('o0o0o0o0o0o0o0o0o0o0o0o0o0o0o0o0o0o0>DATA PEGAWAI PT. PELITA
JAYA<0o0oo0o0o0o0o0o0o0o0o0o0o0o0o0o0o0');
writeln('>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>----------------------------
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<');
writeln('----------------------------------------------------------------------------------------------------');
writeln('| Nama | Alamat | Umur | Status | Gaji | Tunjangan Lembur
|');
writeln('----------------------------------------------------------------------------------------------------');
for i:= 1 to banyak do
begin with pegawai[i] do
begin
write(nama:15);
write(alamat:20);
write(umur:3,' ');
case status of
honorer : writeln('Honorer',Gaji_h:8:2);
Tetap :
writeln('Tetap ',Gaji_t:8:2,tunjangan:8:2,lembur:8:2);
end;
end;
end;
writeln('-----------------------------------------------------------------------------------------------------
');
writeln('Dibuat oleh:');
writeln('Alfina Putri Pertiwi (18020012)');
writeln('Allyarisna Novia R (18020014)');
writeln('Dea Dwianty R.S (18020024)');
writeln('Febrianty A.P (18020035)');
readln;
end.

Anda mungkin juga menyukai