Program Menghitung Diskon 2 (Bahasa Pascal)

Buatlah program untuk menghitung diskon dengan ketentuan: jika membeli tidak kurang dari 5 buah, maka akan mendapat diskon 12,5% dari harga total. 

Tampilkan ke layar kode barang, nama barang, harga satuan, jumlah yang dibeli, diskon dan total bayar.

program Menghitung_Diskon;
uses crt;
{I.S.: user memasukkan kode barang (kb), nama barang (nb), harga satuan (hs)
       dan jumlah yang dibeli (jml)}
{F.S.: menanmpilkan kode barang (kb), nama barang (nb), harga satuan (hs),
       jumlah yang dibeli (jml), diskon dan total bayar (tb)}

Upload File di Group

Fitur baru di Facebook adalah fasilitas Upload File di Group. Fasilitas ini di-launching sekitar pertengahan bulan Mei 2012, setelah penambahan fitur seperti Facebook Timeline, Header image di Group Facebook. Makin cinta deh, sama Facebook <3. Berikut screen shootnya.

SOSOK PEREMPUAN DI PIKIRAN LELAKI

(Curhatan Hati seorang Lelaki)

Assalamu'alaikum warahmatullahi wabarrakatuh

Kamu tau kenapa saya suka wanita itu pakai jilbab? Jawabannya sederhana, karena mata saya susah diajak kompromi. Bisa dibayangkan bagaimana saya harus mengontrol mata saya ini mulai dari keluar pintu rumah sampai kembali masuk rumah lagi. Dan kamu tau? Di kampus tempat saya seharian disana, kemana arah mata memandang selalu saja membuat mata saya terbelalak. Hanya dua arah yang bisa membuat saya tenang, mendongak ke atas langit atau menunduk ke tanah.

SOAL UJIAN SARINGAN MASUK UNPAS 2011

UJIAN SARINGAN MASUK
UNIVERSITAS PASUNDAN
2011-2012
GELOMBANG 2
KELOMPOK IPA

SOAL UJIAN SARINGAN MASUK UNIKOM 2011

Just want to share soal ujian saringan masuk Universitas Komputer Indonesia Tahun Akdemik 2011/2012. Males ngetik, jadi difoto aja :D Klik kanan pada fotonya, trus klik open link in new tab.

Just info juga... Kemungkinan besar kamu pasti akan diterima di kampus ini. SELAMAT MENCOBA TES PENERIMAAN MAHASISWA BARU UNIKOM berikut.