Script Program Sistem Adminstrasi PT.Cemerlang Indah with “Case Of”
uses wincrt;
var
pil,gol,trans,intens,bayar,piutang,keluar,masuk,ppn:integer;
tunj,total,dis,gapok:real;
ulang:char;
begin
repeat
clrscr;
writeln(‘ ———————————- ‘);
writeln(‘| PT CEMERLANG INDAH |’);
writeln(‘ ————by:rhez-qhe————— ‘);
writeln(‘SISTEM ADMINISTRASI CEMERLANG INDAH’);
writeln(’1.PEMBAYARAN GAJI’);
writeln(’2.PEMBAYARAN SUPLAYER’);
writeln(’3.PEMBAYARAN CUSTOMER’);
writeln(’4.PEMBAYARAN PPN’);
writeln(’5.KELUAR’);
write(‘Masukkan Pilihan Anda : ‘);readln(pil);
case pil of
1:begin
write(‘Masukkan golongan anda 1-4 =’);readln(gol);
case gol of
1:begin
writeln(‘Pembayaran Gaji Berdasarkan golongan 1′);
gapok:=1500000;
tunj:=0.1*gapok;
trans:=25000;
intens:=15000;
total:=gapok+tunj+trans+intens;
writeln(‘Gaji Pokok =Rp ‘,gapok:8:2);
writeln(‘Tunjangan =Rp ‘,tunj:8:2);
writeln(‘Transport =Rp ‘,trans,’.00′);
writeln(‘intensiv/jam =Rp ‘,intens,’.00′);
writeln(‘Total Gaji =Rp ‘,total:8:2);
end;
2:begin
writeln(‘Pembayaran Gaji Berdasarkan golongan 2′);
gapok:=1250000;
tunj:=0.1*gapok;
trans:=22500;
intens:=15000;
total:=gapok+tunj+trans+intens;
writeln(‘Gaji Pokok =Rp ‘,gapok:8:2);
writeln(‘Tunjangan =Rp ‘,tunj:8:2);
writeln(‘Transport =Rp ‘,trans,’.00′);
writeln(‘intensiv/jam =Rp ‘,intens,’.00′);
writeln(‘Total Gaji =Rp ‘,total:8:2);
end;
3:begin
writeln(‘Pembayaran Gaji Berdasarkan golongan 3′);
gapok:=1125000;
tunj:=0.1*gapok;
trans:=20000;
intens:=12500;
total:=gapok+tunj+trans+intens;
writeln(‘Gaji Pokok =Rp ‘,gapok:8:2);
writeln(‘Tunjangan =Rp ‘,tunj:8:2);
writeln(‘Transport =Rp ‘,trans,’.00′);
writeln(‘intensiv/jam =Rp ‘,intens,’.00′);
writeln(‘Total Gaji =Rp ‘,total:8:2);
end;
4:begin
writeln(‘Pembayaran Gaji Berdasarkan golongan 4′);
gapok:=1000000;
tunj:=0.1*gapok;
trans:=17500;
intens:=12500;
total:=gapok+tunj+trans+intens;
writeln(‘Gaji Pokok =Rp ‘,gapok:8:2);
writeln(‘Tunjangan =Rp ‘,tunj:8:2);
writeln(‘Transport =Rp ‘,trans,’.00′);
writeln(‘intensiv/jam =Rp ‘,intens,’.00′);
writeln(‘Total Gaji =Rp ‘,total:8:2);
end;
end;
end;
2:begin
writeln(‘Pembayaran Supplier’);
writeln(‘Type Pembayaran’);
writeln(’1.Tunai ‘);
writeln(’2.Kredit 1 bulan’);
writeln(’3.Kredit 3 bulan’);
write(‘Masukkan Type Pembayaran: ‘);readln(bayar);
case bayar of
1:begin
write(‘Jumlah Piutang =Rp ‘);readln(piutang);
dis:=0.1*piutang;
total:=piutang-dis;
writeln(‘Potongan =Rp ‘,dis:8:2);
writeln(‘Jumlah yang harus dibayar=Rp ‘,total:8:2);
end;
2:begin
write(‘Jumlah Piutang =Rp ‘);readln(piutang);
dis:=0.05*piutang;
total:=piutang-dis;
writeln(‘Potongan =Rp ‘,dis:8:2);
writeln(‘Jumlah yang harus dibayar=Rp ‘,total:8:2);
end;
3:begin
write(‘Jumlah Piutang =Rp ‘);readln(piutang);
writeln(‘Potongan =Anda tidak mendapatkan potongan’);
writeln(‘Jumlah yang harus dibayar=Rp ‘,piutang,’.00′);
end;
end;
end;
3:begin
writeln(‘Pembayaran Customer’);
writeln(‘Type Pembayaran’);
writeln(’1.Tunai ‘);
writeln(’2.Kredit’);
write(‘Masukkan Type Pembayaran: ‘);readln(bayar);
case bayar of
1:begin
write(‘Jumlah Pembayaran =Rp’);readln(bayar);
dis:=0.1*bayar;
total:=bayar-dis;
writeln(‘Potongan =Rp ‘,dis:8:2);
writeln(‘Jumlah yang harus dibayar=Rp ‘,total:8:2);
end;
2:begin
write(‘Jumlah Pembayaran =Rp ‘);readln(bayar);
writeln(‘Potongan = Anda Tidak Mendapat Potongan’);
writeln(‘Jumlah yang harus dibayar=Rp ‘,bayar,’.00′);
end;
end;
end;
4:begin
writeln(‘Pembayaran PPN’);
write(‘PPN Keluar =Rp ‘);readln(keluar);
write(‘PPN Masuk =Rp ‘);readln(masuk);
ppn:=keluar-masuk;
writeln(‘PPN yang harus dibayar=Rp ‘,ppn,’.00′);
end;
5:begin
writeln(‘TERIMAKASIH ANDA TELAH MENGGUNAKAN SISTEM INI’);
Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘);
Writeln(‘ o0————–o0o————–0o’);
halt;
end;
end;
write(‘Kembali ke menu utama (Y/N)= ‘);readln(ulang);
until (ulang=’N') or (ulang=’n');
writeln(‘TERIMAKASIH ANDA TELAH MENGGUNAKAN SISTEM INI’);
Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘);
Writeln(‘ o0————–o0o————–0o’);
end.
- Follow us on Twitter, or subscribe to the rizqtech RSS Feed for more daily web development and articles.
Enjoy this Post!
