Bagi ada yang telah melihat soal UTS yang telah aku postingkan dan masih belum bisa menemukan jawabannya. Inilah jawaban dari soal UTS itu. Apabila kesulitan mencari artikel soal UTS itu bisa dilihat dibawah ini:
SOAL UTS PASCAL
program penjualan;
uses wincrt;
const
g='----------------------------------';
var
nb:string;
hb,pot,tot:real;
jb:integer;
begin
writeln (g);
writeln (' TOKO WAN ABUDI ');
writeln (g);
write ('Masukkan Nama Barang: '); readln (nb);
write ('Masukkan Harga Barang: '); readln (hb);
write ('Masukkan Jumlah Barang: '); readln (jb);
clrscr;
writeln (g);
writeln (' TOKO WAN ABUDI ');
writeln (g);
writeln ('Nama Barang: ', nb);
writeln ('Harga Barang: ', hb:9:2);
writeln ('Jumlah Barang: ', jb);
if ((hb*jb)>= 150000) then
begin
pot:=(hb*jb)*(15/100);
writeln (g);
writeln ('Potongan :Rp. ', pot:9:2);
tot:=(hb*jb)-(pot);
writeln ('Total Pembayaran :Rp. ', tot:9:2);
if nb=('SARIMI') then
writeln ('Hadiah: Gantungan Kunci')
else
if nb=('Sarimi') then
writeln ('Hadiah: Gantungan Kunci')
else
if nb=('sarimi') then
writeln ('Haduah: Gantungan Kunci')
else
if nb=('INDOMIE') then
writeln ('Hadiah: Notebook')
else
if nb=('Indomie') then
writeln ('Hadiah: Notebook')
else
if nb=('indomie') then
writeln ('Hadiah: Notebook')
else
if nb=('SUPERIOR') then
writeln ('Hadiah: Dompet Mini')
else
if nb=('Superior') then
writeln ('Hadiah: Dompet Mini')
else
if nb=('superior') then
writeln ('Hadiah: Dompet Mini')
else
writeln ('Hadiah: NONE');
end
else
if ((hb*jb)>= 100000) then
begin
pot:=(hb*jb)*(10/100);
writeln (g);
writeln ('Potongan :Rp. ', pot:9:2);
tot:=(hb*jb)-(pot);
writeln ('Total Pembayaran :Rp. ', tot:9:2);
if nb=('SARIMI') then
writeln ('Hadiah: Gantungan Kunci')
else
if nb=('Sarimi') then
writeln ('Hadiah: Gantungan Kunci')
else
if nb=('sarimi') then
writeln ('Haduah: Gantungan Kunci')
else
if nb=('INDOMIE') then
writeln ('Hadiah: Notebook')
else
if nb=('Indomie') then
writeln ('Hadiah: Notebook')
else
if nb=('indomie') then
writeln ('Hadiah: Notebook')
else
if nb=('SUPERIOR') then
writeln ('Hadiah: Dompet Mini')
else
if nb=('Superior') then
writeln ('Hadiah: Dompet Mini')
else
if nb=('superior') then
writeln ('Hadiah: Dompet Mini')
else
writeln ('Hadiah: NONE');
end
else
if ((hb*jb)>= 50000) then
begin
pot:=(hb*jb)*(5/100);
writeln (g);
{writeln ('Total Harga sebelum Potongan: Rp ', (hb*jb) }
writeln ('Potongan :Rp. ', pot:9:2);
tot:=(hb*jb)-(pot);
writeln ('Total Pembayaran :Rp. ', tot:9:2);
if nb=('SARIMI') then
writeln ('Hadiah: Gantungan Kunci')
else
if nb=('Sarimi') then
writeln ('Hadiah: Gantungan Kunci')
else
if nb=('sarimi') then
writeln ('Haduah: Gantungan Kunci')
else
if nb=('INDOMIE') then
writeln ('Hadiah: Notebook')
else
if nb=('Indomie') then
writeln ('Hadiah: Notebook')
else
if nb=('indomie') then
writeln ('Hadiah: Notebook')
else
if nb=('SUPERIOR') then
writeln ('Hadiah: Dompet Mini')
else
if nb=('Superior') then
writeln ('Hadiah: Dompet Mini')
else
if nb=('superior') then
writeln ('Hadiah: Dompet Mini')
else
writeln ('Hadiah: NONE');
end
else {if((hb*jb)< 50000) then }
begin
writeln (g);
tot:=(hb*jb);
writeln ('Total Pembayaran :Rp. ',tot:9:2);
if nb=('SARIMI') then
writeln ('Hadiah: Gantungan Kunci')
else
if nb=('Sarimi') then
writeln ('Hadiah: Gantungan Kunci')
else
if nb=('sarimi') then
writeln ('Haduah: Gantungan Kunci')
else
if nb=('INDOMIE') then
writeln ('Hadiah: Notebook')
else
if nb=('Indomie') then
writeln ('Hadiah: Notebook')
else
if nb=('indomie') then
writeln ('Hadiah: Notebook')
else
if nb=('SUPERIOR') then
writeln ('Hadiah: Dompet Mini')
else
if nb=('Superior') then
writeln ('Hadiah: Dompet Mini')
else
if nb=('superior') then
writeln ('Hadiah: Dompet Mini')
else
writeln ('Hadiah: NONE');
end
end.