Menghitung Gaji Karyawan | Pascal | Array - Record

     Lagi-lagi dapat tugas Program Dasar dari kampus... Kali ini disuruh membuat kombinasi dari type data array dan record untuk menghitung gaji karyawan, berdasarkan ketentuan dosen. Namun semuanya dapat diatasi, dan programnya sukses. Beruntung cuma saya aja yang lolos. Ketentuannya sebagai berikut.

  1. Status Menikah:
    - Tunjangan = 25% x gaji pokok
    - Uang Lembur = 25.000 x jam lebih
    - Gaji Bersih = gaji pokok + tunjangan + uang lembur

  2. Status Belum Menikah:
    - Tunjangan = 15% x gaji pokok
    - Uang Lembur = 20.000 x jam lebih
    - Gaji Bersih = gaji pokok + tunjangan + uang lembur


Ini lho rahasianya:
program karyawan;
uses wincrt;
type
gaji_kar = record
status : string;
end;
var
gaji_karyawan : array[1..2] of gaji_kar;
a : integer;
bersih1 : real;
bersih2 : real;
tunj1 : real;
tunj2 : real;
lembur1 : real;
lembur2 : real;
pokok : real;
lebih : real;
begin
for a:= 1 to 2 do
begin
with gaji_karyawan[a] do
begin
writeln('Record ke- : ',a);
write('Gaji Pokok = '); readln(pokok);
write('Jam Lebih = '); readln(lebih);
write('Status (D: Menikah, S: Single)= '); readln(status);
if status='D' then
begin
tunj1 :=(pokok*0.25);
lembur1 :=lebih*25000;
bersih1 :=pokok+tunj1+lembur1;
end
else
begin
tunj2 :=pokok*0.15;
lembur2 :=lebih*20000;
bersih2 :=pokok+tunj2+lembur2;
end;
writeln;
end;
end;
{cetak}
begin
gotoxy(15,12);writeln('Daftar Gaji Karyawan');
gotoxy(0,13);writeln('------------------------------------------------');
gotoxy(5,14);writeln('Tunjangan');
gotoxy(20,14);writeln('Uang Lembur');
gotoxy(35,14);writeln('Gaji Bersih');
gotoxy(0,15);writeln('------------------------------------------------');
gotoxy(5,16);writeln(tunj1:0:0);
gotoxy(20,16);writeln(lembur1:0:0);
gotoxy(35,16);writeln(bersih1:0:0);
writeln;
gotoxy(5,18);writeln(tunj2:0:0);
gotoxy(20,18);writeln(lembur2:0:0);
gotoxy(35,18);writeln(bersih2:0:0);
gotoxy(0,20);writeln('------------------------------------------------');
end;
end.
Nah, outputnya seperti ini:

Semoga bermanfaat. Jangan lupa komentnya!


1 comments:

Anonymous said... Balas

Thanks brow....