Program Pembelian dengan case of dan nasted if

CASE-OF
Pernyataan CASE-OF biasanya dipakai pada permasalahan ganda. Karena pada pernyataan CASE-OF lebih jelas dan lebih mudah untuk dipahami serta lebih cepat pembuatannya daripada menggunakan pernyataan IF-THEN-ELSE.

NESTED IF Atau IF TERSARANG
Nested IF atau biasa dikenal IF bersarang adalah statement IF yang berada di dalam Statement IF lainnya. 
–Bentuk nested If merupakan bentuk yang tidak memiliki struktur khusus artinya sangat bergantung pada kasus atau permasalahan yang terjadi.
–Apabila keputusan, baik true/ya atau false/salah diikuti oleh struktur seleksi lainnya maka bentuk itulah yang dikatakan struktur seleksi tersarang.Di bawah ini akan saya berikan listing program pembelian dengan metode case of dan nasted if, langsung aja ya
Dengan case of ;
 

program case_of;
uses crt;
var
pembelian,potongan : integer;
lagi : char;
begin
lagi := 'Y';
while (lagi='Y')  or  (lagi='y')  do
begin
clrscr;
write ('Masukkan Total Pembelian : Rp ');readln(pembelian);
case pembelian of
100..1000 : potongan := 50;
1001..3000 : potongan := 100;
3001..5000 : potongan  := 200;
5001..10000 : potongan:=500;
end;
writeln ('Total Pembelian          : Rp ',pembelian:2);
writeln ('Besar Potongan           : Rp ',potongan:2);
writeln ('__________________________________');
writeln ('Jumlah Bayar             : Rp ',pembelian-potongan);
readln;
write  ('Apakah Akan Melakukan Transaksi Lagi [Y-T] :');
readln  (lagi);
end;
end.

Dengan nasted if ;

program nasted_if;
uses crt;
var
pembelian,potongan : integer;
lagi : char;
begin
lagi := 'Y';
while (lagi='Y')  or  (lagi='y')  do
begin
clrscr;
write ('Masukkan Total Pembelian : Rp ');readln(pembelian);
if (pembelian >100) and (pembelian <= 1000) then
potongan := 50 else
if (pembelian >= 1001) and (pembelian <=3000) then
potongan := 100 else
if (pembelian >=3001) and (pembelian <=5000) then
potongan  := 200 else
if (pembelian >=5001) and (pembelian <=10000) then
potongan:=500 else
write ('Maaf, Data Yang Anda Masukkan Salah!');
writeln ('Total Pembelian          : Rp ',pembelian:2);
writeln ('Besar Potongan           : Rp ',potongan:2);
writeln ('__________________________________');
writeln ('Jumlah Bayar             : Rp ',pembelian-potongan);
readln;
write  ('Apakah Akan Melakukan Transaksi Lagi [Y-T] :');
readln  (lagi);
end;
end.

Demikianlah contoh program pembelian dengan case of dan nasted if, semoga bermanfaat. Baca juga program penjualan.