ABDI MAULANA SYAR

program ABDIMAULANA_141510123; uses crt; var       jl,th   : longint;       byr,dis : real;       hpl     : byte; begin clrscr;       writeln('|=======================================|');       writeln('||===   PHOTOCOPY MURAH KITA KITA   ===||');       writeln('|=======================================|');       writeln;   write  ('  Banyak Lembar yang di Photocopy : ');readln(jl);   writeln('_________________________________________');   writeln;     if jl >= 1000 then hpl := 100 else   if (jl <= 999) and (jl >= 500) then hpl := 150 else   if jl <= 499 then hpl := 200;     th := jl * hpl;     if th > 500000 then dis := 0.20 else   if (th < 500000) and(th > 300000) then dis := 0.10 else   if th < 300000 then dis := 0;     dis := th * dis;       byr := th - dis;             writeln;       writeln('>>   Harga Per Lembar : Rp.',hpl);       writeln('>>   Total Harga      :

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       |');

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

Program bioskop; var pilih:integer; filem,hari,jam:string; harga,jml,total,bayar,diskon,tiket,kembali,anda:real; begin writeln('5 Filem yg di putar hari ini'); writeln('#############################'); writeln('1. Suster Ngesot '); writeln('2. Tali Pocong Hilang'); writeln('2. Gerobak Berhantu '); writeln('4. Hantu Brontosaurus'); writeln('5. Pemakaman kucing betina'); write('Masukkan pilihan anda : '); readln (pilih); case pilih of 1: begin filem := 'Suster ngesot'; harga := 35000; hari := 'Senin'; jam := '10.00 Wib'; end;     2: begin     filem := 'tali pocong hilang'; harga := 40000; hari := 'Sabtu'; jam := '18.00 Wib';     end; 3: begin filem := 'gerobak berhantu'; harga := 35000; hari := 'Rabu'; jam := '12.00 Wib'; end; 4: begin filem := 'hantu bronto surus'; har

PROGRAM RUMAH MAKAN Program ABDIMAULANA_141510123; uses wincrt; var harga,tambah,menu,total,jumlah,plus,i, jp: longint; var porsi,porsi2,jenis,nama,najen, md, np:string; var makanan : string ;     menuutama: char ; begin repeat clrscr;      writeln('              RUMAH MAKAN OPOP     '); writeln('     +------------------------------------+'); writeln('     ¦NO.¦ Daftar Menu Makanan             ¦'); writeln('     ¦---+--------------------------------¦'); writeln('     ¦ 1.¦ NasiGoreng                      ¦'); writeln('     ¦ 2.¦ Nasi Ayam                           ¦'); writeln('     ¦ 3.¦ Mie                                  ¦'); writeln('     ¦ 4.¦ Sup                             ¦'); writeln('     ¦ 5.¦ Soto                            ¦'); writeln('     | 6.| Keluar                          |'); writeln('      +------------------------------------+');