Tugas Algoritma & Pemrograman II

Modul hal. 12 - Kegiatan 3 -

1. Pajak atas barang-barang impor dari sebuah negara XYZ dibagi menjadi 4 kelas :

---------- -------------------------- -----------
| kelas | |Jenis Barang.........| | Pajak |
---------- -------------------------- -----------
|1........| |Makanan..............| | 10%...|
|2........| |Pakaian, Sepatu...| | 15%...|
|3........| |Mesin-mesin........| | 17,5% |
|4........| |Barang Mewah....| | 40%...|
---------- -------------------------- -----------

Masukkan : Kelas barang dan Harga barang
Keluaran : Besarnya Pajak

Jawaban !


program Hitung_Pajak;
uses crt;
var
kelas_barang : char;
harga_barang : longint;
pajak, besar_pajak : real;
begin
clrscr;
write ('masukkan kelas barang : ');
readln (kelas_barang);
write ('masukkan harga barang : ');
readln (harga_barang);
if kelas_barang = '1' then
begin
pajak := 0.1;
end
else if kelas_barang = '2' then
begin
pajak := 0.15;
end
else if kelas_barang = '3' then
begin
pajak := 0.175;
end
else if kelas_barang = '4' then
begin
pajak := 0.4;
end;

besar_pajak := harga_barang * pajak;
writeln ('besarnya pajak =',besar_pajak :0:3);
readln;
end.


2. Karena waktu yg tidak memungkinkan lagi (sebenarnya cape' ka) jd soalnya diabaikan saja ya......

Jawaban !

program jumlah_pembayaran;
uses crt;
var
nm_pembeli, no_tmpt_duduk : string [20];
film : string [15];
studio : char;
jumlh_karcis : longint;
harga : real;
begin
clrscr;
writeln ('----------Isikan sesuai ketentuan di bawah ini-----------');
writeln;
writeln ('-------------------------------------------------------------------');
writeln ('|studio|judul film.......|harga karcis|');
writeln ('|..1......|Titanic...........|Rp. 5000....|');
writeln ('|..2.....|The Mummy...|Rp. 4000....|');
writeln ('|..3......|Terminator 2.|Rp. 6000....|');
writeln ('------------------------------------------------------------------');
writeln;
write ('Nama Pembeli : '); readln(nm_pembeli);
write ('Nomor Tempat Pembeli : '); readln(no_tmpt_pembeli);
write ('Nomor Studio : '); readln(studio);
write ('Jumlah Karcis Yang Dibeli : '); readln(jmlh_karcis);
case studio of
'1' : begin
harga := jmlh_karcis * 5000;
film := 'Titanic';
end;
'2' : begin
harga := jmlh_karcis * 4000;
film := 'The Mummy';
end;
'3' : begin
harga := jmlh_karcis * 6000;
film := "Terminator 2';
end;
end;
writeln;
writeln;
writeln ('--------Nota Transaksi---------');
writeln;
writeln ('nama : ',nm_pembeli);
writeln ('nomor tempat duduk : ',no_tmpt_duduk);
writeln ('nomor studio : ',studio);
writeln ('judul film : ',film);
writeln ('total pembayaran Rp. ',harga:1:0);
writeln;
writeln ('--------Terima Kasih------------');
readln;
end.

ini merupakan hasil dari soal no. 2 :



*ket :untuk jawaban 1 & 2; titik ('.....') yg ada dalam kolom tidak perlu di tulis.

Selamat Dinikmati...^_^v