program dan design

PROGRAM PILIH;
USES CRT;

LABEL
KEMBALI,KEMBALI1,KEMBALI2,KEMBALI3,AWAL;


TYPE WARNET=RECORD
KLSKAMAR : CHAR;
TARIF,TTL,LM : REAL;
NM : STRING;
END;

TYPE BIOSKOP=RECORD
NAMA,HARI: STRING;
TTL,JM : REAL;
END;

TYPE MAKAN=RECORD
NMMAKAN,NMMINUM : STRING;
KMKN,KMIN : CHAR;
HGMKN,HGMIN,JI,JMKN,JMIN,TTL1,TTL2,UB,UK,TOBAY : REAL;
END;

TYPE TOYS=RECORD
NP,NM,MERK : STRING;
JUMBEL,HG,TTL,POT,TOBAY,UB,UK : REAL;
KDM : CHAR;
END;

VAR
JF,NK : ARRAY [1..100] OF STRING;
JB,HG,TOBAY : ARRAY [1..100] OF REAL;
KF : ARRAY [1..100] OF CHAR;
NONTON : BIOSKOP;
MINUM : MAKAN;
MAINAN : TOYS;
MENU,LAGI : CHAR;
I,JUMDAT : BYTE;

{WARNET}
PAKE : WARNET;

{** PROGRAM 1 **}

PROCEDURE SAFIRANET;

BEGIN

TEXTBACKGROUND(BLUE);
CLRSCR;

WITH PAKE DO
BEGIN
WRITELN('MASUKAN KETERANGAN SESUAI');
WRITELN(' DENGAN PERTANYAAN ');
WRITELN('=========================');
WRITE('NAMA USER = ');READLN(NM);
WRITE('KELAS KAMAR [1/2/3] = ');READLN(KLSKAMAR);
WRITE('LAMA PEMAKAIAN [JAM] = ');READLN(LM);

IF KLSKAMAR='1' THEN TARIF :=LM*4000
ELSE IF KLSKAMAR='2' THEN TARIF :=LM*3000
ELSE TARIF :=LM*2500;

CLRSCR;
WRITELN('STRUK PEMBAYARAN SAFIRA NET');
WRITELN(' JL. RAMBUTAN NO.23 JAKSEL ');
WRITELN('---------------------------');
WRITELN('NAMA USER = ',NM);
WRITELN('KELAS KAMAR = ',KLSKAMAR);
WRITELN('LAMA PEMAKAIAN = ',LM:9:0,'JAM');
WRITELN('TARIF =Rp ',TARIF:2:0);
WRITELN;
WRITELN('---- TERIMA KASIH ATAS ----');
WRITELN(' KUNJUNGAN ANDA ');

END;
END;


{** PROGRAM 2 **}

PROCEDURE FILM;
BEGIN
TEXTBACKGROUND(CYAN);
CLRSCR;

WITH NONTON DO
BEGIN
WRITELN(' DAFTAR FILM "CINEMA 21" ');
WRITELN('********************************');
WRITELN('1. SPIDERMAN 3');
WRITELN('2. LOVE IS CINTA');
WRITELN('3. MENGEJAR MAS MAS');
WRITELN('4. SUSTER NGESOT');
WRITELN('********************************');
WRITE('NAMA OPERATOR : ');READLN(NAMA);
WRITE('HARI : ');READLN(HARI);
WRITE('JUMLAH DATA : ');READLN(JUMDAT);
FOR I:=1 TO JUMDAT DO
BEGIN
WRITELN;
WRITELN('DATA KE : ',I);
WRITE('FILM [1/2/3/4] : ');READLN(KF[I]);
WRITE('JUMLAH BELI : ');READLN(JB[I]);
WRITE('NOMOR KURSI : ');READLN(NK[I]);
WRITE('JAM MULAI : ');READLN(JM);


IF KF[I]='1' THEN JF[I]:='SPIDERMAN 3'
ELSE IF KF[I]='2' THEN JF[I]:='LOVE IS CINTA'
ELSE IF KF[I]='3' THEN JF[I]:='MENGEJAR MAS MAS'
ELSE JF[I]:='SUSTER NGESOT';


IF HARI='SENEN' THEN HG[I]:=15000 ELSE HG[I]:=25000;
TOBAY[I]:=JB[I]*HG[I];
TTL:=TTL+TOBAY[I];
END;

CLRSCR;
TEXTCOLOR(LIGHTBLUE);
WRITELN('NAMA OPERATOR : ',NAMA);
WRITELN;
WRITELN(' ..- CINEMA 21 -.. ‘);
WRITELN('_______________________________________________________');
WRITELN('JAM MULAI : ',JM:9:2);
WRITELN('*******************************************************');
WRITELN(' NO JUDUL FILM NOMOR KURSI HARGA JUMLAH BELI TOTAL ');
WRITELN('*******************************************************'); {123456789012345678901234567890123456789012345678901234567890123456789}

FOR I:=1 TO JUMDAT DO
BEGIN
GOTOXY(1,8+I);WRITE('º',I);
GOTOXY(6,8+I);WRITE('º',JF[I]);
GOTOXY(23,8+I);WRITE('º',NK[I]);
GOTOXY(37,8+I);WRITE('º',HG[I]:2:0);
GOTOXY(45,8+I);WRITE('º',JB[I]:2:0);
GOTOXY(59,8+I);WRITE('º',TOBAY[I]:2:0);
GOTOXY(69,8+I);WRITELN('º');
END;
WRITELN('******************************************************');
WRITELN(' TOTAL KESELURUHAN :Rp ',TTL:2:0);
WRITELN('_____________________________________________________');

END;
END;

{** PROGRAM 3 *}

PROCEDURE RESTAURANT;
BEGIN
TEXTBACKGROUND(MAGENTA);
CLRSCR;

WITH MINUM DO
BEGIN
WRITELN(' MENU MAKANAN & MINUMAN ');
WRITELN('______________________________________');
WRITELN('| MAKANAN || MINUMAN |');
WRITELN('______________________________________');
WRITELN('|1. POPCORN SWEET || 1. ORANGE JUICE |');
WRITELN('|2. Mr. Pie || 2. SOFT DRINK |');
WRITELN('|3. SNACK || 3. CAPUCCINO |');
WRITELN('|4. POPCORN SALT || 4. AIR MINERAL |');
WRITELN('______________________________________');
WRITE('PILIH MAKANAN [1/2/3/4] : ');READLN(KMKN);
IF KMKN='1' THEN
BEGIN
NMMAKAN :='POPCORN SWEET';
HGMKN :=8000;
END
ELSE IF KMKN='2' THEN
BEGIN
NMMAKAN :='Mr. Pie';
HGMKN :=10000;
END
ELSE IF KMKN='3' THEN
BEGIN
NMMAKAN :='SNACK';
HGMKN :=5000;
END
ELSE
BEGIN
NMMAKAN :='POPCORN SALT';
HGMKN :=8000;
END;

WRITE('PILIH MINUMAN [1/2/3/4] : ');READLN(KMIN);
IF KMIN='1' THEN
BEGIN
NMMINUM :='ORANGE JUICE';
HGMIN :=9000;
END
ELSE IF KMIN='2' THEN
BEGIN
NMMINUM :='SOFT DRINK';
HGMIN :=2500;
END
ELSE IF KMIN='3' THEN
BEGIN
NMMINUM :='CAPUCCINO';
HGMIN :=15000;
END
ELSE
BEGIN
NMMINUM :='AIR MINERAL';
HGMIN :=2000;
END;

CLRSCR;
WRITELN(' CAFE CINEMA 21 ');
WRITELN('###############################');
WRITELN('MAKANAN : ',NMMAKAN);
WRITE('JUMLAH MAKANAN : ');READLN(JMKN);
WRITELN('HARGA MAKANAN :Rp ',HGMKN:2:0);
TTL1 :=JMKN*HGMKN;
WRITELN('TOTAL MAKANAN :Rp ',TTL1:2:0);
WRITELN('MINUMAN : ',NMMINUM);
WRITE('JUMLAH MINUMAN : '); READLN(JMIN);
WRITELN('HARGA MINUMAN :Rp ',HGMIN:2:0);
TTL2 :=JMIN*HGMIN;
WRITELN('TOTAL MINUMAN :Rp ',TTL2:2:0);
WRITELN(' ---------------');
TOBAY:=TTL1+TTL2;
WRITELN('TOTAL BAYAR :Rp ',TOBAY:2:0);
WRITELN('################################');
JI :=JMKN+JMIN;
WRITELN('JUMLAH ITEMS : ',JI:2:0);
WRITE('UANG BAYAR :Rp ');READLN(UB);
UK:=UB-TOBAY;
WRITELN('UANG KEMBALI :Rp ',UK:2:0);
WRITELN('################################');

END;
END;

{** PROGRAM 4 **}

PROCEDURE DOLANAN;
BEGIN
TEXTBACKGROUND(LIGHTGREEN);
CLRSCR;

WITH MAINAN DO
BEGIN
WRITELN('MASUKAN KETERANGAN SESUAI');
WRITELN(' DENGAN PERTANYAAN ');
WRITELN('=========================');
WRITE('NAMA PEMBELI = ');READLN(NP);
WRITE('KODE MAINAN [1/2/3] = ');READLN(KDM);
WRITE('JUMLAH PEMBELIAN = ');READLN(JUMBEL);

IF KDM='1' THEN
BEGIN
NM :='BARBIE';
MERK:='BARBIE';
HG :=50000;
END
ELSE IF KDM='2' THEN
BEGIN
NM :='MOBIL-MOBILAN';
MERK:='HOT WHEELS';
HG :=80000;
END
ELSE
BEGIN
NM :='BONEKA';
MERK:='FULLA';
HG :=40000;
END;

TTL:=JUMBEL*HG;
TOBAY:=TTL-POT;


CLRSCR;
WRITELN(' STRUK PEBELIAN MAINAN TOYS R US ');
WRITELN(' JL. BLOK-M NO.19 JAK-SEL ');
WRITELN('------------------------------------');
WRITELN('NAMA PEMBELI = ',NP);
WRITELN('NAMA MAINAN = ',NM);
WRITELN('MERK MAINAN = ',MERK);
WRITELN('JUMLAH PEMBELIAN = ',JUMBEL:2:0);
WRITELN('HARGA MAINAN =Rp ',HG:2:0);
WRITELN('TOTAL HARGA =Rp ',TTL:2:0);
IF JUMBEL>=3 THEN POT:=(5*TTL)/100 ELSE POT:=0;
WRITELN('POTONGAN =Rp ',POT:2:0);
WRITELN('------------------------------------');
WRITELN('TOTAL PEMBAYARAN =Rp ',TOBAY:2:0);
WRITE('UANG BAYAR =Rp ');READLN(UB);
UK:=UB-TTL;
WRITELN('UANG KEMBALI =RP ',UK:2:0);
WRITELN('------------------------------------');
WRITELN;
WRITELN(' ---- TERIMA KASIH ATAS ----');
WRITELN(' KUNJUNGAN ANDA ');

END;
END;


BEGIN
AWAL:
TEXTBACKGROUND(BLACK);
CLRSCR;

BEGIN
WRITELN('==========================================');
WRITELN(' ------------ PILIHAN MENU ------------- ');
WRITELN(' ');
WRITELN(' 1. STRUK WARNET ');
WRITELN(' ');
WRITELN(' 2. PROGRAM BIOSKOP ');
WRITELN(' ');
WRITELN(' 3. PROGRAM CAFE ');
WRITELN(' ');
WRITELN(' 4. STRUK TOYS R US ');
WRITELN(' ');
WRITELN(' 5. EXIT ');
WRITELN(' ');
WRITELN('==========================================');
WRITE('SILAHKAN PILIH MENUNYA = ');READLN(MENU);
WRITELN;
IF MENU ='1' THEN
BEGIN
KEMBALI:
SAFIRANET;
WRITE('INGIN INPUT LAGI [Y/N] : ');READLN(LAGI);
IF LAGI='Y' THEN GOTO KEMBALI
ELSE GOTO AWAL;
END

ELSE
IF MENU ='2' THEN
BEGIN
KEMBALI1:
FILM;
WRITE('INGIN INPUT LAGI [Y/N] : ');READLN(LAGI);
IF LAGI='Y' THEN GOTO KEMBALI1
ELSE GOTO AWAL;
END

ELSE
IF MENU ='3' THEN
BEGIN
KEMBALI2:
RESTAURANT;
WRITE('INGIN INPUT LAGI [Y/N] : ');READLN(LAGI);
IF LAGI='Y' THEN GOTO KEMBALI2
ELSE GOTO AWAL;
END

ELSE
IF MENU ='4' THEN
BEGIN
KEMBALI3:
DOLANAN;
WRITE('INGIN INPUT LAGI [Y/N] : ');READLN(LAGI);
IF LAGI='Y' THEN GOTO KEMBALI3
ELSE GOTO AWAL;
END
ELSE IF MENU ='5' THEN
EXIT;

END;
READLN;
END.