Selengkapnya →
Friday, June 8, 2012
KEDUDUKAN DAN FUNGSI BAHASA INDONESIA
Kedudukan bahasa Indonesia
1. Sebagai bahasa Nasional ( Sumpah Pemuda ke -3)
a. lambang kebanggaan kebangsaan
b.lambang identitas nasional
c.alat perhubungan antar warga,daerah,budaya
d.alat pemersatu suku bangsa
2. Sebagai bahasa negara( UUD 1945 BAB XV pasal 36
a.bahasa resmi negara
b.bahasa pengantar dunia pendidikan
c.alat perhubungan tingkat nasional
d.alat pengembangan iptek dan budaya
Selengkapnya →
ALASAN BAHASA MELAYU DIANGKAT MENJADI BAHASA INDONESIA
POSTINGAN BERIKUT ADALAH ALASAN BAHASA MELAYU DIANGKAT MENJADI BAHASA INDONESIA
- Bahasa Melayu sudah menjadi lingua franca
- Sistem bahasa Melayu sederhana
- Suku Jawa,Sunda,Bugis dengan suka rela menerima
- Bahasa Melayu mempunyai kesanggupan dipakai menjadi bahasa kebudayaan
Selengkapnya →
Thursday, May 17, 2012
Friday, December 2, 2011
(Turbo Basic) Tugas 5 PROGRAM PERULANGAN INPUT DO WHILE
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
Selengkapnya →
Wednesday, November 30, 2011
(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"
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"
Selengkapnya →
Subscribe to:
Posts (Atom)