Catatan Harianku: program loundry happy happy

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(' 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('_______________________________________________________________');

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<>'');

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<>'');

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;

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;

else

begin

write ('Maaf, Pilihan yang Anda Masukkan Tidak Sesuai Dengan Pilihan Diatas');

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;

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;

procedure pil2;

label

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

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;

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.

Catatan Harianku

Halaman

POPULER

Kamis, 24 Mei 2012

program loundry happy happy

program pascal tpw

Tidak ada komentar:

Posting Komentar