CONTOH SOAL PROGRAM KONDISI PADA PASCAL

Posted by febri on Monday, November 01, 2010
1 comments

CONTOH SOAL 1

buatlah program penghitungan potongan harga belanja dengan kondisi
~ jika jumlah belanja lebih dari Rp 300.000 mendapatkan diskon 40%
~ jika jumlah belanja antara Rp 150.000 hingga Rp 300.000 mendapatkan diskon 20%
~ jika jumlah belanja lebih kecil dari Rp 150.000 mendapatkan diskon 10%

JAWAB



program hitung_diskon_harga;
uses crt;

var harga, diskon, total : real;

begin clrscr;

writeln ('MENGHITUNG DISKON DAN TOTAL HARGA BELANJA');
write   ('Masukkan Jumlah Harga : Rp ' ); readln (harga);

if harga > 300000 then
begin
writeln('Mendapat Diskon 40%');
diskon := harga * 0.4; total := harga - diskon; end
else

if (harga>= 150000) and (harga<=300000) then
begin
writeln('Mendapat Diskon 20%');
diskon := harga * 0.2; total := harga - diskon; end
else

if harga < 150000 then
begin
writeln('Mendapat Diskon 10%');
diskon := harga * 0.1; total := harga - diskon; end;


write ('Jumlah diskon : Rp ', diskon:0:0); readln;
write ('Jumlah Harga Setelah Diskon    : Rp ', total :0:0 ); readln;

end.



CONTOH SOAL 2
hitunglah gaji karyawan dengan kondisi :

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

  
JAWAB
program hitunggaji;
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.


CREDIT SENDIRI
hostgator coupon Ping your blog, website, or RSS feed for Free

One Response so far.

  1. Unknown says:
    November 19, 2012 at 12:12:00 PM GMT+7
    This comment has been removed by the author.

Post a Comment