program pengunjung konser

PROGRAM DAFTAR_PENGUNJUNG_KONSER;
USES CRT;
LABEL
Y,N;
CONST
H_TKT=300000;
VAR
N_PMBL,N_BAND,N_KLS :STRING;
J_BL,TH,DSK,TB,UB,UK :REAL;
NO :CHAR;
BEGIN
Y:
CLRSCR;
WRITE('NAMA PEMBELI :');READLN(N_PMBL);
WRITE('NAMA BAND :');READLN(N_BAND);
WRITE('JUMLAH BELI :');READLN(J_BL);
WRITE('NAMA KELAS :');READLN(N_KLS);
TH:=H_TKT*J_BL;
DSK:=0.1*TH;
TB:=TH-DSK;
WRITELN;
WRITELN('* * * * * * * * * * * * * ');
WRITELN('KONSER MUSIK "ONE FOR ALL"');
WRITELN('* * * * * * * * * * * * * ');
WRITELN('NAMA PEMBELI :',N_PMBL);
WRITELN('NAMA BAND :',N_BAND);
WRITELN('NAMA KELAS :',N_KLS);
WRITELN('HARGA TIKET :Rp.',H_TKT:2);
WRITELN('* * * * * * * * * * * * * * ');
WRITELN('TOTAL HARGA :Rp.',TH:2:0);
WRITELN('DISKON :Rp.',DSK:2:0);
WRITELN('TOTAL BAYAR :Rp.',TB:2:0);
WRITELN('* * * * * * * * * * * * * * ');
WRITE('UANG BAYAR :Rp.');READLN(UB);
UK:=UB-TB;
WRITELN('UANG KEMBALI :Rp.',UK:2:0);
WRITELN('* * * * * * * * * * * * * * ');
WRITE('INGIN INPUT LAGI [Y/N]:');READLN(NO);
IF NO= 'Y' THEN
GOTO Y
ELSE
GOTO N;
READLN;
N:
END.

PROGRAM DAFTAR_PENGUNJUNG_HOTEL;
USES CRT;
LABEL
Y,N;
VAR
N_INAP,N_KMR,N_KLS :STRING;
LM :INTEGER;
HK,TH,DSK,TB,UB,UK :REAL;
K_KLS,K_KMR,NO :CHAR;
BEGIN
Y:
CLRSCR;
WRITE('NAMA PENGINAP :');READLN(N_INAP);
WRITE('KODE KAMAR [S/M/A] :');READLN(K_KMR);
WRITE('KODE KELAS [1/2] :');READLN(K_KLS);
WRITE('LAMA MENGINAP :');READLN(LM);
IF K_KLS='1' THEN N_KLS:='EKSLUSIF' ELSE N_KLS:='VIP';
IF LM>10 THEN DSK:=0.1 ELSE DSK:=0;
IF K_KMR= 'S' THEN
BEGIN
N_KMR:='SAKURA';
HK:=500000;
END
ELSE IF K_KMR= 'M' THEN
BEGIN
N_KMR:='MAWAR';
HK:=600000;
END
ELSE
BEGIN
N_KMR:='ANGGREK';
HK:=700000;
END;
TH:=HK*LM;
DSK:=0.1*TH;
TB:=TH-DSK;
WRITELN('******************************************');
WRITELN('DAFTAR PENGUNJUNG HOTEL "BINTANG TOEDJOEH"');
WRITELN('******************************************');
WRITELN('NAMA PENGINAP :',N_INAP);
WRITELN('KODE KAMAR [S/M/A] :',K_KMR);
WRITELN('NAMA KAMAR :',N_KMR);
WRITELN('KODE KELAS [1/2] :',K_KLS);
WRITELN('HARGA KAMAR :Rp.',HK:2:0);
WRITELN('LAMA MENINAP :',LM);
WRITELN('******************************************');
WRITELN('TOTAL HARGA :Rp.',TH:2:0);
WRITELN('DISKON :Rp.',DSK:2:0);
WRITELN('TOTAL BAYAR :Rp.',TB:2:0);
WRITELN('******************************************');
WRITE('UANG BAYAR :Rp.');READLN(UB);
UK:=UB-TB;
WRITELN('UANG KEMBALI :Rp.',UK:2:0);
WRITELN('*****************************************');
WRITE('INGIN INPUT LAGI [Y/N]:');READLN(NO);
IF NO='Y' THEN
GOTO Y
ELSE
GOTO N;
READLN;
END.