Thursday, 22 January 2015

Membuat Program Bioskop Jilid 2 Menggunakan Pascal

  Ada yang pernah ke bioksop gx ?.. Pasti hampir semua pernah ke bioskop kan. Kali ini saya ingin membagikan tutor "cara membuat program bioskop jilid 2 melalui pascal(karena sebelumnya saya juga pernah ngepost materi tentang ini) ".

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.





Hasil Running dari Codding Tersebut :


Posted By: brema bastanta

Membuat Program Bioskop Jilid 2 Menggunakan Pascal

Share:

Post a Comment

Facebook
Blogger

Follow Us

About Us

Advertisment

Like Us

© OFFICIAL BLOG SEDERHANA BREMA | BREMA NOTE BLOG All rights reserved | Theme Designed by Seo Blogger Templates Published.. Blogger Templates