Contoh Program Pascal If Perhitungan Gaji Contoh Penghitungan Gaji Ketentuan Soal : 1. Nama Di input 2. Jabatan di input , Jabatan Gaji Direktur 3000000 Manager 2000000 Karyawan 1000000 OB 800000
Tunjangan 10 % dari gaji 5% dari gaji 2% dari gaji 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.1* 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.
weprogram perpustakaan; {$APPTYPE CONSOLE} uses SysUtils; Type DataBku = record judul : string; End; Procedure pembuka; Begin writeln; Writeln(‘+————————————————+’); Writeln(‘| Perpustakaan Pribadi Fahrizal |’); Writeln(‘| =================================== |’); Writeln(‘| Selamat Datang Di Perpustakaan Pribadi saya |’); Writeln(‘| Sebagai Tambahan, Kunjungi situs Pribadi Saya: |’); Writeln(‘| www.inilahjalanku.com |’); Writeln(‘+————————————————+’); writeln; writeln; End; Function nominal(Biaya, x:integer):integer; Var Sewa:integer; Begin Sewa:= Biaya*x; nominal:=Sewa; End; Procedure islam; var ArBku : array[1..5] of DataBku; x, I, Biaya,harga:integer; Begin Writeln; Writeln(‘Judul Buku Islami yang tersedia adalah : ‘); Writeln(’1. Kitab Tauhid (stok tak terbatas)’); Writeln(’2. Kitab Ibadah (stok tak terbatas)’); Writeln(’3. Kitab Muamalah (stok tak terbatas)’); Writeln(’4. Kitab Jihad (stok tak terbatas)’); writeln;
Write(‘Dari keempat buku tersebut, berapa buku yang ingin anda pilih ? : ‘); readln (x); Biaya:=2000; harga:=nominal(Biaya,x); Writeln(‘Masukkan judul buku yang hendak anda pinjam : ‘); for I:=1 to x do begin Write(‘Buku ke-’,I);write (‘ : ‘); readln(ArBku[I].judul); end; Writeln; Writeln(‘Sekedar verifikasi, berikut ini adalah judul buku yang ingin anda pinjam :’); for I:=1 to x do begin Writeln(‘Judul Buku : ‘,ArBku[I].judul); end; writeln; writeln (‘Dengan Demikian, Biaya sewa yang ha rus anda bayar adalah : ‘); writeln (‘Rp ‘,harga); writeln; end;
Procedure komputer; var ArBku : array[1..5] of DataBku; x, I, biaya:integer; Begin Writeln; Writeln(‘Judul Buku komputer yang tersedia adalah : ‘); Writeln(’1. Mahir Bahasa C (stok tak terbatas)’); Writeln(’2. Pemrograman Delphi (stok tak terbatas)’); Writeln(’3. DataBase Administrator (stok tak terbatas)’); Writeln(’4. Web Desaigner (stok tak terbatas)’); writeln; Write(‘Dari keempat buku tersebut, berapa buku yang ingin anda pilih ? : ‘); readln (x); biaya :=2000; nominal(Biaya,x); Writeln(‘Masukkan judul buku yang hendak anda pinjam : ‘); for I:=1 to x do begin Write(‘Buku ke-’,I);write (‘ : ‘); readln(ArBku[I].judul); end; Writeln; Writeln(‘Sekedar verifikasi, berikut ini adalah judul buku yang in gin anda pinjam :’); for I:=1 to x do begin
Writeln(‘Judul Buku : ‘,ArBku[I].judul); end; writeln; writeln (‘Dengan Demikian, Biaya sewa yang ha rus anda bayar adalah : ‘); writeln (‘Rp. ‘,nominal(Biaya,x)); writeln; end;
Procedure utama; var jnsbku:integer; Begin pembuka; Writeln(‘Di Perpustakaan Saya Hanya Terdapat Dua Jenis Buku : ‘); Writeln(’1. Buku Islami’); Writeln(’2. Buku Tentang Komputer’); Write(‘Buku Jenis Apa Yang Ingin Anda Pinjam (1/2)? :’); readln(jnsbku); case jnsbku of 1: islam; 2: komputer; end; end; procedure penawaran; var ulang:char; begin while ulang <>’z’ do begin write(‘Ingin Meminjam Lagi (y/n) : ‘); readln(ulang); case ulang of ‘Y’,'y’: utama; ‘N’,'n’: exit; end; end; end; begin { TODO -oUser -cConsole Main : Insert code here } utama; penawaran; write(‘Terima kasih…’);
Readln; end.
