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

Aplikasi PASCAL GUI.APK untuk Prangkat android.

Image
aplikasi ini. adalah aplikasi program pascal untuk androidd.. ingat hanya hp android.. jd sangat membantu kita dalam belajar pascal.. Silahkan klik di sini untuk download file apk nya. cara instal nya. kyk biasa instal manual di prangkat android .. tinggal klik aja file apk nya... next next. selesai... di bawah ini ada gambar tampilah editor pascal nya sama yg udah diraning program nya... oke, slamat blajar pascal y. https://www.dropbox.com/s/uncz2k5o82i14fd/com.n0n3m4.droidpascal.apk?dl=0
Read more

rogram Pascal Untuk Menghitung Pajak Penghasilan

Image
PROGRAM PAJAK; USES WINCRT; VAR NAMA,NPWP:STRING; TANYA,KAWIN,ISTRI:CHAR; PENGHASILAN,PKP,PPH,ANAK,WP,PTKPKWN,PTKPISTRI,PTKPANAK,PTKP:real; T1,T2,T3,T4,T5:REAL; BEGIN WRITELN(‘PROGRAM UNTUK MENGHITUNG PAJAK PENGHASILAN’); WRITELN; WRITELN; WRITE(‘Nama Wajib Pajak                                :  ‘);readln(nama); write(‘Nomor Pokok Wajib Pajak (NPWP)   :  ‘);readln(npwp); write(‘Status [K]awin/[T]idak kawin             :  ‘);readln(kawin); write(‘Istri [B]ekerja/[T]idak Bekerja           :  ‘);readln(istri); write(‘Jumlah Anak               ...
Read more

Tutorial membangun VLAN pada CICSO dan menghubungkannya dengan Router - ...

Image
from  Abdi Maulana's blog VLAN merupakan sebuah perangkat device virtual managemen (Software) yang perlu di konfigurasi secara logikal, sehingga bisa saling berkomunikasi sesuai dengan Group VLAN dan pada sub Network yang sama dalam satu Switch atau beda Switch (Trungking), jadi VLAN di buat bukan karena koneksi Fisikal namun lebih pada koneksi Logikal yang tentunya bisa lebih fleksibel, secara logikal Switch di bagi ke beberapa Group dengan menggunakan VLAN, dan juga bisa membagi dengan beberapa Sub Network yang berbeda pada pada Group VLAN dalam satu Switch yang sama. Contoh :  1. FINANCE_DEPARTEMENT (14.15.10.100) 2. MARKETING_DEPARTEMENT (14.15.10.100) 3. LOGISTIC_DEPARTEMENT (14.15.10.100)                 Dengan menggunakan VLAN juga kita bisa membagi segmentasi jaringan berdasarkan pada Fungsinya, pada departemen ataupun tim Proyek, kita juga bisa membuat VLAN dalam mengelola jaringan sejalan berdasarkan pertu...
Read more