PROGRAM MENGHITUNG GAJI DENGAN ARRAY UTS UNINDRA 2010
Program Alim_UTS;
uses crt;
var
gaji_pkk:array[1..10] of integer;
tunjangan:array[1..10] of integer;
u_makan:array[1..10] of integer;
asuransi:array [1..10] of real;
gaji_bersih:array [1..10] of real;
i:integer;
begin
clrscr;
textcolor(yellow);
i:=1;
repeat
begin
writeln (‘Perhitungan Gaji’);
writeln (‘****************’);
write (‘Masukkan Gaji Pokok :’); readln(gaji_pkk[i]);
write (‘Masukkan Tunjangan Jabatan:’); readln(tunjangan[i]);
write (‘Masukkan Uang Makan :’); readln(u_makan[i]);
asuransi[i]:=(gaji_pkk[i]+tunjangan[i]+u_makan[i]) * 0.05;
gaji_bersih[i]:=gaji_pkk[i]+tunjangan[i]+u_makan[i]-asuransi[i];
clrscr;
writeln (‘Perhitungan Gaji’);
writeln (‘****************’);
writeln (‘Masukkan Gaji Pokok :’,gaji_pkk[i]);
writeln (‘Masukkan Tunjangan Jabatan:’,tunjangan[i]);
writeln (‘Masukkan Uang Makan :’,u_makan[i]);
Writeln (‘Potongan Asuransi 5% :’,asuransi[i]:10:2);
writeln;
writeln (‘Gaji Bersih :’,gaji_bersih[i]:10:2);
i:=i+1;
end;
until i=2;
readln;
end.

ini masih kurang sempurna, tolong dibantu……

Tentang hasanmualim

Wong Ndeso
Pos ini dipublikasikan di Pascal. Tandai permalink.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s