Do you like this story?
rem Tugas Input data dengan pengisian fungsi logika
rem write 05 Oktober 2011 by Aini Sastra
cls
?
? "Masukkan Nama Barang :";:input,nm$
? "Masukkan Jumlah Barang :";:input,jum
? "Masukkan Harga Barang :";:input,hrg
PRINT "--------------------------------------"
total=jum*hrg
PRINT
if TOTAL>=100000 then
print "Jumlah Bayar :" USING "Rp ###,###";Total
discount=0.05*total
print "Jumlah Potongan 5% :" using "Rp ###,###";discount
PRINT "--------------------------------------"
print "Total yang harus dibayar :" USING "Rp ###,###";Total-discount
ELSE
print "Jumlah Bayar :" using "Rp ###,###" ;Total
discount=0*TOTAL
print "Jumlah Potongan 0% :" using "Rp ###,###";discount
PRINT "--------------------------------------"
print "Total yang harus dibayar :" using "Rp ###,###";Total-discount
end if
locate 25,30:? "Created By Aini Sastra"
>rem write 05 Oktober 2011 by Aini Sastra
cls
?
? "Masukkan Nama Barang :";:input,nm$
? "Masukkan Jumlah Barang :";:input,jum
? "Masukkan Harga Barang :";:input,hrg
PRINT "--------------------------------------"
total=jum*hrg
if TOTAL>=100000 then
print "Jumlah Bayar :" USING "Rp ###,###";Total
discount=0.05*total
print "Jumlah Potongan 5% :" using "Rp ###,###";discount
PRINT "--------------------------------------"
print "Total yang harus dibayar :" USING "Rp ###,###";Total-discount
ELSE
print "Jumlah Bayar :" using "Rp ###,###" ;Total
discount=0*TOTAL
print "Jumlah Potongan 0% :" using "Rp ###,###";discount
PRINT "--------------------------------------"
print "Total yang harus dibayar :" using "Rp ###,###";Total-discount
end if
locate 25,30:? "Created By Aini Sastra"
- Langkah Demi Langkah Diagnosa Dan Memperbaiki Kerusakan PC Desktop
- Langkah Demi Langkah Diagnosa Dan Memperbaiki Kerusakan Komponen Motherboard
- Langkah Demi Langkah Diagnosa Dan Memperbaiki Laptop
- Ebook Cara Memperbaiki Laptop
- Ebook Cara Membangun Jaringan Komputer/Warnet/a> <
0 comments:
Post a Comment