Do you want to share?
Do you like this story?
REM PROGRAM PERULANGAN INPUT DO WHILE
REM WRITE BY AINI SASTRA
CLS
input "Berapa Jumlah Beli =",n
gt=0
for lagi=1 to n
input "Masukkan Nama Barang =",nm$(lagi)
input "Masukkan Harga Barang =",hrg(lagi)
input "Masukkan Jumlah Barang =",jum(lagi)
tot(lagi)=hrg(lagi)*jum(lagi)
print "total bayar =";using "Rp ###,###,###";tot(lagi)
input,A$
gt=gt+tot(lagi)
next
print"======================================"
print "Jumlah Total =";using "Rp ###,###,###" ;gt
?:?
a=1
WHILE a<=n
? "Nama Barang Ke ";a;" =";nm$(a)
? "Harga Barang Ke ";a;" =";hrg(a)
? "Jumlah Barang Ke ";a;" =";jum(a)
? "Total Bayar ke ";a;" =";using "Rp ###,###,###" ;tot(a)
?
a=a+1
WEND
? "========================================"
? "Jumlah Total "" =";using "Rp ###,###,###" ;gt
locate 25,53:? "Created By Aini Sastra"
END
REM WRITE BY AINI SASTRA
CLS
input "Berapa Jumlah Beli =",n
gt=0
for lagi=1 to n
input "Masukkan Nama Barang =",nm$(lagi)
input "Masukkan Harga Barang =",hrg(lagi)
input "Masukkan Jumlah Barang =",jum(lagi)
tot(lagi)=hrg(lagi)*jum(lagi)
print "total bayar =";using "Rp ###,###,###";tot(lagi)
input,A$
gt=gt+tot(lagi)
next
print"======================================"
print "Jumlah Total =";using "Rp ###,###,###" ;gt
?:?
a=1
WHILE a<=n
? "Nama Barang Ke ";a;" =";nm$(a)
? "Harga Barang Ke ";a;" =";hrg(a)
? "Jumlah Barang Ke ";a;" =";jum(a)
? "Total Bayar ke ";a;" =";using "Rp ###,###,###" ;tot(a)
?
a=a+1
WEND
? "========================================"
? "Jumlah Total "" =";using "Rp ###,###,###" ;gt
locate 25,53:? "Created By Aini Sastra"
END
>
- 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> <
2 comments:
amank aini seo no 1 di indonesia ,
contoh yang DIM input tu mana, ane itu yg hasilnya masih salah ...
Salam Njelimet
iya,,contoh yg dim plis.. sya doa kan seo ny no 1 di dunia.. ahahahahaa href="http://holytechcomputer.blogspot.com">Salam Njelimet Juga
Post a Comment