Program – Case of - Else

program fotocopy;

uses wincrt;

var

harga,total:real;

jum:integer;

begin

writeln('program Fotocopy');

writeln('---------------');

writeln('No Jumlah Copy-an Harga/jumlah');

writeln('1. 1-100 Rp 150');

writeln('2. 101-1000 Rp 100');

writeln('3. 1001..10000 Rp 90');

writeln;

write('Masukkan Jumlah copy-an : ');readln(jum);

case jum of

1..100 : harga:=150;

101..1000 : harga:=100;

1001..10000 : harga:=90;

else

harga:=75;

end;

total:=harga*jum;

write('Total harga :Rp ',total:0:0);

end.