program
loundry_HappyHappy;
uses wincrt;
type
recPlngn=record
nama:string[25];
almt:string[100];
tlpn:string[15];
end;
var
X:recPlngn;
pilihan,memilih:byte;
a,b,c,d,e,f,p,h,kg,harga,dis:real;
cov1, cov2, cov3,data,jawab,as:byte;
i,das:string;
s : char;
label ulang,kembali,back,home;
procedure cover1
(var cov1:byte);
begin
clrscr;
gotoxy(20,3); writeln(' P R O G R A M ');
gotoxy(20,4); writeln(' L O U N D R Y H A P P Y - H A P P Y ');
gotoxy(20,5);
writeln('________________________________________________');
gotoxy(20,10);writeln(' * O L E H K E L O M P O K IX *
');
gotoxy(20,11);writeln('
________________________________________ ');
gotoxy(20,12);writeln(' |## ##| ');
gotoxy(20,13);writeln(' |## SEFTY KURNIA UTAMI :
08101001044 ##| ');
gotoxy(20,14);writeln(' |## DIAN PRATAMAWATI :
08101001047 ##| ');
gotoxy(20,15);writeln(' |## FANI MAULIA RAHMAH :
08101001054 ##| ');
gotoxy(20,16);writeln(' |## ##| ');
gotoxy(20,17);writeln('
|_________________________________________| ');
gotoxy(20,18);writeln(' Press Any Buttom to Continue: ');
readkey;
clrscr;
end;
procedure cover2
(var cov2:byte);
begin
gotoxy(5,6);writeln('***************SELAMAT
DATANG DI PROGRAM LOUNDRY HAPPY-HAPPY***********');
gotoxy(5,7);writeln('Disini anda dapat
memilih program loundry sesuai dengan yang anda inginkan');
gotoxy(5,8);writeln(' SELAMAT
MENCOBA ');
gotoxy(7,13);writeln(' press any buttom to
continue, jenis loundry beserta harga : ');readkey;
clrscr;
end;
procedure cover3 (var
cov3:byte);
begin
gotoxy(17,3) ;writeln(' TABEL LOUNDRY ');
gotoxy(13,4)
;writeln('_______________________________________________');
gotoxy(13,5) ;writeln('| jenis loundry |
jenis satuan | harga |');
gotoxy(13,6)
;writeln('_______________________________________________');
gotoxy(13,7) ;writeln('| pakaian atas |
potongan | 2000
|');
gotoxy(13,8) ;writeln('| pakaian bawah |
potongan | 3000
|');
gotoxy(13,9) ;writeln('|pakaian atas
bawah| potongan |
5000 |');
gotoxy(13,10);writeln('| dress |
potongan | 4500
|');
gotoxy(13,11);writeln('| selimut |
kilogram | 12000 |');
gotoxy(13,12);writeln('| spray |
kilogram | 12000 |');
gotoxy(13,13);writeln('| handuk |
kilogram | 12000 |');
gotoxy(13,14);writeln('| gorden |
kilogram | 12000 |');
gotoxy(13,15);writeln('| jilbab
| kilogram | 12000
|');
gotoxy(13,16);writeln('________________________________________________');
gotoxy(13,17);writeln('
');
gotoxy(14,19);writeln(' KAMI TIDAK MENERIMA
LOUNDRY SELAIN JENIS-JENIS DI ATAS');
gotoxy(14,20);writeln(' < TERIMA KASIH > ');
writeln('
');
writeln(' ');
writeln('
');
writeln('
press any buttom to continue, identitas pelanggan : ');readkey;
clrscr;
end;
procedure
identitas (var data:byte);
label
a,b,c;
begin
gotoxy(10,5);writeln('_______________________________________________________________');
gotoxy(10,9);writeln('_______________________________________________________________');
a:
gotoxy(10,6);write('Masukkan Nama :');readln(X.nama);
repeat
if (X.nama='') then
begin
gotoxy(10,15);write ('Maaf, Data tidak
boleh kosong');readkey;
clrscr;
gotoxy(10,5);writeln('_______________________________________________________________');
gotoxy(10,9);writeln('_______________________________________________________________');
goto a;
end;
until (X.nama<>'');
b:
gotoxy(10,6);write('Masukkan Nama :',X.nama);
gotoxy(10,7);write('Masukkan Alamat :');readln(X.almt);
repeat
if (x.almt='') then
begin
gotoxy(10,15);write ('maaf data tidak
boleh kosong');readkey;
clrscr;
gotoxy(10,5);writeln('_______________________________________________________________');
gotoxy(10,9);writeln('_______________________________________________________________');
goto b;
end;
until (X.almt<>'');
c:
gotoxy(10,6);write('Masukkan Nama :',X.nama);
gotoxy(10,7);write('Masukkan Alamat :',X.almt);
gotoxy(10,8);write('Masukkan Nomor
telephone :');readln(X.tlpn);
repeat
if (x.tlpn='') then
begin
gotoxy(10,15);write ('maaf data tidak
boleh kosong');readkey;
clrscr;
gotoxy(10,5);writeln('_______________________________________________________________');
gotoxy(10,9);writeln('_______________________________________________________________');
goto c;
end;
until (X.tlpn<>'');
gotoxy(5,13);writeln(' press any buttom to continue, program pilihan
: ');readkey;
end;
procedure mulai
(var jawab:byte);
begin
clrscr;
writeln('PILIHAN');
writeln('1.Mencuci perPotong');
writeln('2.Mencuci perKg');
writeln('pilih(1/2)?');readln(pilihan);
clrscr;
case pilihan of
1:begin
clrscr;
writeln('MEMILIH');
writeln('1.pakaian atas');
writeln('2.pakaian bawah');
writeln('3.pakaian atas dan bawah');
writeln('4.dress');
writeln('pilih(1/2/3/4)/');readln(memilih);
clrscr;
case memilih of
1:begin
write ('masukkan banyak potongan :');readln(p);
writeln('Harga perPotong :2000');
harga:=p*2000;writeln;
write ('harga yang harus dibayar =Rp',harga:0:2);
end;
2:begin
write ('masukkan banyak ptongan :');readln(p);
writeln('Harga perPotong :3000');
harga:=p*3000;writeln;
write ('harga yang harus dibayar =Rp',harga:0:2);
end;
3:begin
write ('masukkan banyak potongan :');readln(p);
writeln('Harga perPotongan :5000');
harga:=p*5000;writeln;
write ('harga yang harus dibayar =Rp',harga:0:2);
end;
4:begin
write ('masukkan banyak potongan :');readln(p);
writeln('harga perPotongan :4500');
harga:=p*4500;writeln;
write ('Harga yang harus dibayar =Rp',harga:0:2);
end;
else
begin
writeln('pilihan yang tersedia hanya
1,2,3, atau 4');
writeln('anda tidak dapat memilih
selain nomor di atas?');readkey;
writeln('press to any buttom,
kembali ke pilihan');readkey;
end;
end;
end;
2:begin
clrscr;
writeln;
writeln('_________________________________________');
writeln('| jumlah kilogram |
harga kilogram |');
writeln('_________________________________________');
writeln('| 1 kg -
20 kg
| 12000 |');
writeln('| 21 kg - 40
kg | 10000 |');
writeln('| 41 kg - 60
kg | 9500 |');
writeln('| 61 kg - 80
kg | 8500 |');
writeln('| 81 kg - 100 kg |
8000 |');
writeln('| >100 kg |
7500 |');
writeln('_________________________________________');
writeln(' ');
writeln('press any continue');readkey;
clrscr;
writeln('MEMILIH');
writeln('1.cucian 1 kg - 20
kg');
writeln('2.cucian 21 kg - 40 kg');
writeln('3.cucian 41 kg - 60
kg');
writeln('4.cucian 61 kg - 80 kg');
writeln('5.cucian 81 kg - 100 kg');
writeln('6.cucian >100 kg');
writeln('pilih(1/2/3/4)/5/6');readln(memilih);
clrscr;
case pilihan of
1:begin
write ('masukkan banyak cucian :');readln(a);
writeln('Harga perkilogram :12000');
harga:=a*12000;writeln;
write ('harga yang harus dibayar =Rp',harga:0:2);
end;
2:begin
write ('masukkan banyak cucian :');readln(a);
writeln('Harga perkilogram :10000');
harga:=a*10000;writeln;
write ('harga yang harus dibayar =Rp',harga:0:2);
end;
3:begin
write ('masukkan banyak cucian :');readln(a);
writeln('Harga perkilogram :9500');
harga:=a*9500;writeln;
write ('harga yang harus dibayar =Rp',harga:0:2);
end;
4:begin
write ('masukkan banyak cucian :');readln(a);
writeln('harga perkilogram :8500');
harga:=a*8500;writeln;
write ('Harga yang harus dibayar =Rp',harga:0:2);
end;
5:begin
write ('masukkan banyak cucian :');readln(a);
writeln('Harga perkilogram :8000');
harga:=a*8000;writeln;
write
('harga yang harus dibayar
=Rp',harga:0:2);
end;
6:begin
write ('masukkan banyak cucian :');readln(a);
writeln('harga perkilogram :7500');
harga:=a*7500;writeln;
write ('Harga yang harus dibayar =Rp',harga:0:2);
end;
else
begin
writeln('pilihan yang tersedia hanya
1,2,3, atau 4');
writeln('anda tidak dapat memilih
selain nomor di atas?');readkey;
writeln('press to any buttom,
kembali ke pilihan');readkey;
end;
end;
end;
else
begin
write ('Maaf, Pilihan yang Anda Masukkan
Tidak Sesuai Dengan Pilihan Diatas');
end;
end;
end;
procedure diskon
(var dis, harga:real);
begin
if
harga<100000 then
write('maaf anda
tidak mendapatkan diskon terima kasih') else
if
harga>=100000 then
begin
write('Selamat
Anda Mendapatkan Diskon Sebesar 10%');
harga:=harga-(harga*0.1);
write('maka anda
harus membayar= ',harga:0:2);
end;
end;
procedure
pil1(var harga : real);
begin
clrscr;
gotoxy(9,1)
;writeln('-------------------------------------');
gotoxy(13,3) ;writeln('MEMILIH');
gotoxy(10,4) ;writeln('1.pakaian
atas');
gotoxy(10,5) ;writeln('2.pakaian
bawah');
gotoxy(10,6) ;writeln('3.pakaian
atas dan bawah');
gotoxy(10,7) ;writeln('4.dress');
gotoxy(9,9) ;writeln('--------------------------------------');
gotoxy(10,12) ;writeln('Silahkan
Masukkan Pilihan Anda (1/2/3/4)......');readln(memilih);
clrscr;
case memilih of
1:begin
write ('masukkan banyak potongan :');readln(p);
writeln('Harga perPotong :2000');
harga:=p*2000;writeln;
write ('harga yang harus dibayar =Rp',harga:0:2);
diskon (dis,harga);
end;
2:begin
write ('masukkan banyak ptongan :');readln(p);
writeln('Harga perPotong :3000');
harga:=p*3000;writeln;
write ('harga yang harus dibayar =Rp',harga:0:2);
end;
3:begin
write ('masukkan banyak potongan :');readln(p);
writeln('Harga perPotongan :5000');
harga:=p*5000;writeln;
write ('harga yang harus dibayar =Rp',harga:0:2);
end;
4:begin
write ('masukkan banyak potongan :');readln(p);
writeln('harga perPotongan :4500');
harga:=p*4500;writeln;
write ('Harga yang harus dibayar =Rp',harga:0:2);
end;
else
begin
writeln('pilihan yang tersedia hanya
1,2,3, atau 4');
writeln('anda tidak dapat memilih
selain nomor di atas?');readkey;
writeln('press to any buttom, kembali
ke pilihan');readkey;
end;
end;
end;
procedure pil2;
label
x;
begin
clrscr;
gotoxy(19,2) ;writeln('Pemberitahuan
Tentang Loundry ');
gotoxy(14,4) ;writeln('_________________________________________');
gotoxy(14,5) ;writeln('| jumlah kilogram |
harga kilogram |');
gotoxy(14,6)
;writeln('_________________________________________');
gotoxy(14,7) ;writeln('| 1 kg -
20 kg
| 12000 |');
gotoxy(14,8) ;writeln('| 21 kg - 40
kg | 10000 |');
gotoxy(14,9) ;writeln('| 41 kg - 60
kg | 9500 |');
gotoxy(14,10);writeln('| 61 kg - 80
kg | 8500 |');
gotoxy(14,11);writeln('| 81 kg - 100 kg |
8000 |');
gotoxy(14,12);writeln('| >100 kg |
7500 |');
gotoxy(14,13);writeln('_________________________________________');
gotoxy(14,14);writeln(' ');
gotoxy(12,17);writeln('press any
continue');readkey;
clrscr;
gotoxy(24,2) ;writeln('MEMILIH');
gotoxy(17,3)
;writeln('___________________________');
gotoxy(17,5) ;writeln('# 1.cucian
1 kg - 20 kg #');
gotoxy(17,6) ;writeln('# 2.cucian 21
kg - 40 kg #');
gotoxy(17,7) ;writeln('# 3.cucian 41
kg - 60 kg #');
gotoxy(17,8) ;writeln('# 4.cucian 61
kg - 80 kg #');
gotoxy(17,9) ;writeln('# 5.cucian 81
kg - 100 kg #');
gotoxy(17,10);writeln('#
6.cucian >100 kg #');
gotoxy(17,11);writeln('___________________________');
gotoxy(17,13);writeln('Masukkan
Pilihan Anda (1/2/3/4/5/6):.......');readln(memilih);
clrscr;
case
memilih of
1:begin
x:
write ('masukkan banyak cucian :');readln(a);
repeat
if (a>20) then
write('maaf anda melebihi target
loundry');readkey;
clrscr;
goto x;
until (a<=20);
writeln('Harga perkilogram :12000');
harga:=a*12000;writeln;
write ('harga yang harus dibayar =Rp',harga:0:2);
end;
2:begin
write ('masukkan banyak cucian :');readln(a);
writeln('Harga perkilogram :1000');
harga:=a*1000;writeln;
write ('harga yang harus dibayar =Rp',harga:0:2);
end;
3:begin
write ('masukkan banyak cucian :');readln(a);
writeln('Harga perkilogram :9500');
harga:=a*9500;writeln;
write ('harga yang harus dibayar =Rp',harga:0:2);
end;
4:begin
write ('masukkan banyak cucian :');readln(a);
writeln('harga perkilogram :8500');
harga:=a*8500;writeln;
write ('Harga yang harus dibayar =Rp',harga:0:2);
end;
5:begin
write ('masukkan banyak cucian :');readln(a);
writeln('Harga perkilogram :8000');
harga:=a*8000;writeln;
write ('harga yang harus dibayar =Rp',harga:0:2);
end;
6:begin
write ('masukkan banyak cucian :');readln(a);
writeln('harga perkilogram :7500');
harga:=a*7500;writeln;
write ('Harga yang harus dibayar =Rp',harga:0:2);
end;
else
begin
writeln('pilihan yang tersedia hanya
1,2,3, atau 4');
writeln('anda tidak dapat memilih
selain nomor di atas?');
writeln('press to any buttom, kembali
ke pilihan');readkey;
end;
end;
end;
procedure hasil1;
begin
gotoxy(8,3);writeln('D A T A P E L A N G G A N ');
gotoxy(8,5);writeln(x.nama);
gotoxy(8,6);writeln(x.almt);
gotoxy(8,7);writeln(x.tlpn);
if memilih = 1 then
begin das := 'Pakaian Atas'; end;
if memilih = 2 then
begin das := 'Pakaian Bawah'; end;
if memilih = 3 then
begin das := 'Pakaian Atas dan
Bawah'; end;
if memilih = 4 then
begin das := 'Dress'; end;
writeln(das);
writeln(harga:0:2);
diskon(dis,harga);
end;
BEGIN
cover1(cov1);
cover2(cov2);
ulang:
cover3(cov3);
identitas(data);
clrscr;
home :
writeln('PILIHAN');
writeln('1.Mencuci perPotong');
writeln('2.Mencuci perKg');
writeln('pilih(1/2)?');readln(pilihan);
clrscr;
case
pilihan of
1:begin
kembali :
pil1(harga);
if (memilih >4) then goto kembali;
end;
2:begin
back :
pil2;
if (memilih >6) then goto back;
end;
else
begin
writeln('Maaf, Pilihan yang Anda Masukkan
Tidak Sesuai Dengan Pilihan Diatas');
readkey;
clrscr;
goto home;
end;end;clrscr;
hasil1;
repeat
begin
gotoxy(19,14);writeln
('========================================================');
gotoxy(19,19);writeln
('========================================================');
gotoxy(19,16);writeln ('
Apakah Anda Ingin Kembali ke Menu Awal? ');
gotoxy(19,17);write ('
Jika Ya tekan "Y",Jika Tidak "T" = '); readln(s);
end;
until
(s='Y')or(s='y')or(s='T')or(s='t');
clrscr;
if (s='y')or(s='Y')then
goto ulang;
if (s='T')or(s='t')then
gotoxy(16,10)
;writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
gotoxy(16,12) ;writeln(' Terima Kasih telah berkunjung ke Loundry
Happy Happy');
gotoxy(16,13) ;writeln(' Anda Puas Kami Senang');
gotoxy(16,14) ;writeln(' ');
gotoxy(16,16);writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
END.
program pascal tpw