Program Diskon Sepatu 10% dengan Pascal (Tutorial Singkat)

Halo, teman-teman! Kali ini kita akan bahas salah satu soal algoritma yang cukup sering muncul: menghitung diskon barang, dalam hal ini sepatu. Langsung saja kita praktikkan dengan Pascal.

Soal:

Amir membeli sepatu seharga Rp. 150.000,- sepatu yang dibeli Amir di diskon 10%. Berapa harga yang harus dibayar oleh Amir.

1.  Pecahkan Algoritma dan Flowchart Programnya.
2.  Buat Program Pascalnya.

Jawab:

Algoritma Natural.

a.    Tentukan harga sepatu

b.    Tentukan diskon

c.    Hitung Potongan

d.    Hitung Harga bayar

e.    Cetak harga Bayar

Flowchart (Masukan dari program) 

Algoritma Natural:

Supaya lebih paham, kita tulis dulu langkah-langkah logikanya:

1. Tentukan harga sepatu = 150.000.

2. Tentukan persentase diskon = 10% atau 0.1.

3. Hitung potongan harga = diskon × harga.

4. Hitung harga akhir = harga - potongan.

5. Tampilkan hasilnya.

Kode Program Pascal:

Berikut implementasi sederhananya.

Program DiskonSepatu;
Uses Crt;
Var
  Harga, Potong, Bayar : Real;
Begin
  Clrscr;
  Harga := 150000;
  Potong := 0.1 * Harga;
  Bayar := Harga - Potong;
  Writeln('Harga Sepatu = ', Harga:10:0);
  Writeln('Diskon       = ', Potong:10:0);
  Writeln('Jumlah Bayar = ', Bayar:10:0);
  Readln;
End.

Penjelasan Kode:

Penjelasan Kode:
- `Harga := 150000;` → menyimpan harga awal sepatu.
- `Potong := 0.1 * Harga;` → menghitung besar diskon.
- `Bayar := Harga - Potong;` → menghitung total yang harus dibayar setelah diskon.

Output Program:

Harga Sepatu = 150000

Diskon = 15000

Jumlah Bayar = 135000

 Jadi, dengan diskon 10%, Amir hanya perlu membayar Rp135.000 saja.

Gimana? Cukup mudah, kan? Kode ini bisa langsung dicoba di Pascal compiler masing-masing. Kalau ada yang mau ditanyakan, tulis di kolom komentar ya. Selamat ngoding!