Ketika satu pintu kebahagiaan tertutup maka pintu kebahagiaan yang lainnya akan terbuka,
tapi kadang kita seringkali terlalu lama berada di depan pintu tertutup itu...
Ketika kamu lahir, kamu menangis
dan semua orang di sekeliling kamu tersenyum.
Hiduplah dengan hidupmu, jadi ketika kamu meninggal,
kamu satu-satunya yang tersenyum dan semua orang
di sekeliling kamu menangis.
Kursor
HASIL PERTANDINGAN BOLA
NONO BLOG - DAFTAR LIVE SCORES SEPAKBOLA DUNIA
Contoh Program Pascal If Perhitungan Gaji
Contoh Penghitungan Gaji
Ketentuan Soal :
1. Nama Di input
2. Jabatan di input ,
Jabatan Gaji Tunjangan
Direktur 3000000 10 % dari gaji
Manager 2000000 5% dari gaji
Karyawan 1000000 2% dari gaji
OB 800000 1% dari gaji
3. Dikenakan PPN 10 % dari gaji
4. Gaji Bersih didapat dari : gaji + tunjangan – PPn
Jawabannya:
Uses crt;
Var nama:string[20];jabatan:string;
Gaji:longint;
Tunj,ppn,gajibersih:real;
Begin
Clrscr;
Write(‘Nama Karyawan : ‘); readln(nama);
Write(‘Masukkan Jabatan : ‘); readln(jabatan);
If (jabatan=’Direktur’) or (jabatan=’direktur’) then
Begin
Gaji:=3000000;
Tunj:=0.02* gaji;
End
Else If (jabatan=’Manager’) or (jabatan=’manager’) then
Begin
Gaji:=2000000;
Tunj:=0.05* gaji;
End
Else If (jabatan=’Karyawan’) or (jabatan=’karyawan’) then
Begin
Gaji:=1000000;
Tunj:=0.1* gaji;
End
Else
Begin
Gaji:=800000;
Tunj:=0.1* gaji;
End;
Writeln(‘Gaji Bersih : Rp.‘,gaji);
Writeln(‘Tunjangan Jabatan : Rp.‘,tunj:9:2);
Ppn:=0.1*gaji;
Writeln(‘PPN 10 % : Rp.‘,ppn:9:2);
Total:=(gaji+total)-ppn;
Writeln(‘Total Gaji : Rp.‘,total:9:2);
Readln;
End.