Page 93 - Pemrograman Dasar kelas X

Bab 3 Struktur Percabangan 89

Mengapa data harga normal, prosen diskon dengan besar diskon dan harga akhir mempunyai tipe
data yang berbeda? Hal ini dikarenakan, dalam perhitungan besar diskon melibatkan operasi /

yang akan menghasilkan bilangan real, sedangkan harga akhir hasil mengurangkan harga normal
(integer) dengan harga diskon (real) sehingga menghasilkan bilangan real juga.
Selanjutnya algoritma di atas akan dikonveris ke dalam bahasa pemrograman Pascal.

Karena pseudocode yang kita bahas adalah pseudocode berbasis Pascal, maka tidak ada
perubahan yang berarti. Dalam bahasa pascal, struktur percabangand engan 1 kondisi dituliskan,

if (kondisi) then
Pernyataan;
Jika pernyataan lebih dari satu maka dituliskan
if (kondisi) then

Begin
Pernyataan1;

Pernyataan2;
dst;
end;

Sekarang kita lihat bagaimana menyajikan algoritma di atas dalam bahasa Pascal.
Program DiskonBaju;

Uses crt;
var hargaNormal, ProsenDiskon:integer;
BesarDiskon, hargaAkhir: real;

Begin
Clrscr;

write(‘Masukkan total harga pembelian: ‘ );
readln( TotalBelanja);
ProsenDiskon:=20;

if (TotalBelanja>=200000) then
ProsenDiskon:=25;
BesarDiskon=(ProsenDiskon/100)*TotalBelanja;

TotalBayar=TotalBelanja-BesarDiskon;
writeln(‘Total harga yang harus dibayar adalah : ‘, TotalBayar:6:2);
end.

Untuk permasalahan kedua kita tinggalkan untuk diskusi pada LKS berikut.