DANANG SETYA PRAMANA

program ni berjalan di bahasa pemograman turbo basic.program ini dapat membedakan bilangan prima dengan banyak bil di tentukan.

yang lebih unik lagi progi yg gw buat ni bisa menampilkan bil FPB dari bil yg dimasukkan

dim temp(100)
dim tmp(100)
dim ang(100)
cls
'a,b,c,d,e,x,temp
temp(1)=2
e=2
a=100
for b= 3 to a
for c=2 to b-1
if b mod c <> 0 and b mod 1=0 then
temp(e)=b
d=b
else
if b<>d then
e=e+1
elseif b=d then
temp(e)=0
e=e-1
end if
goto lompat
end if
next c
lompat:
next b
'for x=1 to e
' print "Hasil : " +str$(temp(x))
'next x

'cls
f=1
g=1
locate 2,25:print " FPB "
locate 3,25:print "================"
locate 4,25:print "Angka ="
locate 5,25:print "================"
locate 4,33:input,angka
locate 8,28:print str$(angka)

do while angka <> temp(f)
if angka mod temp(f)=0 then
tmp(g)=temp(f)
angka=angka \ temp(f)
ang(g)=angka
g=g+1
elseif angka mod temp(f)<>0 then
f=f+1
end if
loop

if angka=temp(f) then
tmp(g)=angka
ang(g)=angka
end if

for i=1 to g-1
locate 7+i*2,28+i*2:print "\"+str$(ang(i))
locate 7+i*2,25+i*2:print str$(tmp(i))+"/"
next i

ni contoh logika algoritma buat membalik nilai suatu kata

cls
balik$=""
input "massukkan Kata :",kata$
for i=len(kata$) to 1 step -1
balik$=balik$ + mid$(kata$,i,1)
next i
print "dibalik :"+balik$

minggu2 ni di hantam dengan berbagai kesibukkan jadi nda terurus dech blog gw,gw mohon maaf buat temen2 yang dah comment ma sms aq pi jujur kerjaan gw semester ni buannyaaak banget jadi lum sempet ngurusin nich blog

Buat temen2 yang mw pake keylogger bisa cari di google
rekomendasi KGB keylogger,soalnya program ane yang nav32 dah banyak kedetect virus jadi dah nda aye terusin dech....!

buat temen2 yang me download aplikasi bisa cari di mobile9.com atau getjar.com
ntuk indonesia cari di google pada blog javagamesfever


sebelum dan sesudahnya saya mohon maaf ya ^_^ ....

Hari pertama kerja pembantu ketua 3 memiliki memo apa saja yang harus diselesaikan hari ini,salah satunya pemindahan tempat pada salah satu bagian organisasi kampus,so intinya gw ma temen-temen asisten yang lain harus melepas keringat nih angkat-angkat.

sekarang gw lagi angkat-angkat,ternyata ru jalan 1 jam kerja keringat gw bercucuran buannyaaaaaaaaak banget.mungkin ni akibat dari bulan puasa jarang beraktifitas berat niih,he.... jadi terasa dehidrasinya.

so gw kerja lagi dulu y,he....

yah,nda terasa ramadhan telah usai
dan hadir hari kemenangan yang membangkitkan suka cita kita untuk kembali berbuat baik di karenakan kita yang kembali suci
mungkin manusia akan sedih karena bulan yang penuh berkah ini telah meninggalkan kita.bulan dimana tiap detiknnya di penuhi oleh perhiasan berharga yang melimpah yaitu pahala,manusia berlomba - lomba untuk mendapatkan pahala tersebut.jujur saja bulan ini saya tidak dapat merasakan bulan ramadhan lebih baik dari tahun kemaren,mungkin karena kerjaan kali y,y kerjaan banyak terpaksa deh tarawih pada bolong ,kalo kerja pagi y di sempetin ntuk tarawih.allah maha adil....
hidup semakin bertambah dan berubah baik fisik maupun mental,layaknya kewajiban kita mungkin dulu kerjaan kita cuma bersekolah tapi sekarang selain kuliah juga kerja,waktu terasa menjepit kita untuk mendapatkan pahala allah,tapi saya pun tidak akan mengeluh

bagi saya bulan ramadhan adalah bulan dimana kita dilatih untuk menghadapi 11 bulan lainnya.dan kini kita seharusnya sudah SIAP-SIAP untuk menghadapi bulan - bulan selanjutnya.

ALLAHUAKBAR...ALLAHUAKBAR...ALLAHUAKBAR...

semoga saya akan dipertemukan pada ramadhan bulan depan

AMIN

SO tetap semangat y temen-temen,semangat,ceria dan tujuan yang baik adalah fokus kita agar kebaikan yang kita lakukan hari ini bisa lebih baik dari kemarin

PENERUS BANGSA INDONESIA,SEMANGAT Y

Wah ,nda terasa dah puasa hari ini,kita sebagai umat islam wajib menyambut bulan ini dengan suka cita dan semangat dalam menjalaninya,Alhamdulillah kita patut bersyukur masih di pertemukan di bulan yang penuh berkah ini,meskipun gw masih ujian akhir semester pada bulan puasa tapi teteeeeeeeeeeeeep SEMANGAT.semoga puasa bulan ini penuh seperti kemaren-kemaren.

Tidak ada bulan yang seindah bulan Ramadhan
Bulan yang Nabi musa pernah minta kepada allah untuk di jadikan umat islam
Bulan yang Malaikat jibril pernah minta kepada Allah untuk di jadikan Manusia dan menjadi umat nabi Muhammad
Bulan yang membuat iri para nabi dan malaikat
Bulan yang membuat hati para umat umat terdahulu.

Mamasuki bulang yang MULIA ini saya mohon maaf atas segala kekhilafan dan kesalahan
baik dalam penulisah atau dalam penggunaan forum ini
dan saya mengucapkan semoga amal ibadah kita semua di terima dan di balas oleh Allah

Ruby comes with a program that will show the results of any Ruby statements you feed it. Playing with Ruby code in interactive sessions like this is a terrific way to learn the language.

Open up IRB (which stands for Interactive Ruby).

• If you’re using Mac OS X open up Terminal and type irb, then hit enter.
• If you’re using Linux, open up a shell and type irb and hit enter.
• If you’re using Windows, open fxri from the Ruby section of your Start Menu.

print " Masukkan Nama = "

nama=gets

print " Gaji Pokok = "

gaji=gets

gaji=gaji.to_f

print "Masukan nilai status (Single=1 /Menikah = 2 /Cerai = 3) = "

status=gets

status=status.to_i

print " Berapa anak anda (Isi 0 Jika Tidak ada ) = "

jumlah_anak=gets

jumlah_anak=jumlah_anak.to_i

pajak=0

pajak=pajak.to_f

if gaji >=100000 && gaji <=1000000

pajak=(0.1)*gaji

elsif gaji >1000000 && gaji <=2000000

pajak=(0.15)*gaji

elsif gaji >2000000

pajak=(0.2)*gaji

else

pajak=0

end

puts " Pajak = #{pajak}"

tunjangan=0

tunjangan=tunjangan.to_f

tanak=0

tanak=tanak.to_f

if status==1

tunjangan=0

elsif status==2

tunjangan=(0.2)*gaji

tanak=((0.1)*jumlah_anak)*gaji

elsif status==3

tanak=((0.1)*jumlah_anak)*gaji

tunjangan=0

else

tunjangan=0

end

puts " Tunjangan = #{tunjangan}"

puts " Tunjangan Anak = #{tanak}"

puts " Gaji Total = #{(gaji-pajak)+(tunjangan+tanak)}"