Sabtu, 17 Januari 2015

LATIHAN PENYELEKSIAN KONDISI PADA PASCAL (Bagian 3)

1. Program untuk menghitung gaji Karyawan pada PT. XYZ jika yang diinput adalah namadan Kode jabatan dan mengeluarkan jabatan dan perincian gajinya ditetapkan berdasarkan jabatan denga ketentuan sebagai berikut:
           
Kode Jabatan
Jabatan
Gaji Pokok
Tunj. Transport
Tunj. Makan
DR
Direktur
Rp 3000000
Rp 850000
Rp 500000
WD
Wakil Direktur
Rp 2500000
Rp 800000
Rp 500000
MN
Manajer
Rp 2000000
Rp 800000
Rp 450000
AS
Asisten
Rp 1500000
Rp 700000
Rp 400000
KW
Karyawan
Rp 1000000
Rp 500000
Rp 300000

    Berikut scribnya ketikkan di turbo pascalnya.

   program PT_XYZ;
   uses crt;
   var
     kj:String;
     GP,TT,TM:longint;
     Total:longint;
     nama:string[30];
     Jabatan:string [20];
   begin
     clrscr;
     writeln('           PROGRAM GAJI PEGAWAI           ');
     writeln('------------------------------------------');
     writeln;
     write('Masukkan Nama Karyawan: ');readln(nama);
     write('Masukkan Kode Jabatan [DR,WD,MN,AS,KW]: ');readln(kj);
     if kj= 'DR' then
       begin
       Jabatan:= 'Direktur';
       GP:= 3000000;
       TT:= 850000;
       TM:= 500000;
       end
     else if kj='WD' then
       begin
       Jabatan:= 'Wakil Direktur';
       GP:= 2500000;
       TT:= 800000;
       TM:= 500000;
       end
     else if kj='MN' then
       begin
       Jabatan:= 'Manajer';
       GP:= 2000000;
       TT:= 800000;
       TM:= 450000;
       end
     else if kj='AS' then
       begin
       Jabatan:= 'Asisten';
       GP:= 1500000;
       TT:= 700000;
       TM:= 400000;
       end
     else if kj='KW' then
       begin
       Jabatan:= 'Karyawan';
       GP:= 1000000;
       TT:= 500000;
       TM:= 300000;
       end;
       Total:=GP + TT + TM;
       writeln('------------------------------------------');
       writeln;
       writeln('Jabatan             = ', Jabatan);
       writeln('Gaji Pokok          = Rp. ', GP);
       writeln('Tunjangan Transaksi = Rp. ',TT);
       writeln('Tunjangan Makan     = Rp. ', TM);
       writeln('Total Gaji          = Rp. ',Total);
       writeln;
       writeln('------------------------------------------');;
       readln;
   end.

   Agak panjang ya.... nah jika sudah di ketik maka tampilannya seperti di bawah ini





       Kemudian di run maka tampilannya akan seperi di bawah ini



2. Kali ini adalah kita akan membuat program dengan cerita sebagai berikut.

    "PDAM Kota Makassar menetapkan tariff pemakaian air bersih per m3-nya ditentukan secara per golongan dimana golongan ditentukan otomatis berdasarkanjumlah pemakaian. Untuk pemakaian 50 m3  pertama dikenakan biaya Rp 1500. 51-75 m3  dikenakan biaya Rp. 1750. 76-100 m3  dikenakan biaya Rp 2000 dan lewat dari 100 m3   dikenakan biaya Rp. 2250. Buatlah program untuk menghitung jumlah yang harus di bayar pelanggan jika volume air diinput dari keyboard ?"

Bingung bagaimana programnya...? Baiklah untuk membuat program seperti cerita di atas, ketikkan scrib di bawah ini di pascalnya yaa..

       program PDAM_Kota_Makassar;
   uses crt;
   label mulai;
   var
     pmkn:longint;
     jumlah:longint;
     hrg1,hrg2,hrg3,hrg4:longint;
     mau:char;
   begin
     clrscr;
     writeln('    PROGRAM PDAM KOTA MAKASSAR    ');
     writeln('----------------------------------');
     writeln;
     mulai:
     write('Masukkan Jumlah Pemakaian  = ');readln(pmkn);
     writeln('----------------------------------');
     if pmkn<= 50 then
          hrg1:=1500 * pmkn
     else if  pmkn<=75 then
     begin
          hrg1:=1500*50;
          hrg2:=1750* (pmkn-50);
     end
     else if pmkn<=100 then
     begin
          hrg1:=1500*50;
          hrg2:=1750*25;
          hrg3:=2000*(pmkn-75);
     end
     else if pmkn>100 then
     begin
         hrg1:=1500*50;
         hrg2:=1750*25;
         hrg3:=2000*25;
         hrg4:=2250*(pmkn-100);
     end;
     jumlah:=hrg1+hrg2+hrg3+hrg4;
     writeln('Tarif');
     writeln('    Golongan I   = Rp. ',hrg1:7);
     writeln('    Golongan II  = Rp. ',hrg2:7);
     writeln('    Golongan III = Rp. ',hrg3:7);
     writeln('    Golongan IV  = Rp. ',hrg4:7);
     writeln('----------------------------------');
     writeln('    Total Bayar  = Rp. ',jumlah:7);
     write('Masih Mau Menghitung [y/t]: ');
     readln(mau);
     if(mau='y') or (mau='Y') then goto mulai
   
   end.

   Jika sudah berikut tampilannya





         Berikut tampilan hasil programnya ketika di jalankan



         setelah itu akan ada pilhan y/t. Jika kita pilih "y" akan dilakukan perhitungan lagi dan jika, jika kita pilih "t" tidak akan dilakukan perhitungan lagi dan akan langsung keluar. Di bawah ini tampilanya jika kita pilih pilihan "y".



SELESAI.. :D

0 komentar:

Posting Komentar