Ujian Prog Tur

Alhamdulilah....
Ujian Semester Genap telah usai, tapi jagan suka-suka dulu bagaimana hasil ujiannya masih belum tau kan?? Apakah nilainya baik atau jelek, kalau baik alhamdulilah tapi kalau belum baik, wah perlu introspeksi tuh.. berarti masih kurang paham & harus belajar lebih giat lagi.
Untuk mahasiswa TI/2 Pararel, bagaimana ujiannya bisa kan??? Kalau pusing wajarlah namanya juga ujian, lo g' pusing malah kacau tu orang.. Btw, bagaimana berhasil g' buat programnya, g'begitu susah kan..karena ujiannya cuman mengulang beberapa materi yang lalu plus saya bolak balik aj output nya..asal logika sudah jalan insyaalah pasti bisa. Bagi yang masih pusing bisa dicoba script dibawah ini.

program ujian;
uses wincrt;

var
kom1,kom2,mon,mon1:char;
jk2,bonus:string;
jk,mn:longint;
dis1,dis2,bayar:real;

begin
writeln('================= TOKO BIPAS COMPUTER ==============');

writeln('PILIH JENIS KOMPUTER');
writeln(' A = Pentium 3 New');
writeln(' a = Pentium 3 Second');
writeln(' B = Pentium 4 New');
writeln(' b = Pentium 4 Second');
write(' MASUKKAN KODE PILIHAN ANDA = '); readln(kom1);


writeln('PILIH JENIS MONITOR');
writeln(' S = Samsung 15 New');
writeln(' s = Samsung 15 Second');
writeln(' T = Toshiba 15 New');
writeln(' t = Toshiba 15 Second');
writeln(' L = LG 15 New');
writeln(' l = LG 15 Second');
write(' MASUKKAN KODE PILIHAN ANDA = '); readln(mon);
writeln;

{proses untuk komputer}
case kom1 of
'A':jk:=1250000;
'a':jk:=1000000;
'B':jk:=1750000;
'b':jk:=1500000;
end;
write('KOMPUTER YANG ANDA BELI ADALAH = ');
if kom1='A' then
writeln('Pentium 3 New')
else
if kom1='a' then
writeln('Pentium 3 Second')
else
if kom1='B' then
writeln('Pentium 4 New')
else
if kom1='b' then
writeln('Pentium 4 Second');
writeln('DENGAN HARGA = ',jk);
{proses untuk monitor}
case mon of
'S':mn:=900000;
's':mn:=350000;
'T':mn:=700000;
't':mn:=300000;
'L':mn:=800000;
'l':mn:=325000;
end;
write('MONITOR YANG ANDA BELI ADALAH = ');
if mon='S' then
writeln('Samsung 15 New')
else
if mon='s' then
writeln('Samsung 15 Second')
else
if mon='T' then
writeln('Toshiba 15 New')
else
if mon='t' then
writeln('Toshiba 15 Second')
else
if mon='L' then
writeln('LG 15 New')
else
if mon='l' then
writeln('LG 15 Second');
writeln('DENGAN HARGA = ',mn);
{proses potongan komputer}
if kom1='A' then
dis1:=(2/100)*jk
else
if kom1='B' then
dis1:=(3/100)*jk
else
dis1:=0;
writeln('POTONGAN KOMPUTER = ',dis1:4:2);
if mon='S' then
dis2:=(5/100)*mn
else
if mon='T' then
dis2:=(5/100)*mn
else
if mon='L' then
dis2:=(5/100)*mn
else
dis2:=0;
writeln('POTONGAN MONITOR = ',dis2:4:2);
bayar:=jk+mn-dis1-dis2;
writeln('Jumlah Yang Harus Dibayar = ',bayar:4:2);
write('Bonus = ');
if bayar>2000000 then
writeln('Satu Pak CD Blank Isi 50')
else
if bayar>1500000 then
writeln('Head Set')
else
writeln(' - ');
end.