Balgar Media

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.