Fiddy's Room

Pascal UTS

SOAL & KUNCI JAWABAN


I. Petunjuk Pengerjaan dan Ketentuan Soal

Buatlah program dibawah ini, simpan dalam folder C:\UTS\1206XXXX\hotel

Sebuah peninapan mempunyai ketentuan tarif sewa kamar sebagai berikut:

Kode Kamar

Nama Kamar

Kode Kelas

Kategori

Harga / Malam

A

ANYELIR

1

VIP

350.000

2

KELAS 1

250.000

3

KELAS 2

150.000

C

CEMPAKA

1

VIP

500.000

2

KELAS 1

400.000

3

KELAS 2

300.000

M

MELATI

1

VIP

1.000.000

2

KELAS 1

750.000

3

KELAS 2

650.000

II. Rancangan Masukan

Buatlah program dengan Input sbb:

HOTEL PONDOK INDAH

**********************************

Nama penyewa = ……………..

Kode Kamar [A/C/M] = ……………..

Kode Kelas [1/2/3] = ……………..

Lama menginap = …. Hari

**********************************

III. Rancangan Keluaran

Outputnya adalah sebagai berikut:

HOTEL PONDOK INDAH

**************************************

Nama penyewa = ……………..

Nama Kamar = ……………..

Kategori = ……………..

Lama menginap = ….. hari

Biaya Sewa = Rp …………..

Biaya Administrasi = Rp …………..

Total Biaya Sewa = Rp …………..

**************************************

Souvenir = ……………..

Ketentuan Soal:

  1. Untuk penyewaan kamar lebih dari 1 minggu maka akan mendapat souvenir “Free Lunch”.
  2. Total Biaya Sewa adalah Biaya sewa penginapan ditambah dengan biaya administrasi sebesar Rp 75.000.
  3. Biaya Sewa = Harga* Lama Inap
  4. Total Biaya Sewa = Biaya Sewa + Biaya Administrasi

v Selamat Mengerjakan…Good Luck !!

Jawaban:

Program quiz_A;

uses crt;

var

kk:char;

np,nk,kt,sv:string[25];

lm,kl:integer;

hrg,bs,tbs:longint;

const

ba=75000;

label

input;

begin

clrscr;

writeln(‘ HOTEL PONDOK INDAH’);

writeln(‘=================================’);

write(‘Nama Penyewa = ‘);readln(np);

input:

write(‘Kode Kamar [A/C/M] = ‘);readln(kk);

write(‘Kode Kelas [1/2/3] = ‘);readln(kl);

if (kk=’A’) or (kk=’a’) then

begin

nk:=’Anyelir’;

if kl=1 then

begin

kt:=’VIP’;

hrg:=350000;

end

else if kl=2 then

begin

kt:=’Kelas 1′;

hrg:=350000;

end

else if kl=3 then

begin

kt:=’Kelas 2′;

hrg:=350000;

end

else

begin

writeln(‘Kode Salah, Input data lagi!’);

goto input;

end;

end

else if (kk=’C’) or (kk=’c’) then

begin

nk:=’Cempaka’;

if kl=1 then

begin

kt:=’VIP’;

hrg:=500000;

end

else if kl=2 then

begin

kt:=’Kelas 1′;

hrg:=400000;

end

else if kl=3 then

begin

kt:=’Kelas 2′;

hrg:=30000;

end

else

begin

writeln(‘Kode Salah, Input data lagi!’);

goto input;

end;

end

else if (kk=’M’) or (kk=’m’) then

begin

nk:=’Melati’;

if kl=1 then

begin

kt:=’VIP’;

hrg:=1000000;

end

else if kl=2 then

begin

kt:=’Kelas 1′;

hrg:=750000;

end

else if kl=3 then

begin

kt:=’Kelas 2′;

hrg:=650000;

end

else

begin

writeln(‘Kode Salah, Input data lagi!’);

goto input;

end;

end

else

begin

writeln(‘Kode Salah, Input data lagi!’);

goto input;

end;

write(‘Lama Menginap = ‘);readln(lm);

if lm>7 then

sv:=’Free Lunch’

else

sv:=’Tidak Dapat’;

bs:=hrg*lm;

tbs:=bs+ba;

clrscr;

writeln(‘ HOTEL PONDOK INDAH’);

writeln(‘=================================’);

writeln(‘Nama Penyewa = ‘,np);

writeln(‘Nama Kamar = ‘,nk);

writeln(‘Kategori = ‘,kt);

writeln(‘Lama Menginap = ‘,lm,’ Hari’);

writeln(‘Biaya Sewa = Rp.’,bs);

writeln(‘Biaya Administrasi = Rp.’,ba);

writeln(‘Total Biaya Sewa = Rp.’,tbs);

writeln(‘———————————‘);

writeln(‘Souvenir = ‘,sv);

writeln(‘———————————‘);

readln;

end.

II. Petunjuk Pengerjaan dan Ketentuan Soal

Buatlah program dibawah ini, simpan dalam folder C:\UTS\1206XXXX\Kue

Sebuah Toko Kue mempunyai daftar menu sebagai berikut :

Kode

Daftar Kue

Harga

1

Bolu Black Forest

60000

2

Chesse Cake

45000

3

Banana Cake

25500

4

Strawbery Cake

35000

II. Rancangan Masukan

DAFTAR MENU TOKO KUE “SEDAP”

1. Bolu Black Forest

2. Chesse Cake

3. Banana Cake

4. Strawbery Cake

_______________________________________

Nama Pembeli = ……………..

Kode Kue [1/2/3/4] = ……

Jumlah Kue = ……

_______________________________________

III. Rancangan Keluaran

STRUK PEMBAYARAN TOKO KUE “SEDAP”

**********************************************

Nama Pembeli = ………

Kode Kue = ………

Nama Kue = ………

Harga kue = Rp…….

Jumlah Kue = Buah

Total Harga = Rp…….

**********************************************

Diskon = Rp…….

**********************************************

Total Bayar = Rp…….

Ketententuan Soal:

1. Total Harga = Jumlah Kue * Harga Kue

2. Jika Jumlah Kue > 20 diskon 20% dari Total Harga , jika Jumlah kue>10 diskon 5 % dari Total Harga,selain itu tidak dapat.

3.Total Bayar = Total Harga – Diskon.

  • Selamat Mengerjakan…Good Luck !!

Jawaban:

program quiz_B;

uses crt;

var

np,nk:string[25];

kk,jk:integer;

tb,ds:real;

th,hk:longint;

label

a;

begin

clrscr;

writeln(‘DAFTAR MENU TOKO KUE SEDAP’);

writeln(‘==========================’);

writeln(‘1.Bolu Black Forest’);

writeln(‘2.Chese Cake’);

writeln(‘3.Banana Cake’);

writeln(‘4.Strawbery Cake’);

writeln(‘————————–‘);

write(‘Nama Pembeli : ‘);readln(np);

a:

write(‘Kode Kue [1/2/3/4]: ‘);readln(kk);

case kk of

1:

begin

nk:=’Bolu Black Forest’;

hk:=60000;

end;

2:

begin

nk:=’Chese Cake’;

hk:=45000;

end;

3:

begin

nk:=’Banana Cake’;

hk:=60000;

end;

4:

begin

nk:=’Strowbery Cake’;

hk:=60000;

end;

else

begin

writeln(‘Kode Salah Input Data Lagi!’);

goto a;

end;

end;

write(‘Jumlah Kue : ‘);readln(jk);

clrscr;

writeln(‘=================================’);

writeln(‘STRUK PEMBAYARAN TOKO KUE “SEDEP” ‘);

writeln(‘=================================’);

writeln(‘Nama Pembeli = ‘,np);

writeln(‘Kode Kue = ‘,kk);

writeln(‘Nama Kue = ‘,nk);

writeln(‘Harga Kue = ‘,hk);

writeln(‘Jumlah Kue = ‘,jk);

th:=hk*jk;

if jk>20 then

ds:=0.2*th

else

if jk>20 then

ds:=0.1*th

else

ds:=0;

writeln(‘Total Harga = Rp. ‘,th);

writeln(‘———————————‘);

writeln(‘Diskon = Rp.’,ds:6:0);

writeln(‘———————————‘);

tb:=th-ds;

writeln(‘Total Bayar = Rp. ‘,tb:6:0);

readln;

end.

No comments yet.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: