Home / Tugas Kuliah / (Turbo Basic) Tugas 4 Input data dengan Memakai pengisian fungsi logika

(Turbo Basic) Tugas 4 Input data dengan Memakai pengisian fungsi logika

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”

About Admin