TS. PROGRAM BIOSKOP DI PASCAL

Tugas Teratruktur dari dosen Logika Informatika dan Algoritma Praktek, Buk Mauli Siagian.
program ini d buat d prangkat tablet android... apk nya ada d postingan sebelum nya...
kalo gk mau repot, ni liat d link nya. klik d sini!!!

Program ABDIMAULANA_141510123;

uses crt;

var
    harga,menu,jumlah,toth,jp: longint;
    jam2,jufi,cofi,nama:string;
    jam : byte;
    menuutama,mem: char ;
    discont,total,kem,ua,tot:real;
   
begin
repeat
clrscr;
writeln;
writeln('             ABDI MAULANA 141510123        ');
writeln('    |----|---------------------------------|');
writeln('    | NO.| SILAHKAN PILIH YANG ANDA SUKA   |');
writeln('    |----|---------------------------------|');
writeln('    | 1. | THEATER 1 / KAMIS  = ACTION     |');
writeln('    | 2. | THEATER 2 / JUMAT  = HOROR      |');
writeln('    | 3. | THEATER 3 / SABTU  = FANTASI    |');
writeln('    | 4. | THEATER 4 / MINGGU = LOVE       |');
writeln('    | 5. | Keluar                          |');
writeln('    |----|---------------------------------|');
write  ('    | Masukkan menu pilihan anda      : ');readln(menu);

clrscr;
case menu of
     1: begin
          harga:=20000;
          nama :='THEATER 1 / KAMIS = ACTION ';
writeln;
writeln('             ABDI MAULANA 141510123        ');
writeln('    |----|--------------------------|------|');      
writeln('    | NO | PILIH FILM ACTION        | CODE |');
writeln('    |----|--------------------------|------|');
writeln('    | 1. | MISION IMPOSIBLE         | MII  |');
writeln('    | 2. | THE MECHANIC             | TMC  |');
writeln('    | 3. | FAST TO FURIOUS          | FTF  |');
writeln('    | 4. | THE BRANDALZ             | TBZ  |');
writeln('    | 5. | 007 JAMES BOND           | 007  |');
writeln('    |----|--------------------------|------|');
write  ('    == Masukkan CODE FILM pilihan   : '); readln (cofi);

if cofi='mii' then
jufi:='THE MECHANIC';
if cofi='tmc' then
jufi:='THE MECHANIC';
if cofi='ftf' then
jufi:='FAST TO FURIOUS';
if cofi='tbz' then
jufi:='THE BERANDALZ';
if cofi='007' then
jufi:='007 JAMES BOND';

clrscr;
writeln;
writeln('            ABDI MAULANA 141510123        ');
writeln('    |----|---------------------------------|');
writeln('    | NO | Pilih Jam Tayang                |');
writeln('    |----|---------------------------------|');
writeln('    | 1. | 15:00 - 17:00                   |');
writeln('    | 2. | 17:30 - 19:30                   |');
writeln('    | 3. | 20:00 - 22:00                   |');
writeln('    |----|---------------------------------|');
write  ('    == Jam pilihan anda  : ');readln (jam);
clrscr;
writeln ;
writeln('            ABDI MAULANA 141510123        ');
writeln('    |-------------------------------|------|');
write  ('    | Apakah Anda Punya Member [Y/T] : ');readln (mem);
write  ('    | Jumlah Tiket Yang anda Pesan   : ');readln (jp);
writeln('    |-------------------------------|------|');
       end;
            2: begin
          harga:=30000;
       nama:='THEATER 2 / JUMAT = HOROR ';
writeln;
writeln('              ABDI MAULANA 141510123        ');
writeln('    |----|--------------------------|------|');      
writeln('    | NO | PILIH FILM ACTION        | CODE |');
writeln('    |----|--------------------------|------|');
writeln('    | 1. | ANABELE                  | ANB  |');
writeln('    | 2. | UNINVITED                | UVT  |');
writeln('    | 3. | FINAL DESTINATION        | FDT  |');
writeln('    | 4. | THE RAW                  | TRW  |');
writeln('    | 5. | PARANORMAL ACTIFITY      | PAT  |');
writeln('    |----|--------------------------|------|');
write  ('    == Masukkan CODE FILM pilihan   : '); readln (cofi);

if cofi='anb' then
jufi:='ANABELE';
if cofi='uvt' then
jufi:='UNINVITED';
if cofi='fdt' then
jufi:='FINAL DESTINATION';
if cofi='trw' then
jufi:='THE RAW';
if cofi='pat' then
jufi:='PARANORMAL ACTIVITY';

clrscr;
writeln;
writeln('             ABDI MAULANA 141510123         ');
writeln('    |----|---------------------------------|');
writeln('    | NO | Pilih Jam Tayang                |');
writeln('    |----|---------------------------------|');
writeln('    | 1. | 15:00 - 17:00                   |');
writeln('    | 2. | 17:30 - 19:30                   |');
writeln('    | 3. | 20:00 - 22:00                   |');
writeln('    |----|---------------------------------|');
write  ('    == Jam pilihan anda  : ');readln (jam);
clrscr;
writeln ;
writeln('            ABDI MAULANA 141510123        ');
writeln('    |-------------------------------|------|');
write  ('    | Apakah Anda Punya Member [Y/T] : ');readln (mem);
write  ('    | Jumlah Tiket Yang anda Pesan   : ');readln (jp);
writeln('    |-------------------------------|------|');
         end;
     3: begin
          harga:=40000;
       nama:='THEATER 3 / SABTU = FANTASI ';
writeln;
writeln('             ABDI MAULANA 141510123        ');
writeln('    |----|--------------------------|------|');      
writeln('    | NO | PILIH FILM FANTASI       | CODE |');
writeln('    |----|--------------------------|------|');
writeln('    | 1. | FROZEN                   | FRZ  |');
writeln('    | 2. | DISPACABLE ME            | DPM  |');
writeln('    | 3. | HOW TO TRAIN UR DRAGON   | HTD  |');
writeln('    | 4. | FINAL FANTASI XIV        | FFX  |');
writeln('    | 5. | RIO 3                    | RO3  |');
writeln('    |----|--------------------------|------|');
write  ('    == Masukkan CODE FILM pilihan   : '); readln (cofi);

if cofi='frz' then
jufi:='FROZEN';
if cofi='dpm' then
jufi:='DISPACABLE ME';
if cofi='htd' then
jufi:='HOW TO TRAIN YOUR DRAGON';
if cofi='ffx' then
jufi:='FINAL FANTASI XIV';
if cofi='ro3' then
jufi:='RIO 3';

clrscr;
writeln;
writeln('       ABDI MAULANA 141510123        ');
writeln('    |----|---------------------------------|');
writeln('    | NO | Pilih Jam Tayang                |');
writeln('    |----|---------------------------------|');
writeln('    | 1. | 15:00 - 17:00                   |');
writeln('    | 2. | 17:30 - 19:30                   |');
writeln('    | 3. | 20:00 - 22:00                   |');
writeln('    |----|---------------------------------|');
write  ('    == Jam pilihan anda  : ');readln (jam);
clrscr;
writeln ;
writeln('            ABDI MAULANA 141510123        ');
writeln('    |-------------------------------|------|');
write  ('    | Apakah Anda Punya Member [Y/T] : ');readln (mem);
write  ('    | Jumlah Tiket Yang anda Pesan   : ');readln (jp);
writeln('    |-------------------------------|------|');
         end;
     4: begin
          harga:=50000;
       nama:='THEATER 4 / MINGGU = LOVE ';
writeln;
writeln('             ABDI MAULANA 141510123        ');
writeln('    |----|--------------------------|------|');      
writeln('    | NO | PILIH FILM LOVE          | CODE |');
writeln('    |----|--------------------------|------|');
writeln('    | 1. | MERRY ME                 | MRM  |');
writeln('    | 2. | BEST OF ME               | BOM  |');
writeln('    | 3. | LOVE IN PERTH            | LIP  |');
writeln('    | 4. | DONT LEAVE ME            | DLM  |');
writeln('    | 5. | HOLD LOVE                | HOL  |');
writeln('    |----|--------------------------|------|');
write  ('    == Masukkan CODE FILM pilihan   : '); readln (cofi);

if cofi='mrm' then
jufi:='MARRY ME';
if cofi='bom' then
jufi:='BEST OF ME';
if cofi='lip' then
jufi:='LOVE IN PERTH';
if cofi='dlm' then
jufi:='DONT LEAVE ME';
if cofi='hol' then
jufi:='HOLD LOVE';

clrscr;
writeln;
writeln('       ABDI MAULANA 141510123        ');
writeln('    |----|---------------------------------|');
writeln('    | NO | Pilih Jam Tayang                |');
writeln('    |----|---------------------------------|');
writeln('    | 1. | 15:00 - 17:00                   |');
writeln('    | 2. | 17:30 - 19:30                   |');
writeln('    | 3. | 20:00 - 22:00                   |');
writeln('    |----|---------------------------------|');
write  ('    == Jam pilihan anda  : ');readln (jam);
clrscr;
writeln ;
writeln('            ABDI MAULANA 141510123        ');
writeln('    |-------------------------------|------|');
write  ('    | Apakah Anda Punya Member [Y/T] : ');readln (mem);
write  ('    | Jumlah Tiket Yang anda Pesan   : ');readln (jp);
writeln('    |-------------------------------|------|');
       end;
    
     5: begin
     end;
     end;
         
     if jam = 1 then
     begin
     jam2 := '15:00 - 17:00';
     end
     else if jam = 2 then
     begin
     jam2 := '18:30 - 19:30';
     end
     else if jam = 3 then
     begin
     jam2 := '20:00 - 22:00';
     end;

toth := jp * harga;

    if mem = 'y' then
    discont := toth * 0.25
else if mem = 't' then
if jp >= 5 then
discont := toth * 0.10;

total := toth - discont;
   
    if menu<=5 then
    begin
    
     clrscr;
writeln ;
writeln('                  ABDI MAULANA | NPM : 141510123');    
writeln('   |======================================================|');
writeln('   |                 TRANSAKSI TIKET BIOSKOP              |');
writeln('   |======================================================|');
writeln('   | Nama Theater           : ',nama);
writeln('   | Judul Film             : ',jufi);
writeln('   | Jam Tayang             : ',jam2);
writeln('   | Banyak Tiket yg dibeli : ',jp);
writeln('   | Harga Per Tiket        : Rp. ',harga);
writeln('   | Total Biaya            : Rp. ',toth);
writeln('   | Distount anda          : Rp. ',discont:0:0);
writeln('   | Total Yg Harus Dibayar : Rp. ',total:0:0);
writeln('   |======================================================|');
write  ('   | Uang Anda Adalah       : Rp. ');readln(ua);
kem := ua - total;
writeln('   | Kembalian Uang Anda    : Rp. ',kem:0:0);
writeln('   |======================================================|');
writeln('                          TERIMA KASIH');
writeln('                   SELAMAT MENONTN FILM ANDA');
     readln;
     end;
clrscr;
begin
writeln;
writeln('   |======================================================|');
writeln('   |       Tambah Pemesan Tiket lagi?? [tekan enter]      |');
    writeln('   |======================================================|');
readln(menuutama);
                end;
until (menuutama='y');
end.

gambar d bawah ini tampilan akhir nya.

slamat mencoba...

Comments

Post a Comment

Popular posts from this blog

QUESTION OF LIFE

Ni pertanyaan question of life yg kayak di programnya Dedy Corbuzier Hitam Putih di Trans7. boleh di jawab ķalo mau. QUESTION OF LIFE “ Isilah titik2 dibawah ini dengan jawaban menurut diri sendiri A. Soal 1. Ibu saya tidak pernah tahu kalo saya pernah.... 2. Saya merasa Ganteng/Cantik saat saya.... 3. Jika saya bisa mengulangi waktu saya akan.... 4. Seandainya saya dilahirkan jadi hewan, maka saya ingin menjadi.... 5. Kalau saya bertemu tuyul, saya akan minta...... 6. Saya pintar saya kaya saya ganteng/cantik tapi sebenarnya saya ...... ” “ PILIH SALAH SATU JAWABANNYA YAH B. Pilih Pilih mana 1. Pacar Cantik/ganteng tapi Bodoh/ Pacar Jelek Tapi pintar 2. Kaya Bodoh/Miskin Pintar 3. Mati muda/Hidup Melarat 4. Ketemu setan/Ketemu macan 5. Mati mendadak/ miskin mendadak 6. Pete / Jengkol 7. Tambah pintar/ Tambah kaya 8. Ibu/ ayah
Read more

TUGAS MANDIRI IMPLEMENTASI PANCASILA DI ERA SETELAH REFORMASI MATA KULIAH : PANCASILA

TUGAS MANDIRI IMPLEMENTASI PANCASILA DI ERA SETELAH REFORMASI MATA KULIAH : PANCASILA DISUSUN OLEH :                                       NAMA    :   ABDI MAULANA                                       NPM       :   141510123 UNIVERSITAS PUTERA BATAM TAHUN 2014 KATA PENGANTAR Puji Syukur Marilah kita ucapkan kepada Tuhan Yang Maha Esa Yang telah melimpahkan Rahmat dan karuniaNYA kepada kita semua, sehingga melalui proses yang panjang dan kerjasama yang baik tugas makalah (artikel) “ Pendidikan Pancasila “ ini dapat diselesaikan. Makalah (artikel) ini dibuat dengan maksud untuk salah satu persyaratan nilai Pendukung Ujian akhir semester, disamping itu makalah (artikel) ini juga memberikan manfaat kepada kita semua tentang Implementasi Pancasila diera Setelah Reformasi.             Dan tidak lupa saya ucapkan terimakasih kepada “Team Dosen” Selaku dosen pemandu mata kuliah Pendidikan Kewarganegaraan yang telah membimbing saya dalam
Read more

Program Perhitungan Gaji Karyawan

==============================PROGRAM 1=============================== program pembuatan_record; uses crt; procedure garis; begin writeln(’==============================================’); end; type reckaryawan=record jab,nip,nama:string; gol:integer; gapok,tunj:real; end; var pegawai:reckaryawan; total:real; begin clrscr; writeln(’ LAPORAN PERHITUNGAN GAJI KARYAWAN PT MAJU TAK GENTAR’); garis; writeln; write(’Masukan NIP Karyawan : ‘);readln(pegawai.nip); write(’Masukan Nama Karyawan : ‘);readln(pegawai.nama); write(’Golongan[1/2/3] : ‘);readln(pegawai.gol); garis; case pegawai.gol of 1: begin pegawai.jab:=’Staf dan Tetap’; pegawai.gapok:=900000; end; 2: begin pegawai.jab:=’Staf dan Kontrak’; pegawai.gapok:=700000; end; 3: begin pegawai.jab:=’Kontrak’; pegawai.gapok:=500000; end; end; if pegawai.jab=’Staf dan Tetap’ then pegawai.tunj:=25/100*pegawai.gapok else if pegawai.jab=’Staf dan Kontrak’ then pegawai.tunj:=10/100*pegawai.gapok else
Read more