Menu Pilihan

program Menu_Pilihan;

uses crt;
var
   pilihan : char;
   alas, tinggi, luas, A, B, nt, C, D, E, A1, A2, A3: integer;
   J1, M1, D1, J2, M2, D2, TD1, TD2, J3, M3, D3, Sisa, Jlh: integer;

Akhwat Genit

Jadi Akhwat Jangan Genit !!
Jadi Akhwat Jangan Genit
Pakai bedak kok sampe enam lapis
Maunya sih biar kelihatan manis
Belum lagi minyak wangi yang seember
Apalagi tujuannya kalau bukan biar para ikhwan lumer

PENTINGNYA E-LOGISTIK DALAM DUNIA BISNIS

BAB I

PENDAHULUAN

Logistik merupakan seni dan ilmu mengatur dan mengontrol arus barang, energi, informasi, dan sumber daya lainnya, seperti produk, jasa, dan manusia, dari sumber produksi ke pasar. Manufaktur dan marketing akan sulit dilakukan tanpa dukungan logistik. Logistik juga mencakup integrasi informasi, transportasi, inventori, pergudangan, dan pemaketan. Pada hari ini pasar jaringan ekonomi memiliki tempat yang sangat diperlukan dan perdagangan elektronik memainkan peran penting (e-logistik). Sebagai akibatnya pengetahuan tentang manajemen logistik yang diterapkan untuk mengelola material dan arus informasi di seluruh rantai pasokan harus terus up to date sebagai alat penelitian untuk kegiatan bisnis virtual setiap transaksi.

Program Konversi Detik ke Jam:Menit:Detik (Bahasa Pascal)

program Mengubah_Sejumlah_Detik;
{I.S.: diberikan harga ke dalam variabel sejumlah detik bertipe integer}
{F.S.: menampilkan hasil konversi detik ke jam:menit:detik}

Program Menghitung Pecahan Uang (Bahasa Pascal)

Buat program untuk mengubah Rp. 288.725,- menjadi pecahan dalam mata uang rupiah yg berlaku saat ini.

    contoh:

           Layar Masukan : 

                Sejumlah uang = Rp. 288575

           Layar Keluaran : 

                 2 lembar seratus ribuan

                 1 lembar lima puluh ribuan

                 1 lembar dua puluh ribuan

                 1 lembar sepuluh ribuan

                 1 lembar lima ribuan

                 1 lembar dua ribuan

                 0 keping seribuan

                 1 keping lima ratusan

                 0 keping seratusan

                 1 keping limapuluhan

                 Sisa Rp. 25,-

Program Pecahan_Uang;
{I.S. : diberikan sejumlah uang}
{F.S. : menampilkan pecahan uang dalam mata uang rupiah yang berlaku saat ini}