Hello semua, bagi anda yang ingin mencari informasi tentang bagaimana cara membuat Program bioskop dengan menggunakan pascal dengan mudah dan cepat mungkin sedikit tutorial ini akan membantu anda. Tentu Ada yang pernah ke bioksop? Dalam coding kali ini adalah sebuah materi yang akan anda dapatkan setelah meteri yang pernah saya buat hari yang lalu. silahkan di coba coding pascal berikut ini.
Belajar Membuat coding program bioskop
Ini Coding + Hasil Tampilan Codding nya:
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.
|
Hasil Running dari Codding Tersebut :