PROGRAM Tukang_Jualan_Tiket_Bioskop; TYPE kelas < Price:integer; > TYPE tiketfilm < tipe : kelas; all : integer; title:string; > KAMUS r:integer; x:integer; pilih:integer; Skyfall : tiketfilm; PROCEDURE Tampilkan(I/O tiketfilm f) /*I.S. = Tipe tiket film */ /*F.S .=Menampilkan status tiket film*/ FUNCTION updateprice(tiketfilm v) →integer /* I.S. = Harga awal tiket film */ /* F.S. = Pengubahan Harga tiket film oleh user */ FUNCTION addticket(tiketfilm s) →integer /* I.S.= Jumlah tiket awal */ /* F.S. = Jumlah tiket ditambahkan oleh user */ ALGORITMA //untuk program utama { output("\n 1. Masukkan Data Film"); output("\n 2. Tambah Tiket"); output("\n 3. Ganti Harga Tiket"); output("\n 4. Lihat Data Tiket"); output("\n 5. Exit"); output("\n Masukkan pilihan anda :"); input(pilih); while(pilih<>5) DO BEGIN IF(pilih==1) THEN{ output("\n Masukkan Harga tiket :"); input(Skyfall.tipe.price); output("\n Masukkan Jumlah tiket :"); input(Skyfall.all); output("\n Masukkan Judul film :"); input(Skyfall.title); output("\n done!"); output("\n 1. Masukkan Data Film"); output("\n 2. Tambah Tiket"); output("\n 3. Ganti Harga Tiket"); output("\n 4. Lihat Data Tiket"); output("\n 5. Exit"); output("\n Masukkan pilihan anda :"); input(pilih); } ELSE IF(pilih==2) THEN begin x←addticket(Skyfall); output("Sekarang Jumlah tiketnya menjadi ",x); output("\n done!"); output("\n 1. Masukkan Data Film"); output("\n 2. Tambah Tiket"); output("\n 3. Ganti Harga Tiket"); output("\n 4. Lihat Data Tiket"); output("\n 5. Exit"); output("\n Masukkan pilihan anda :"); input(pilih); end ELSE IF(pilih==3)THEN begin r←updateprice(Skyfall); output("Sekarang Harga Tiketnya menjadi ",r); output("\n done!"); output("\n 1. Masukkan Data Film"); output("\n 2. Tambah Tiket"); output("\n 3. Ganti Harga Tiket"); output("\n 4. Lihat Data Tiket"); output("\n 5. Exit"); output("\n Masukkan pilihan anda :"); input(pilih); end ELSE IF(pilih==4) THEN begin Tampilkan(Skyfall); output("\n 1. Masukkan Data Film"); output("\n 2. Tambah Tiket"); output("\n 3. Ganti Harga Tiket"); output("\n 4. Lihat Data Tiket"); output("\n 5. Exit"); output("\n Masukkan pilihan anda :"); input(pilih); end END FUNCTION updateprice(tiketfilm v) →integer /* I.S. = Harga awal tiket film*/ /* F.S. = Pengubahan Harga tiket film oleh user */ KAMUS a:integer; ALGORITMA a←v.tipe.price; output("Masukkan harga yang baru:"); input(v.tipe.price); → v.tipe.price; FUNCTION addticket(tiketfilm s) →integer /* I.S.= Jumlah tiket awal */ /* F.S. = Jumlah tiket ditambahkan oleh user */ KAMUS n:integer; a:integer; ALGORITMA begin n←s.all; output("Masukkan jumlah tiket tambahan:"); input(a); s.all←s.all+a; →s.all; end PROCEDURE Tampilkan (I/O tiketfilm f) /*I.S. = Tipe tiket film */ /*F.S .=Menampilkan status tiket film*/ KAMUS f:tiketfilm; ALGORITMA begin Output(“Judul Film adalah “,f.title); Output(“Harga Tiap tiketnya sebesar“,f.tipe.price); Output(“Jumlah tiket yang tersedia sebanyak “,f.all); end