Akhirnya pihak kampus memutuskan untuk mengambil alih penggunaan domain sehingga webserver di olah sendiri oleh kampus dimana sebelumnya menggunakan hostingan komersial akan tetapi terjadi masalah ketika pihak hosting melakukan kesalahan pada salah satu domain mereka sehingga karena ketidak amanan ini kampus mengambil keputusan untuk mengambil alih webserver untuk diolah sendiri.
so untuk semua pertanyaan mengenai website kampus ppkia.ac.id sudah terjawab
PPKIA.AC.ID telah online ......................
Monday, November 30, 2009
Wednesday, November 25, 2009
Bilangan Prima dan FPB di Turbo Basic
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
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
Membalik String Turbo Basic
ni contoh logika algoritma buat membalik nilai suatu kata
nich buat anak2 semester 1,2 di kampusku supaya lebih giat belajar
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
Maafin D ya.... ^_^
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 ^_^ ....
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 ^_^ ....
Subscribe to:
Posts (Atom)