Script Untuk Mencari Gaji Bersih with “Case Of”.
Uses wincrt;
Var
pil:Integer;
Kode_Pel:char;
Nama,Alamat:String;
Tobel,jumlah,Transp,Gaji_Bersih_1,Intens,Tunai_Discount,Tunj,Kredit_1_Bulan_Discount:Real;
Kredit_3_Bulan_Discount,Tunai_Disc,Kredit_Discount,Gaji_Bersih_2:Real;
Begin
Writeln(‘ PT.CEMERLANG INDAH ‘);
Writeln(‘ SISTEM ADMINISTRASI CEMERLANG INDAH’);
Writeln(‘ 1.PEMBAYARAN GAJI’);
Writeln(‘ 2.PEMBAYARAN SUPLAYER’);
Writeln(‘ 3.PEMBAYARAN CUSTOMER’);
Writeln(‘ 4.PEMBAYARAN PPN’);
Writeln;
Write(‘ Masukan Kategori Golongan=’);Readln(pil);
Write(‘ Masukan Kode Golongan=’);Readln(Kode_Pel);
Begin
Write(‘ Gaji Pokok=Rp’);Readln(Tobel);
Case pil of
1:Begin
If(kode_pel=’I')or(kode_pel=’1′)then
If(kode_pel=’1′)And(Tobel=1500000)then
Tunai_Discount:=Tobel*0.1
Else If(kode_pel’I')And (Tobel=1500000)Then
Kredit_1_Bulan_Discount:=Tobel*0.05
Else If(kode_pel’I')And(Tobel=1500000)Then
Kredit_3_Bulan_Discount:=0;
If(kode_pel’I')And(Tobel=1500000)Then
Tunai_Disc:=Tobel*0.1
Else If(kode_pel’I')And(Tobel=1500000)Then
Kredit_Discount:=0;
Tunj:=Tobel*0.1;
Transp:=25000;
Intens:=15000;
Gaji_Bersih_1:=(Tobel-Tunai_Discount-Kredit_1_Bulan_Discount-Kredit_3_Bulan_Discount-Tunai_Disc-Kredit_Discount);
Gaji_Bersih_2:=(Tunj+Transp+Intens+Gaji_Bersih_1);
Writeln(‘ Tunjangan Gaji Pokok =Rp’,Tunj:12:2);
Writeln(‘ Uang Transport =Rp’,Transp:12:2);
Writeln(‘ Intesive/Jam =Rp’,Intens:12:2);
Writeln(‘ Pembayaran Suplayer’);
Writeln(‘ Tunai Discount =Rp’,Tunai_Discount:12:2);
Writeln(‘ Kredit 1 Bulan Discount =Rp’,Kredit_1_Bulan_Discount:12:2);
Writeln(‘ Kredit 3 Bulan Discount =Rp’,Kredit_3_Bulan_Discount:12:2);
Writeln(‘ Pembayaran Customer’);
Writeln(‘ Tunai Discount =Rp’,Tunai_Disc:12:2);
Writeln(‘ Total Gaji Bersih =Rp’,Gaji_Bersih_2:12:2);
Writeln(‘ Golongan I’);
Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘);
Writeln(‘ o0————–o0o————–0o’);
End;
2:Begin
If(kode_pel=’I')or(kode_pel=’1′)then
If(kode_pel=’1′)And(Tobel=1250000)then
Tunai_Discount:=Tobel*0.1
Else If(kode_pel’I')And (Tobel=1250000)Then
Kredit_1_Bulan_Discount:=Tobel*0.05
Else If(kode_pel’I')And(Tobel=1250000)Then
Kredit_3_Bulan_Discount:=0;
If(kode_pel’I')And(Tobel=1250000)Then
Tunai_Disc:=Tobel*0.1
Else If(kode_pel’I')And(Tobel=1250000)Then
Kredit_Discount:=0;
Tunj:=Tobel*0.1;
Transp:=22500;
Intens:=15000;
Gaji_Bersih_1:=(Tobel-Tunai_Discount-Kredit_1_Bulan_Discount-Kredit_3_Bulan_Discount-Tunai_Disc-Kredit_Discount);
Gaji_Bersih_2:=(Tunj+Transp+Intens+Gaji_Bersih_1);
Writeln(‘ Tunjangan Gaji Pokok =Rp’,Tunj:12:2);
Writeln(‘ Uang Transport =Rp’,Transp:12:2);
Writeln(‘ Intesive/Jam =Rp’,Intens:12:2);
Writeln(‘ Pembayaran Suplayer’);
Writeln(‘ Tunai Discount =Rp’,Tunai_Discount:12:2);
Writeln(‘ Kredit 1 Bulan Discount =Rp’,Kredit_1_Bulan_Discount:12:2);
Writeln(‘ Kredit 3 Bulan Discount =Rp’,Kredit_3_Bulan_Discount:12:2);
Writeln(‘ Pembayaran Customer’);
Writeln(‘ Tunai Discount =Rp’,Tunai_Disc:12:2);
Writeln(‘ Total Gaji Bersih =Rp’,Gaji_Bersih_2:12:2);
Writeln(‘ Golongan II’);
Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘);
Writeln(‘ o0————–o0o————–0o’);
End;
3:Begin
If(kode_pel=’I')or(kode_pel=’1′)then
If(kode_pel=’1′)And(Tobel=1125000)then
Tunai_Discount:=Tobel*0.1
Else If(kode_pel’I')And (Tobel=1125000)Then
Kredit_1_Bulan_Discount:=Tobel*0.05
Else If(kode_pel’I')And(Tobel=1125000)Then
Kredit_3_Bulan_Discount:=0;
If(kode_pel’I')And(Tobel=1125000)Then
Tunai_Disc:=Tobel*0.1
Else If(kode_pel’I')And(Tobel=1125000)Then
Kredit_Discount:=0;
Tunj:=Tobel*0.1;
Transp:=20000;
Intens:=12500;
Gaji_Bersih_1:=(Tobel-Tunai_Discount-Kredit_1_Bulan_Discount-Kredit_3_Bulan_Discount-Tunai_Disc-Kredit_Discount);
Gaji_Bersih_2:=(Tunj+Transp+Intens+Gaji_Bersih_1);
Writeln(‘ Tunjangan Gaji Pokok =Rp’,Tunj:12:2);
Writeln(‘ Uang Transport =Rp’,Transp:12:2);
Writeln(‘ Intesive/Jam =Rp’,Intens:12:2);
Writeln(‘ Pembayaran Suplayer’);
Writeln(‘ Tunai Discount =Rp’,Tunai_Discount:12:2);
Writeln(‘ Kredit 1 Bulan Discount =Rp’,Kredit_1_Bulan_Discount:12:2);
Writeln(‘ Kredit 3 Bulan Discount =Rp’,Kredit_3_Bulan_Discount:12:2);
Writeln(‘ Pembayaran Customer’);
Writeln(‘ Tunai Discount =Rp’,Tunai_Disc:12:2);
Writeln(‘ Total Gaji Bersih =Rp’,Gaji_Bersih_2:12:2);
Writeln(‘ Golongan III’);
Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘);
Writeln(‘ o0————–o0o————–0o’);
End;
4:Begin
If(kode_pel=’I')or(kode_pel=’1′)then
If(kode_pel=’1′)And(Tobel=1000000)then
Tunai_Discount:=Tobel*0.1
Else If(kode_pel’I')And (Tobel=1000000)Then
Kredit_1_Bulan_Discount:=Tobel*0.05
Else If(kode_pel’I')And(Tobel=1000000)Then
Kredit_3_Bulan_Discount:=0;
If(kode_pel’I')And(Tobel=1000000)Then
Tunai_Disc:=Tobel*0.1
Else If(kode_pel’I')And(Tobel=1000000)Then
Kredit_Discount:=0;
Tunj:=Tobel*0.1;
Transp:=17500;
Intens:=12500;
Gaji_Bersih_1:=(Tobel-Tunai_Discount-Kredit_1_Bulan_Discount-Kredit_3_Bulan_Discount-Tunai_Disc-Kredit_Discount);
Gaji_Bersih_2:=(Tunj+Transp+Intens+Gaji_Bersih_1);
Writeln(‘ Tunjangan Gaji Pokok =Rp’,Tunj:12:2);
Writeln(‘ Uang Transport =Rp’,Transp:12:2);
Writeln(‘ Intesive/Jam =Rp’,Intens:12:2);
Writeln(‘ Pembayaran Suplayer’);
Writeln(‘ Tunai Discount =Rp’,Tunai_Discount:12:2);
Writeln(‘ Kredit 1 Bulan Discount =Rp’,Kredit_1_Bulan_Discount:12:2);
Writeln(‘ Kredit 3 Bulan Discount =Rp’,Kredit_3_Bulan_Discount:12:2);
Writeln(‘ Pembayaran Customer’);
Writeln(‘ Tunai Discount =Rp’,Tunai_Disc:12:2);
Writeln(‘ Total Gaji Bersih =Rp’,Gaji_Bersih_2:12:2);
Writeln(‘ Golongan I’);
Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘);
Writeln(‘ o0————–o0o————–0o’);
End;
End;
End;
End.
- Follow us on Twitter, or subscribe to the rizqtech RSS Feed for more daily web development and articles.
Enjoy this Post!
