Scribd
Unggah
6 tayangan2 halaman

Program Hitung Gaji Karyawan

Program ini menghitung gaji karyawan berdasarkan golongan dan absensi. Terdapat tiga golongan dengan gaji pokok dan tunjangan yang berbeda. Setelah input data, program menghitung total gaji dan menampilkannya.

Diunggah oleh

Risky Rinaldo Syafputra
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 PDF, TXT atau baca online di Scribd
6 tayangan2 halaman

Program Hitung Gaji Karyawan

Program ini menghitung gaji karyawan berdasarkan golongan dan absensi. Terdapat tiga golongan dengan gaji pokok dan tunjangan yang berbeda. Setelah input data, program menghitung total gaji dan menampilkannya.

Diunggah oleh

Risky Rinaldo Syafputra
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 PDF, TXT atau baca online di Scribd

program gaji_karyawan;

uses crt;

var

kd_karyawan, nm_karyawan, gol: string [ 25] ;


tunjangan, gapok, tot_gaji: double,
absensi integer;

begin
clrscr;
writeln('Program Hitung Gaji Karyawan')
1 writeln('.
2
3 write('Kode Karyawan: '); readln (kd_karyawan
4 write('Nama Karyawan:); readin (nm_karyawan
write(' Golongan (A/B/C): '); readln (gol);
6
if gol = 'A' then
begin
gapok := 5000000;
0 tunjangan := 1500000;
1 end
!2 else if gol = 'B' then
3 begin
24 gapok := 3500000;
25 tunjangan := 1000000 ;
26 end
27 else if gol = 'C' then
28 begin
29 gapok := 2500000;
30 tunjangan := 750000 ;
31 end
32 else
33 begin
34 writeln (' Golongan tidak valid!')
35 exit;
36 end;
37
38 write('Absensi : ) readln( absensi):
39
40 tot_gaji := (absensi * 35000 + gapok + tunjang
41
42 writeln("
43 writeln(' Kode Karyawan kd_karyawan
44 writeln('Nama Karyawan nm_karyawan
45 writeln('Golongan gol
46 writeln('Gaji Pokok gapok: 0:2);
)
[Link] X
tugas_latihan_coding.pas X
begin
clrscr;
writeln(' Program Hitung Gaji
1
2
writeln( Karyawan' )
write('Kode Karyawan:
4
write('Nama Karyawan: ); readln
readln
(kd_karyawan
(nm_karyawan
6
write(' Golongan (A/B/C): ) readln (gol)
7 if gol = 'A' then
begin
gapok :=5000000:
tunjangan := 1500000
end
2 else if gol = 'B' then
3 begin
4
5
gapok 3500000:
tunjangan := 1000000
end
7 else if gol = 'C' then
3 begin
gapok := 2500000;
tunjangan := 750000 ;
| end
else
begin
writeln(' Golongan tidak valid!')
exit;
end:

write('Absensi: ); readln (absensi


) tot_gaji := absensi * 35000) gapok + tunjan
writeln("
writeln('Kode Karyawan kd_karyawan
writeln('Nama Karyawan nm_karyawan
writeln(' Golongan gol);
writeln(' Gaji Pokok gapok: 0:2);
writeln(' Tunjangan tunjangan: 0:2) ;
writeln('Total Gaji tot_gaji:0:2);
writeln(!.

readln;
end.

Anda mungkin juga menyukai