Skip to main content

Latihan Dan Soal Untuk Program Penyeleksian Kondisi Pascal (Bagian 3)

Sebelumnya saya sudah posting mengenai Latihan Dan Soal Untuk Program Penyeleksi Kondisi Pascal (Bagian 2) Kali ini saya akan menlanjutkan beberapa latihan - latihan lagi. Langsung saja berikut latihan-latihannya :

1. Buatlah  program untuk menghitung gaji Karyawan pada PT. XYZ jika yang diinput adalah namadan Kode jabatan dan mengeluarkan jabatan dan perincian gajinya ditetapkan berdasarkan jabatan dengan 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
Jawab :
   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.
 Gambar di Pascal

 Gambar di Pascal

Hasil Program:

2. 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 ?
Jawab :
   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.
 Gambar di Pascal
 Gambar di Pascal

Hasil Program:


Lanjut ke Latihan Dan Soal Untuk Program Penyeleksi Kondisi Pascal (Bagian 4)
Labels:
Location: Makassar, Sulawesi Selatan, Indonesia

Comments

Post a Comment

Popular posts from this blog

Pemakaian Gotoxy Pada Program Pascal

Suatu informasi yang terdapat dilayar monitor tentu harus enak dilihat dan rapi. Jika melihat hasil program Menampilkan Lebih 1 Record Pada Pascal kurang menarik, hasilnya masih berantakan. Bagaimana membuat tampilan menjadi lebih tersusun? Untuk menyelesaikan hal ini, kita wajib menggunakan gotoxy. Gotoxy digunakan untuk menuju ke suatu koordinat tertentu pada layar monitor. Dengan menggunakan gotoxy, maka tampilan di layar akan lebih tersusun/rapi, sehingga lebih enak dilihat. Berikut pemakaian gotoxy pada program pascal. uses crt ; type     mahasiswa = record ;     nim    : string[8] ;     nama   : string[30] ;     jenjang: string[2] ;     prodi  : string[30] ;     Nilai  : byte ;     end; var    recMhs : array[1..30] of mahasiswa ;    ket    : string[10];    i      : byte ; Begin    ...
Post a Comment
Baca selengkapnya....

Pemrograman Dasar Komputer Dengan Pascal

Pada bagian Pemrograman dasar pascal, kita akan membahas Contoh Program Komputer tentang perhitungan matematika dasar.  Dalam perhitungan matematika, kita menggunakan operator aritmatika sebagai berikut : Penjelasan : Operator tanda kurung adalah priorotas pertama, artinya bagian yang berada dalam tanda kurang akan dikerjalan pertama kali, kemudian diikuti oleh operator dengan prioritas kedua yaitu kali dan bagi (*dan /), kemudan tambah dan kurang . Dalam  perhitungan matematika, tanda sama dengan menggunakan tanda  := (titik dua sama dengan) untuk menyatakan nilai.  Operator Div digunakan untuk membagi 2 bilangan  bulat (integer) kemudian mengambil  hasil bagi dan sisanya dibuang. Sedangkan operator Mod digunakan untuk membagi 2 bilangan bulat (integer) kemudian mengambil sisanya dan hasil baginya dibuang.  Misalnya : 7 dibagi 2. Hasil baginya 3 dan sisanya 1.  X:= 7 div 2, hasilnya 3 X:= 7 mod 2, hasilnya 1 Tipe Data...
Post a Comment
Baca selengkapnya....

Latihan Dan Soal Perulangan Pascal (Bagian 3)

Sebelumnya saya sudah posting mengenai Latihan Dan Soal Perulangan Pascal (Bagian 2) Kali ini saya akan menlanjutkan beberapa latihan - latihan lagi. Langsung saja berikut latihan-latihannya : Buatlah Program dengan 3 moodel perulangan(Repeat-Until, While, dan For untuk permasalahan deret ukur 3, 9, 23, ...... jawab : PERULANGAN REPEAT-UNTIL     uses crt;    var      i,p,nilai   : integer;    begin      clrscr;      writeln(' PERULANGAN REPEAT-UNTIL ');      writeln('-------------------------');      writeln;      write('Masukkan Jumlah Deret = ');readln(p);      writeln;      nilai   :=3;      i       :=1;      repeat      begin           write(nilai:5);           i    ...
Post a Comment
Baca selengkapnya....