Tugas Pak Mesran

Tugas Lagi, Tugas Lagi.....

Seperti biasa, derita anak TI, M 1222, nilai hancur tugas pun meluncur....Ok, para visitor yang pengen belajar bahasa planet pemrograman(pascal) boleh lah lihat2 script dibawah ini, silahkan buka aplikasi pascal anda

uses CRT;
Var
kode          : byte;
harga,jumlah  : longint;
th            : longint;
nama          : string;


begin
 clrscr;
 Writeln('Inputkan Kode Penjualan');
 writeln('---------------------------');
 write('kode:');readln(kode);
 case kode of
    1 : Begin
          clrscr;
          nama:='Televisi';
          Writeln('Nama:',nama);
          harga:=1750000;
          writeln('Harga:',harga);
          write('Jumlah Beli:');readln(jumlah);
          th :=harga*jumlah;
          writeln('---------------');
          writeln('Total Harga:',th);
        end;
   2 : Begin
          clrscr;
          nama:='DVD';
          writeln('Nama:',nama);
          harga:=650000;
          writeln('Harga:',harga);
          write('Jumlah Beli:');readln(jumlah);
          th:= jumlah*harga;
          writeln('---------------');
          writeln('Total Harga:',th);
       end;
   3 : Begin
         clrscr;
         nama:='CD ROOM';
         writeln('Nama:',nama);
         harga:=450000;
         writeln('Harga:',harga);
         write('Jumlah Beli:');readln(jumlah);
         th := jumlah*harga;
         writeln('---------------');
         writeln('Total Harga:',th);
       end;
    end;
 readln;
 end.

Jika anda sudah sesuai mengetikkan script diatas pada Aplikasi Turbo Pascal anda, kemudian tekan CTRL+F9, maka akan muncul tampilan gambar dibawah ini,





Namun jika belum, silahkan periksa kembali letak kesalahan anda(Harus Teliti ya Genk).

Untuk memulai langkah selanjutnya, anda diberikan 3 pilihan untuk menginput kode produknya yaitu 1,2, dan 3. contoh ketikkan angka 1, akan tampil gambar seperti dibawah.








lalu ketikkan nominal jumlah belinya, misal 5



Inilah tampilan akhir dari program kita, terima kasih semoga bermanfaat di dunia dan di akhirat.

thank you !!!!!<3<3

TIPS

Cara Memblokir Situs di Windows se7en dengan mudah

Cara Memblokir Situs di Windows se7en dengan mudah - Sebelumnya sudah saya bahas di trik Cara Memblokir situs di windows 7, dan kali ini merupakan Cara Memblokir Situs di Windows se7en dengan mudah alternatif kedua jika ingin memblokir banyak website atau situs. cara ini sangat di anjurkan apabila
ingin menggunakan Trik Cara Membuat IDM menjadi Full Version tanpa Crack karena jika menggunakan trik sebelumnya, kita menggunakan program Command Promt sebagai Program utama dan tidak memungkin kan untuk mengetik ulang seluruh situs yang ingin di block karena Command Promt tidak bisa menggunakan menu Copy dan Paste, dan di trik kali ini kita akan menggunakan Program Notepad.

1. klik Start - ketik notepad lalu klik kanan pada notepad pilih Run as Administrator

2. jika sudah terbuka, klik menu file dan Open

3. Masuk ke C:\\Windows\System32\drivers\etc lalu pilih hosts ( sebelum itu, pilih All Files. )

4. masukkan Situs yang ingin di blokir tepat dibawah 127.0.0.1 ( contoh digambar adalah situs yang diblokir jika ingin menggunakan Trik Cara Membuat IDM menjadi Full Version tanpa Crack )

5. terakhir simpan dan bisa dilihat hasilnya.

Sekian  Cara Memblokir Situs di Windows se7en dengan mudah dari saya, semoga dapat bermanfaat. jika kesulitan, silahkan tinggalkan komentar dibawah.

disadur dari sini

Pemrograman Santapan Wajib Mahasiswa ILKOM

http://www.mesran.net

Komputer, Internet, Printer, software dan segala perangkat Peripheral lainnya sudah tak asing lagi bagi anda yang mengambil Jurusan Ilmu Komputer di Kampus ataupun Universitas tempat anda mengenyam pendidikan. Saya akan berbagi sedikit informasi langka yang dapat anda kembangkan dalam menambah wawasan anda. Di awal semester sebagai mahasiswa baru, banyak materi baru yang akan membuat anda terkejut dan mati rasa untuk meneruskannya. Saya punya Obatnya, anda tidak perlu pergi ke Rumah Sakit Estomihi untuk membeli obat sakit kepala. Cukup satu Link ini, luka anda dapat terobati yakni website Mesran[dot]Net, obat manjur bagi seluruh mahasiswa Ilmu Komputer. Kenapa??? karena didalamnya anda dapat menemukan berbagai Materi pembahasan tentang : java, java script, pascal, php, vb.net dan masih banyak lagi. buat apa anda bingung2 mencari kesana kesini. Just One Click @ Mesran[dot]Net anda akan dapat jawabannya. Tidak hanya itu juga bagi anda yang suka baca2 informasi di luar pulau medan juga bisa view  Seputar Info ini.  atau pengen mengenal dunia sumber informasi diluar sistem pembelajaran juga bisa baca di  workshop-workshop. Dan kalau anda sudah mau LULUS, Mesran[dot]Net juga menyediakan informasi menentukan judul T.A dan Skripsi. hmmm kalau di ulas lagi bisa sampai 3 GB kapasitas artikel ini... sepertinya cukup basa basi dari saya,   kalau anda penasaran ataupun tidak penasaran wajib buka|" Mesran[dot]Net "dijamin tidak bayar, "GRATIS"( <===== bohong ane jah bayar warnet). 

Daripada anda buang2 waktu di toilet seharian, ataupun tidur sepanjang musim, apalagi ditinggal majikan tidak usah Galau mampir jah ke Mesran[dot]Net, anda pintar bukan karena dari sononya, tapi karena ada kemauan untuk belajar. belajar bukan cuma di kampus jah, dimanapun bisa selagi ada niat. 

So, Sekian Review dari saya tentang Mesran[dot]Net, Dari Lapangan Merdeka, di tengah jalan, Suhendrik Mempostingkan.