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
Baca Selengkapnya..
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$
nich buat anak2 semester 1,2 di kampusku supaya lebih giat belajar Baca Selengkapnya..
Maafin D ya.... ^_^
Filed under: salam Author: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
Terminaland typeirb, then hit enter. - If you’re using Linux, open up a shell and type
irband hit enter. - If you’re using Windows, open
fxrifrom 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)}"
Baca Selengkapnya..


Download Area











