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}