Program Pascal Penjualan Tiket

January 23, 2018

Program Penjualan Tiket Bioskop

Nah sesuai janji saya, kali ini saya membuat sebuah program yang berisikan sub program procedure dari awal hingga akhir program tentunya, seperti program sebelumnya. Kali ini program tentang penjualan tiket bioskop. Seperti halnya program sebelumnya, kali ini saya memakai procedure tanpa parameter, parameter input dan parameter output. oh iya dalam program ini saya juga menggunakan tipe data array yah, namun array ini sebenarnya sih bisa diganti dengan variabel biasa sih. hitung-hitunglah teman-teman belajar procedure dan array sekaligus juga. Nah dibawah ini listing programnya :

program P6;
uses crt;

var
Nama : string;
a,b,c : longint;
ulang : char;
j: integer;
film:array[1..4] of longint;

procedure Menu;
begin
writeln ('Daftar Film Tayang');
writeln ('1. Jumanji : Welcome to the Jungle = Rp 50.000');
writeln ('2. Insidious : The Last Key = Rp 100.000');
writeln ('3. Insidious : Chapter 3 = Rp 75.000');
writeln ('4. Jigsaw 2017 = Rp 65.000');
writeln;
end;
procedure Hitung(a,b : longint);
begin
c:= a * b;
end;
procedure Rincian(a, c : longint);
begin
writeln ('Jumlah Tiket : ',a);
writeln ('Total Harga : Rp. ',c);
end;
procedure seleksi;
begin
case film[j] of
1: begin
clrscr;
gotoxy (27,1); menu;
writeln ('Judul Film Pilihan Anda : "Jumanji : Welcome to the jungle"');
writeln ('Jumlah Tiket Pesanan : ',a);
b:= 50000;
writeln;
end;
2: begin
clrscr;
gotoxy (27,1); menu;
writeln ('Judul Film Pilihan Anda : "Insidious : The Last Key" ');
writeln ('Jumlah Tiket Pesanan : ',a);
b:=100000;
writeln;
end;
3: Begin
clrscr;
gotoxy (27,1); menu;
writeln ('Judul Film Pilihan Anda : "Insidious : Chapter 3"');
writeln ('Jumlah Tiket Pesanan : ',a);
b:= 75000;
writeln;
end;
4: begin
clrscr;
gotoxy (27,1); menu;
writeln ('Judul Film Pilihan Anda : "Jigsaw"');
writeln ('Jumlah Tiket Pesanan : ',a);
b:=65000;
writeln;
end
else Writeln ('Nomor Film yang Anda pilih belum terdaftar');
end;
end;

procedure aray;
begin
write ('Pilih Nomor Film Anda : '); readln (film[j]);
end;
procedure jmlh_tkt(var a: longint);
begin
write ('Jumlah Tiket Pesanan : '); readln (a);
end;
begin
clrscr;
repeat clrscr;
repeat
gotoxy(27,1); menu;
aray;
jmlh_tkt(a);
seleksi;
until film[j] <=4;
Hitung(a,b);
writeln ('Total Harga Tiket : Rp. ',c);
writeln;
writeln ('================================================');
writeln (' Rincian Pembelian ');
writeln ('================================================');
rincian(a,c);
writeln ('================================================');
write ('Apakah Anda ingin Mengulang Pilihan Anda [Y/N] ? '); readln (Ulang);
until ulang <> 'y';

readln;
end.