Menu Pilihan 2

program Menu_Pilihan;
uses crt;
var
   pilihan  : byte;
   n,i,suku,m,o : integer;
   faktorial: real;
   a,b,c: integer;
   kali,x,y: integer;

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}

Program Menghitung Diskon (Bahasa Pascal)

Buat program untuk menghitung diskon, yang mana kode barang = ‘PK01’, nama barang = ‘Pakaian’, harga satuan Rp. 75.000,- , jumlah yg dibeli 2 buah. 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;
{I.S. : Diberikan kode barang, nama barang, harga satuan, dan jumlah yang dibeli}
{F.S. : menampilkan diskon dan total bayar}

Program Menentukan Bilangan Genap atau Ganjil (Bahasa Pascal)

program Menentukan_Bilangan_Ganjil_atau_Genap;
{I.S. : diberikan harga ke dalam suatu nilai}
{F.S. : menampilkan nilai tersebut bilangan ganjil atau genap}

Program Menghitung Luas Lingkaran (Bahasa Pascal)

program Mengitung_Luas_Lingkaran;
{I.S.: diberikan harga ke dalam var. diameter lingkaran sebesar 10 bertipe integer}
{F.S.: menampilkan hasil luas lingkaran}

Program Konversi ke Detik (Bahasa Pascal)

program Konversi_ke_Jam_Menit_Detik;

{I.S.: Mengubah sejumlah detik ke dalam Jam : Menit : Detik}
{F.S.: Menampilkan hasil Jam : Menit : Detik}

Menghitung Luas Segitiga (Bahasa Pascal)

Program Menghitung_Luas_Segitiga;

{I.S. : diberikan harga ke dalam var. alas dan tinggi bertipe integer}
{F.S. : menampilkan hasil luas segitiga dalam meter persegi}