pas buka-buka file semester 2 eh ketemu file program tugas buat program pascal, dari pada hilang gak berguna mending saya bagi ilmunya siapa tau bermanfaat.
silahkan copy codingannya tapi jika ada kesalahan eror koreksi yah
itu disengaja buat jadi bahan pelajaran OKE.
uses crt,graph;
abel
atas,satu,dua,tiga;
var
Paket,orang : byte;
bayar,lpgp,harga : longint;
dis,bitot : real;
lagi : char;
almt,nama,nind : string[30] ;
begin
atas:
clrscr;
textcolor(4);
writeln(' ================================ ');
writeln(' | ~ SELAMAT DATANG ~ | ');
writeln(' | DI | ');
writeln(' | ~ HOTEL PESONA HORROR ~ | ');
writeln(' ================================ ');
writeln;
writeln(' ******* Penawaran Paket Penginapan Bulan Mei-Juli 2014 *******');
writeln;
writeln('1. Paket Penginapan Pelajar / Mahasiswa ');
writeln(' * Biaya 1x24 Jam : Rp. 150000 ');
writeln(' * Diskon 15% untuk penginap minimal 2 orang ');
writeln(' * Wajib membawa Kartu Pelajar bagi Pelajar ');
writeln(' * Wajib membawa KTM / KTP bagi Mahasiswa ');
writeln;
writeln('2. Paket Penginapan Keluarga ');
writeln(' * Biaya 1x24 Jam : Rp. 160000 ');
writeln(' * Diskon 10% untuk penginap minimal 3 orang ');
writeln(' * Wajib membawa KTP ');
writeln;
wrteln('3. Paket Penginapan Bersahabat ');
writeln(' * Biaya 1x24 Jam : Rp. 160000 ')
writeln(' * Diskon 20% untuk penginap minimal 5 orang ');
writeln(' * Wajib membawa KTP ');
writeln;
write('Masukan Nomor Paket yang Anda pilih [1-3] : ');
readn(paket);
case Paket of
1: begin
satu:
clrscr;
harga := 150000;
writeln;
writeln;
write('Masukan nama anda : ');
readln(nama);
write('Masukan nomor identitas : ');
readln(nind);
write('Masukan alamat tempat tinggal anda : ');
radln(almt);
write('Lama waktu menginap [x24 jam] : ');
readln(lpgp);
write('Masukan jumlah penginap hotel : ');
readln(orang);
bayar := lpgp*harga*orang;
if orang >= 2 then
dis:=15/100*bayar
else
dis:=0/100*bayar;
bitot:=bayar-dis;
clrscr;
writeln;
writeln(' ==================================================================');
writeln(' Nama : ',nama );
writeln(' Nomor Identitas : ',nind );
writeln(' Alamat lengkap : ',almt );
writeln(' Jumlah orang menginap : ',orang,' orang' );
writeln(' Lama waktu menginap : ',lpgp,'x24 Jam' );
writeln(' Harga penginapan per 1x24 Jam : Rp.',harga );
writeln(' Biaya Total : Rp.',bitot:1:2 );
if orang >= 2 then
writeln(' Potongan biaya penginapan 15% : Rp.',dis:1:2 )
else
writeln(' Potongan biaya penginapan 0% : Rp.',dis:1:2 );
writeln;
writeln(' TERIMAKSIH ATAS KUNJUNGANNYA ' );
writeln(' PAKET PENGINAPAN PELAJAR / MAHASISWA ' );
writeln(' ==================================================================');
writeln;
write('Input [Y/y] untuk input paket satu kembali dan tekan enter untuk menu awal : ');
readln(lagi);
if (lagi='Y') or (lagi='y') then
goto satu
else
goto aas;
end;
2: begin
dua:
clrscr;
harga := 160000;
writeln;
writeln;
write('Masukan nama anda : ');
readln(nama);
write('Masukan nomor identitas anda : ');
readln(nind);
write('Masukan alamat tempat tinggal anda : ');
readln(almt);
write('Lama waktu menginap [x24 jam] : ');
readln(lpgp);
write('Masukan jumlah penginap hotel : ');
readln(orang);
bayar := lpgp*harga*orang;
if orang >= 3 then
dis:=10/100*bayar
else
dis:=0/100*bayar;
bitot:=bayar-dis;
clrscr;
writeln;
writeln(' ==================================================================')
writeln(' Nama : ',nama );
writeln(' Nomor Identitas : ',nind );
writeln(' Alamat lengkap : ',almt );
writeln(' Jumlah orang menginap : ',orang,' orang' );
writeln(' Lama waktu menginap : ',lpgp,'x24 Jam' );
writeln(' Harga penginapan per 1x24 jam : Rp.',harga );
writeln(' Biaya Total : Rp.',bitot:1:2 );
if orang >= 3 then
writeln(' Potongan biaya penginapan 10% : Rp.',dis:1:2 )
else
writeln(' Potongan biaya penginapan 0% : Rp.',dis:1:2 );
writeln;
writeln(' TERIMAKASIH ATAS KUNJUNGANNYA ' );
writeln(' PAKET PENGINAPAN KELUARGA ' )
writeln(' ==================================================================');
writeln;
write('Input [Y/y] untuk input paket dua kembali dan tekan enter untuk menu awal : ');
readln(lagi);
if (lagi='Y') or (lagi='y') then
goto dua
else
goto atas;
end;
3: begin
tiga:
clrscr;
harga := 160000;
writeln;
writeln;
write('Masukan nama anda : ');
readln(nama);
write('Masukan nomor identitas : ');
readln(nind);
write('Masukan alamat tempat tinggal anda : ');
readln(almt);
wite('Lama waktu menginap [x24 jam] : ');
readln(lpgp);
write('Masukan jumlah penginap hotel : ');
readln(orang);
bayar := lpgp*harga*orang;
if orang >= 5 then
dis:=20/100*bayar
else
dis:=0/100*bayar;
bitot:=bayar-dis;
clrscr;
writeln;
writeln(' ==================================================================');
writeln(' Nama : ',nama);
writeln(' Nomor Identitas : ',nind);
writeln(' Alamat lengkap : ',almt);
writeln(' Jumlah orang menginap : ',orang,'orang');
writeln(' Lama waktu menginap : ',lpgp,'x24 Jam');
writeln(' Harga penginapan per 1x24 Jam : Rp.',harga);
writeln(' Biaya Total : Rp.',bitot:1:2 );
if oran >= 5 then
writeln(' Potongan biaya penginapan 20% : Rp.',dis:1:2 )
else
writeln(' Potongan biaya penginapan 0% : Rp.',dis:1:2 );
writeln(' ==================================================================');
writeln;
write('Input [Y/y] untuk input paket tiga kembali dan tekan enter untuk menu awal : ');
readln(lagi);
if (lagi='Y') or (lagi='y') then
goto tiga
else
goto atas;
end;
else
clrscr;
writeln;
writeln;
writeln;
writeln(' ==============================================================');
writeln(' !!!!!! Paket penginapan yang anda pilih tidak terdaftar !!!!!!');
writeln(' ==============================================================');
writeln;
writ('tekan [enter] : ');
readln(lagi);
goto atas;
end;
end.
end.
output program
No comments:
Post a Comment