Belajar Membuat Program Bioskop Jilid 2 dengan Pascal

Advertisement
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 :


Belajar Membuat Program Bioskop Jilid 2 dengan Pascal Rating: 4.5 Written By: Nur Hasan

No comments:

Post a Comment


Advertisement