Ini Coding + Hasil Tampilan Codding nya yah :
Program bioskop;
useswincrt;
Type Kasir=record
no_trans,judul,room,jenis:string[10];
studio,wkt:integer;
kd_jns,jml:byte;
tot_bayar,hrg,bayar,cash,kmbl,dis:real;
end;
var
Data:array[1..100] of kasir;
no_trans,judul,room,jenis:string[10];
wkt:integer;
kd_jns,jml:byte;
hrg,bayar,cash,kmbl,dis:real;
ul:char;
i,n,x:integer;
jml_penjualan:real;
begin
repeat
clrscr;
i:=i+1;
Writeln(' Brema
21 Cinema ');
Writeln(' Jl. Jendral
Panglima,Batam-Indonesia ');
Writeln('=====================================================');
writeln;
writeln('Form Transaksi');
Writeln;
writeln('Data Ke-',i);
Write('No_Transaksi :');readln(data[i].no_trans);
Write('Hall Room :');readln(data[i].studio);
writeln('=================================================');
if Data[i].studio = 1 then
begin
data[i].judul :='RUNAWAY';
data[i].hrg := 30000;
end
elseif Data[i].studio = 2 then
begin
data[i].judul :='ANNABELLE';
data[i].hrg := 30000;
end
elseif Data[i].studio = 3 then
begin
data[i].judul :='MAZE RUNNER';
data[i].hrg := 30000;
end
elseif Data[i].studio = 4 then
begin
data[i].judul :='IRON MAN';
data[i].hrg := 30000;
end
elseif Data[i].studio = 5 then
begin
data[i].judul :='FAST FORIUS 6';
data[i].hrg := 30000;
end;
writeln('Judul Film :
',Data[i].judul);
writeln('Harga :
',Data[i].hrg:0:0);
writeln('=================================================');
write('Waktu : ');readln(wkt);
casewkt of
08..10 :
Data[i].room:='Pagi';
11..13 : Data[i].room:='Siang';
14..16 : Data[i].room:='Sore';
17..19 :
Data[i].room:='Malam';
20..22 :
Data[i].room:='Malam';
else
writeln('Periksa Input');
end;
Writeln('Waktu : ',Data[i].room);
writeln('=================================================');
Write('Ada Member :');readln(data[i].kd_jns);
if data[i].kd_jns = 1 then
begin
data[i].jenis
:='member';
data[i].dis:=25/100*data[i].hrg;
data[i].bayar:=data[i].hrg*data[i].jml;
end
else
if data[i].kd_jns = 2 then
begin
data[i].jenis
:='NonMember';
end;
Writeln('Status : ',Data[i].jenis);
Write('Jumlah Beli :');readln(data[i].jml);
data[i].bayar:=data[i].jml*data[i].hrg;
writeln('=================================================');
writeln('Harga Sebelum Diskon :' ,data[i].bayar:0:0);
writeln('Potongan Harga :' ,data[i].dis:0:0);
writeln('Harga Sesudah Diskon :' ,data[i].bayar- data[i].dis:0:0);
readln;
data[i].tot_bayar:=data[i].bayar-
data[i].dis;
writeln('=================================================');
write('uang cash:');readln(data[i].cash);
write('uang kembalian:',data[i].cash-data[i].tot_bayar:0:0);readln;
data[i].kmbl:=data[i].cash-data[i].tot_bayar;
writeln;
writeln('Tambah Data(Y/N):');readln(ul);
untilupcase(ul)<>'Y';
n:=i;
end.
|
0 komentar