Kumpulan source code pascal dan informasi dunia komputer

WebDwarf, Cara Gampang Buat Website

2010-01-04T14:43:00.005+07:00

Apakah anda ingin membuat sebuah website yang menarik, namun anda tidak mengerti tentang bahasa html, yaitu bahasa yang digunakan untuk membuat website. ataukah anda mengerti bahasa html tetapi anda menginginkan kepraktisan dalam membuat sebuah website. Tenang saja, semua keinginan anda bisa tercapai, anda bisa membuat sebuah website yang menarik dengan mudah, semudah menggunakan software microsoft word. caranya anda hanya perlu menginstal sebuah software yaitu "WebDwarf"

WebDwarf adalah sebuah software web design yang cukup bagus dan yang paling penting dari aplikasi ini adalah gratis. WebDwarf merupakan kombinasi antara aplikasi pengolah kata, aplikasi pengolah grafik vektor, dan bahasa html sehingga memudahkan anda untuk membuat sebuah website yang menarik. software ini juga sangat mudah dipelajari bahkan untuk pemula sekalipun dan mungkin saja dalam sehari anda sudah bisa mengusai software ini. Yang anda harus lakukan hanya mendrag dan mendrop objek pada lembar kerja. cukup mudah kan. Setelah anda selesai mendesain website, anda bisa mengeksport hasil desain anda itu kedalam 2 format yang disediakan yaitu html dan svg, tertarik mendownload software ini

Screenshot
Download disini

Orbit Downloader Free Download Manager

2010-01-04T14:11:00.003+07:00

Apakah anda sering mendownload file di internet, musik, video, ebook, gambar, software dan lain-lain, apabila benar gunakan lah software download manager.software download manager adalah sebuah software yang fungsinya untuk mengatur dan mempercepat proses download. salah satu software download manager yang bagus dan gratis adalah orbit downloader.

Dengan menggunakan orbit downloader, file yang anda download dijamin akan lebih cepat selesai dan aman dari file yang korup. keunggulan lain dari orbit downloader adalah ia mempunyai fitur mem pause / resume download, sehingga file yang anda download bisa diselesaikan di lain waktu. fitur ini juga berguna bagi anda pengguna warnet yang memiliki keterbatasan waktu tersambung dengan internet. karena dengan fitur ini file download yang besar bisa diselesaikan secara bertahap. maksudnya, apabila anda mendownload video sebesar 600 mb, sedangkan anda hanya mempunyai waktu 3 jam di warnet, dalam waktu 3 jam tersebut ternyata file yang didownload baru selesai 300 mb, apabila anda tidak menggunakan software downloader maka file tersebut dijamin akan korup, sedangkan apabila menggunakan orbit downloader maka file itu bisa di lanjutkan di lain waktu / lain hari, sehingga file yang anda download tidak sia sia. selain itu orbit downloader juga terintegrasi dengan browser mozilla firefox atau internet explorer. sehingga memudahkan anda dalam mendownload. tertarik mendownload orbit downloader

Screenshot

Download disini

Format Factory Freeware converter

2010-01-02T11:01:00.002+07:00

Apakah anda pernah mendownload video di youtube, video musik, cuplikan film atau yang lainnya, biasanya hasil video download dari youtube itu formatnya adalah flv, lalu anda berkeinginan memindahkan file video tersebut ke handphone anda, tetapi ternyata video tersebut tidak dapat dimainkan di handphone anda, dikarenakan handphone anda tidak mendukung file video berformat flv, handphone anda hanya mendukung format 3gp dan mp4. bila masalah anda seperti itu ada sebuah software yang mampu mengatasi masalah tersebut yaitu software converter, software converter adalah sebuah software yang bisa mengubah format suatu file kedalam format lain misalnya format flv bisa dirubah ke format 3gp. diantara software converter yang cukup bagus dan gratis adalah Format Factory.

Format Factory adalah sebuah sofware converter yang cukup bagus dikarenakan format factory mendukung banyak sekali format file yang bisa di convert, untuk format video saja, format factory mendukung file yang berformat MKV, MPG, VOB, MOV, FLV,SWF, MP4 ,AVI ,3GP ,RMVB ,WMV dan GIF. untuk format audio, Format Factory mendukung file yang berformat MP3, WMA, FLAC, AAC, NNF, AMR, OGG, WAV, dll. untuk format picture/gambar, Format factory mendukung file yang berformat PNG, ICO, BMP, GIF, TIF, PCX dan TGA, Cukup banyak bukan

Selain berfungsi sebagai software converter Format Factory juga mempunyai fitur fitur lain yaitu Rip Music CD, Rip Video DVD, Video joiner, Audio Joiner, Split video dan lain lain. bagaimana tertarik untuk mendownload freeware ini

Screenshot

Download Disini

Java Adapter for mobile

2009-12-31T10:52:00.004+07:00

Pernahkah anda mendownload game java tetapi ternyata game java yang anda download tersebut tidak compatible dengan handphone anda, game java tersebut tidak dapat dimainkan di hand phone anda atau ukuran layarnya terlalu besar/ terlalu kecil di handphone anda. bila anda mengalami masalah tersebut, ada sebuah software yang dapat membantu anda yaitu "java adapter for mobile".

java adapter adalah sebuah software yang mampu mengubah game java / aplikasi java yang sebetulnya tidak compatible di handphone anda menjadi compatible di handphone anda. sebagai contoh misalnya anda mendownload game java yang sebenarnya diperuntukan untuk handphone sony ericcson k800i, dengan ukuran layar 240*320, anda berkeinginan untuk memainkan game ini di handphone anda, misalkan hp anda adalah motorola V3x dengan ukuran layar 176*220, maka dengan software ini game java yang ukuran layarnya tadinya 240*320 dirubah menjadi 176*220, sehingga game tersebut dapat dimainkan di handphone anda. tingkat keberhasilan dari pemakaian software ini adalah 75%,. bagaimana apakah anda tertarik mendownload software ini

Screenshoot

Download Disini

Menghasilkan uang lewat Blog/Website

2009-07-01T10:06:00.002+07:00

Punya blog atau website, manfaatin aja blog/website kamu buat mencari uang caranya gampang

1. Kamu harus punya blog/website(wajib)

2. Daftar program PPC(Pay Per Click)
PPC merupakan sebuah program periklanan di internet dimana kita akan mendapatkan uang jika pengunjung blog kita mengklik iklan yang telah kita pasang di blog kita, tarif PPC rata-rata Rp.300-Rp.400 per klik, lumayan kan. beberapa alamat website PPC antara lain

1.Kumpulblogger.com
KumpulBlooger adalah Jaringan Blogger Indonesia untuk mendapatkan alternatif penghasilan tambahan, dengan cara menyediakan spot/ruangan pada blognya sebagai tempat menyampaikan pesan komersial dari Advertiser.Kumpulblogger merupakan ppc lokal yang sangat diminati para blogger, blogger yang sudah bergabung dengan kumpulblogger sudah mencapai56557 blogger, kumpulblogger akan membayar Rp.300 tiap ada yang mengklik iklan teks yang kita pasang, dan 350 untuk mini banner.

2.Adsensecamp
AdsenseCamp merupakan website yang memberikan kesempatan bagi Anda untuk memperoleh penghasilan tambahan dengan menyediakan ruang pada website Anda sebagai tempat pemasangan iklan bagi advertiser. AdsenseCamp juga memberikan kesempatan kepada para Advertiser yang berkeinginan mempromosikan iklannya yang bakal disebarkan kepada web owners yang telah terdaftar di AdsenseCamp.adsensecamp membayar 300 tiap ada yan mengklik iklan yang telah kita pasang

3.Adsentra
4.Paneniklan.com
5.dll masih banyak kok googling aja

3. Pasang Iklannya di Blog kita
4. Tungguin aja, mudah-mudahan ada yang ngeklik iklan di blog kita

Belajar Menjadi Hacker Lewat Game

2009-05-07T14:05:00.005+07:00

Pada tertarik kan sama yang namanya hacking hackingan, saya juga tertarik nih sama dunia itu hehehehehe, sedikit sejarah yang gak penting nih, sebenernya saya belajar pemrograman karena pengen bisa hacking-hackingan, dulu pernah baca, dimana ya lupa, kalau mau jadi hacker tuh harus bisa pemrograman paling tidak mengenal sedikit, akhirnya saya pun mulai mencari apa sih yang dimaksud pemrograman? apa bahasa pemrograman yang pas untuk pemula? hehehehe terus menerus saya mencari akhirnya saya menemukan bahasa yang tepat yaitu pascal. sejak saat itu saya mulai mempelajari bahasa pascal yang katanya gampang buat pemula, emang sih sintak-sintaknya pascal itu gampang, secara udah pake bahasa inggris tapi yang gak kuat itu logikanya hehehehe, beneran dah hampir putus asa sama pemrograman, hehehehe

Udah deh sejarah-sejarahan nya, kita lanjut aja, kemaren tuh saya mengunjungi situs indowebster, itu tuh situs rapidsharenya indonesia, pada taukan, pengen nyari file, eh nemuin file unik game hack, langsung aja deh file itu di download sama saya, di ekstraklah game itu pake winrar, langsung deh dimainin keluar deh gambar kaya dibawah

Missionpack: Pilih bahasanya mau apa, ada banyak tuh termasuk bahasa indonesia
Username : Masukan id kamu
Terus enter lalu akan keluarlah gambar seperti dibawah ini

klik inbox langsung keluar instruksinya baca biar teliti instruksinya, dan lansung jalanin dan mainin.

penasaran kan jadi pengen download gamenya gak usah jauh jauh ke indowebster langsung aja

>>>>>>>>>>>>>>Download Disini<<<<<<<<<<<<<<<<<<<<<<

kalau udah di download terus mainin dah tuh game, trus komen-komen di blog saya udah level berapa kamu, kalau perlu gimana cara nyelesain-nya, terus terang nih saya baru nyelesain level 1 hehehehe,

petunjuk untuk level 1 pernah belajar dos kan, nah pake tuh fungsi fungsi dosnya misalnya
cd namafile (buat masuk ke file)
dir namafile (buat ngeliat folder)
cd\ (buat balik ke folder sebelumnya)

dan lain lain, itu aja petunjuknya, terakhir saya mau mengucapkan selamat bermain, in english lets play hehehehe, see you next post. hehehehhe

Procedure dan Fungsi Unit Crt Freepascal

2009-02-17T07:54:00.005+07:00

1. Clreol
Deklarasi: procedure clreol
Deskripsi: menghapus dari posisi kursor diletakan sampai baris terakhir sintak.dan kursor tidak tetap di posisi kursor diletakan

contoh program


Program satu;

uses Crt;

{program penggunaan prosedur clreol}
var
 I,J:integer;
 
begin
 For I:=1 to 15 do
  For J:=1 to 80 do
   begin
   gotoxy(j,i);
   Write (j mod 10);
   end;
 Window(5,5,75,12);
 Write(’garis ini akan dihapus dari’,
      ’sini sampai sebelah kanan windows’);
 GotoXY(27,WherexY);
 ReadKey;
 ClrEol;
 WriteLn;
end.

2. Clrscr
Deklarasi:procedure Clrscr;
Deskripsi: membersihkan layar kerja

contoh program


program dua;

user crt;
{program penggunaan clrscr}
begin
 writeln('rivai ganteng');
 readkey;
 clrscr;
 writeln('baris pertama telah terhapus');
end.

3. Delay
Deklarasi:procedure delay(Ms:Word)
Deskripsi:memberi jeda waktu pada saat program di eksekusi

contoh program


program 3;
uses crt;

{program memberi jeda pada program}
var
  i:longint;
begin
 writeln('menghitung mundur');
 for i:=10 downto 1 do
  begin
   writeln(i);
   delay(3000); {menunggu selama tiga detik}
  end;
 writeln('door');
end.

4. Gotoxy
Deklarasi: procedure gotoxy(x : byte; y: byte)
Deskripsi: mengatur posisi kursor pada tampilan

contoh program


Program 4;
uses Crt;
{program penggunaan function gotoxy}
begin
 ClrScr;
 GotoXY(10,10);
 Write(’10,10’);
 GotoXY(70,20);
 Write (’70,20’);
 GotoXY(1,22);
end.

5. Readkey
Deklarasi:function readkey:char)
Deskripsi:membaca char yang telah di masukan lewat keyboard

contoh program


Program 5;
uses Crt;

{program penggunaan function readkey}
var
  ch:char;
begin
  writeln(’Tekan kiri/kanan,Esc=keluar’) ;
  repeat
    ch:=ReadKey;
    case ch of
     #0 : begin
            ch:=ReadKey; {membaca code}
            case ch of
            #75:WriteLn(’kiri’);
            #77:WriteLn(’kanan’);
           end;
         end;
     #27:WriteLn(’keluar’);
    end;
   until ch=#27 {keluar}
end.

Pengenalan Bahasa C

2009-01-31T20:34:00.002+07:00

Sejarah Bahasa C

Bahasa C diciptakan oleh Dennis M ritchie di Bell Telephone Laboratoey Inc, Murray, Hill, New Jersey, USA pada tahun 1972, Bahasa C merupakan perlambangan 2 bahasa yaitu bahasa B dan BPCL

Keunggulan Bahasa C:

Flexibility: Mendekati Low Level Language namun mudah dimengerti
Portability: Dipakai dari komputer micro hingga superkomputer
Didukung oleh banyak libraries(pustaka)
Merupakan program terstruktur

Struktur Dasar Bahasa C

Bahasa C terdiri dari fungsi-fungsi
Tidak ada perbedaan prosedur dan fungsi
Setiap program c mempunyai satu fungsi utama "main"
Bersifat case sensitive(huruf besar dan kecil berbedaSetiap statement di akhiri tanda semicolon (;)


#include 

fungsi_lain();

main()
{
deklarasi lokal;
statement;
}

fungsi_lain()
{
deklarasi lokal;
statement;
}

Situs file hoster yang membayar selain ziddu

2009-01-10T13:33:00.005+07:00

Situs yang membayar kita apabila ada orang yang mendownload file yang telah kita upload di file hoster ternyata bukan cuma ziddu loh, tetapi masih banyak lagi dengan keunggulan dan kelemahannya dibanding dengan ziddu salah satu situs itu adalah:

1. Kewlshare
Kewlshare adalah file hoster yang mirip dengan ziddu, file hoster yang membayar kita apabila ada orang yang mendownload file kita dengan ketentuan sebagai berikut:

Apabila kita mengupload file kurang dari 20 mb maka tiap kali download kita mendapatkan 0,001 dollar
Apabila kita mengupload file lebih dari 20-90 mb maka tiap kali download kita mendapatkan 0,002 dolar
Apabila kita mengupload file lebih dari 100 mb maka tiap kali download kita mendapatkan 0,005 dolar

minimum payout nya 10 dolar berarti kalau di itung itung kita bisa mendapatkan uang 10 dolar kalau ada yang mendownload file yang berukuran lebih dari 100 mb sebanyak 2000 kali, dan file yang berukuran kurang dari 20 mb sebanyak 10000 kali, hehehe kapan kayanya, tapi lumayan lah dibanding di ziddu yang udah dilarang dipergunakan di forum kaskus.
>>>>>>>>>>>>>>>>Daftar disini<<<<<<<<<<<<<<<<

2. Easy-share.com

Mereka akan membayar Anda apabiala ada yang mendownload file anda tergantung pada negaranya. Maksudnya bila ada yang mendownload file anda dari Australia, Austria, Belgium, Canada, Denmark, Germany, Great Britain, Greece, France, Finland, Ireland, Italy, Netherlands, Norway, Sweden, Spain, Singapore, Saudi Arabia, Portugal, USA anda dibayar 2 dolar untuk 1000 kali download

Apabila File anda di download dari negara Brazil, Czech Republic, India, Japan, Malaysia, Mexica, Turkey, Poland, Russia, Ukraine maka anda mendapatkan 1 dolar untuk 1000 download

Apabila file anda didownload selain dari negara itu maka anda akan mendapatkan 0,1 untuk 1000 download

FreePascal compiler pascal terbaik

2009-01-05T11:32:00.001+07:00

Compiler adalah sebuah software yang digunakan untuk mengubah sebuah sintak bahasa pemrograman menjadi sebuah program atau aplikasi.Freepascal adalah salah satu compiler yang cukup bagus untuk bahasa pemrograman pascal.Freepascal adalah compiler 32 bit untuk processor jenis i386 dan m68k, Free pascal memiliki kelebihan multiplatform yaitu suport terhadap banyak operating system.

Pada saat ini Freepascal support beberapa operating system antara lain:
Dos
Linux
Amiga
Windows
OS/2
FreeBsd
BeOs
Solaris
PalmOs
NetBsd
Netware
OpenBsd

FreePascal sangat compatible dengan Turbo Pascal 7.0 dan Delphi tetapi dibanding compiler lain Freepascal lebih baik karena dukungan terhadap os nya sangat banyak dibanding compiler lain. mungkin sudah saatnya anda yang menggunakan turbo pascal beralih ke Freepascal

>>>>>>>>>>>>Download Disini<<<<<<<<<<<<<

Tips dan trik email di yahoo

2008-12-31T16:34:00.008+07:00

1. Merubah warna background email

untuk merubah warna background email cukup mudah caranya klik menu opsi => warna , pilih warna yang di inginkan

2. Membuat tanda tangan atau signature

klik menu opsi => opsi mail
klik menu tanda tangan
tulislah nama anda, alamat dan lain lain, apabila fitur ini di aktifkan maka setiap anda mengirim email akan ada tulisan seperti yang telah anda buat tadi

situs-situs keren buat yang hobi download

2008-12-27T12:10:00.010+07:00

http://www.indowebster.com
situs ini merupakan situs sharing file, banyak file file keren yang telah di upload oleh member indowebster dari yang legal sampai ilegal, file nya pun banyak ebook, mp3, software, video, wallpaper dan masih banyak lagi, situs ini juga mempunyai fasilitas lain misalnya youtube downloader, tv streaming dan lain-lain pokoknya cocok banget dah buat yang hobi download

http://www.freewarefiles.com/
nah kalo situs ini situs buat download software yang gratis alias freeware banyak banget kategorinya misalnya games, audio ,video, internet tools, utilities bahkan drivers pun ada disini

http://softwareportables.blogspot.com/
nah kalo situs yang ini situs buat download situs portable alias software yang gak usah di install, dari yang legal sampe ilegal, banyak banget dah softwarenya mau download software software buatan adobe ada disitu, apalagi yang dicari yaudah langsung aja kesitus nya

http://www.freewarehome.com/
situs ini hampir sama kaya http://www.freewarefiles.com/ tapi filenya lebih banyak, katanya sih sampe 4500 software freeware, langsung aja ke tkp

http:www.mobango.com
situs ini merupakan situs sharing file juga kaya indowebster tapi khusus buat handphone. banyak banget nih filenya, aplikasi, java game, wallpaper, video macem macem deh

http://download-provider.com
situs ini merupakan situs buat download macem-macem games, musik,film, software dari mulai photoshop, auto cad ada disini tapi sayangnya anda harus daftar dulu buat download file-file yang disediain, tenang aja cuma suruh masukin email doang kok ma password, udah deh tinggal download

http://www.download-game.com/
situs ini merupakan situs khusus download game dari action, adventure, strategy ada disini walaupun kayanya game game nya pada jadul lumayan buat seneng seneng

Aplikasi keren untuk hp anda

2008-12-21T10:06:00.003+07:00

Diantara beribu-ribu aplikasi mobile java yang ada, telah saya coba 7 aplikasi mobile java yang keren diantaranya adalah sebagai berikut:

1. Opera Mini Mod 3.1 (Bahasa indonesia)
Tak perlu diragukan lagi opera mini merupakan browser terbaik di hp cepat dan hemat. opera mini mod adalah hasil modifikasi dari opera mini dengan penambahan beberapa fungsi antara lain musik player, video player, file manager, ftp manager, dokumen viewer, dan berbagai fungsi lainnya. jadi opera mini mod memadukan browser yang cepat dan hemat dengan fitur multi media yang cukup lengkap. opera mini mod merupakan aplikasi terbaik menurut saya.
>>>>>>>>>>>Download<<<<<<<<<<<

2. Kamus Inggris-Indonesia
Dengan aplikasi ini anda tidak perlu lagi membuka buka kamus untuk menterjemahkan kata dalam bahasa inggris maupun sebaliknya karena ada aplikasi kamus inggris indonesia yang cukup lengkap, bahasa inggris pun dalam genggaman tangan anda.

>>>>>>>>>>>>Download<<<<<<<<<<<

3. Migg33 v4.00
Aplikasi ini merupakan aplikasi chating yang sangat populer, banyak user yang menggunakan aplikasi ini dari belahan dunia, dari indonesia juga banyak yang memakai aplikasi ini. jadi kalau anda mencari aplikasi chating yang bagus download lah aplikasi ini
>>>>>>>>>>>Download<<<<<<<<<<<

4. Doc viewer
Aplikasi ini digunakan untuk membuka file-file dokumen seperti doc, txt dan lain lain. aplikasi ini wajib anda miliki bagi anda yang menginginkan kemudahan dalam mengakses data anda
>>>>>>>>>>Download<<<<<<<<<<<

5. Facewarp
Aplikasi ini memiliki kegunaan untuk mengubah photo yang kita photo menjadi bentuk bentuk yang aneh, pokoknya lucu banget dah bentuk bentuknya aplikasi ini lumayan buat lucu-lucuan dan menjahili teman.
>>>>>>>>>>Download<<<<<<<<<<<

6. Quran
Aplikasi ini merupakan bentuk digital dari ayat suci alquran.aplikasi ini memiliki fasilitas pencarian ayat untuk memudahkan anda membaca. download lah aplikasi ini bila anda ingin selalu dekat dengan allah dimana pun berada, aplikasi ini memiliki fasilitas pencarian ayat
>>>>>>>Download<<<<<<<<<<

7. winrar
Anda ingin membuka file dengan extension rar, jar maupun zip install aplikasi ini. anda juga bisa mengekstraknya maupun memberi password pada file agar tidak ada orang lain yang bisa membuka file anda.
>>>>>>>>>>>Download<<<<<<

itulah beberapa aplikasi pilihan yang cukup layak anda download

Sintak Input dan Output di pascal

2008-12-09T11:07:00.005+07:00

Dalam pascal terdapat sintak yang digunakan untuk operasi program input dan output yaitu:

Write : Menulis keluaran ke layar monitor sedangkan kursor tetap di baris yang sama
Writeln : Menulis keluaran ke layar monitor sedangkan kursor pindah ke baris berikutnya
Read : membaca masukan dari keyboard sedangkan kursor tetap di baris yang sama
Readln : membaca masukan dari keyboard sedangkan kursor pindah ke baris berikutnya

contoh program input-output dalam bahasa pascal


program input_output;
uses crt;
var
Nd:integer; {Nd:nama depan}
Nb:Integer; {Nb:nama belakang}
begin
clrscr;
write('Masukan nama depan anda: '); read(Nd);
write('Masukan nama belakang anda: ') read(Nb);
write('Nama Lengkap Kamu adalah :',Nd,','Nb);
End.

Akses internet gratis 12 gb

2008-12-07T10:03:00.001+07:00

Siapa yang gak mau akses internet gratis 12 gigabyte selama 6 bulan,sobat blogger pasti mau kan, sobat blogger bisa mendapatkan gratis akses internet dengan cara membeli hp smart D1200P seharga 289 ribu rupiah,Operator hp cdma yang baru smart sedang berpromosi memberi kita gratis akses internet 12 gb selama 6 bulan dan tiap bulannya kita mendapatkan data akses internet sebesar 2gb, apabila kelebihan kuota maka akan dikenakan biaya 0,275 per kb lumayan kan lebih murah dari Axis yang tarif gprsnya 0,7.

Hp yang disertakan dalam promosi smart ini lumayan juga fitur fiturnya adalah sebagai berikut:
1.Layar Warna
2.Modem 3g
3.Wap
4.Bisa menyembunyikan sms dan phone book
5.Polyphonik
6.free batrei tambahan
7.kabel data

jadi dengan harga 289 ribu kita bisa dapet hp modem 3g murah dengan gratis akses internet 12 gb, satu hal yang menjadi kekurangan dalam promosi smart ini adalah layanan internet dari hp hanya bisa wap saja selain itu tak ada kekurangan lainnya, lumayan dari pada berlangganan speedy,fastnet dll.

setting gprs dan setting internet di komputer ada di dus pembelian hp smart jadi gak usah di jelasin di blog ini tinggal beli deh dan satu lagi buat para blogger yang tinggal di kawasan Bogor galeri smart ada di botan square lt L6 2A

Algoritma password

2008-11-26T14:12:00.000+07:00

Algoritma ini cara kerjanya adalah kita harus memasukan sandi, apabila kita 3 kali salah dalam memsukan sandi maka program akan dihentikan program ini saya kutip dari bukunya Bapak Rinaldi Munir, algoritma nya adalah sebagai berikut:

algoritma kata sandi
deklarasi
const
password='rahasia'
sandilewat:string
sah:boolean
k:integer

deskripsi
k<-1
sah<-false
repeat
read(sandilewat)
if sandilewat=password then
sah<-true
else
k<-k+1
endif
until(sah) or (k>3)
endif
endfor

Audition OffLine

2008-11-23T11:52:00.003+07:00

Audition adalah game yang cukup populer di kalangan para gamers online,setiap gamecenter pasti menyediakan game ini.Game ini melatih kecepatan tangan dalam menekan tuts arah pada keybord, game ini cukup mudah dimainkan tetapi memerlukan latihan yang extra keras untuk dapt mengalahkan gamers lainnya di dunia maya. maka dari itu para gamers yang pemula harus melakukan latihan untuk mengalahkan gamers lain yang sudah mahir.

untung saja ada sebuah game yang menyerupai game audition bahkan dapat dikatakan sama yang dimainkan secara offline atau tanpa memerlukan koneksi ke internet jadi para gamers tidak harus mengeluarkan uang untuk biaya koneksi ke internet dan bisa latihan dirumah sepanjang hari.

Di dalam audition offline ini kita bisa memasukan lagu dengan sesuka hati, lagu dangdut,pop,rock jazz bebas para gamers cukup mengcopy kan lagu yang di inginkan di c:/program files/2d audition offline/musik .

Auditon offline menyediakan 8 karakter, dan memiliki 19 arena yang berbeda, di dalam audition ini para gamers juga bisa memilih beberapa mode game, dan bisa merubah rpm lagu, nih dikasih dah screenshootnya

>>>>>>>>>Download<<<<<<<<<<<

Program input output

2008-11-23T11:50:00.006+07:00


Program survei;
var
nd,l,nb,h:string;
nb:string;
umur,ti,ta,jk,:integer;

procedure judul;
begin
writeln('---------------------------------------------------------------');
writeln('*                  program survei                             *');
writeln('---------------------------------------------------------------');
end;

begin
clrscr;
judul;
write('masukan nama depan: ');    readln(nd);
write('masukan nama belakang: '); readln(nb);
write('halo ',nd,'',nb,' apa kabar');
readln;
clrscr;
judul;
write('berapa usia kamu ',nb,' : '); readln(umur);
write('dimana kamu lahir ',nb,': '); readln(l);
write('Apa Hobi Kamu: '); readln(h);
clrscr;
judul;
write('masukan jenis kelamin(1=laki/2=perempuan): ' ); readln(jk);
write('masukan tinggi anda: ' );        readln(ti);
if jk >= 2  then
ta:=170- ti
else
if jk <= 1 then    ta:= 186- ti; 
if ta <= 0 then    writeln('tinggi anda ideal')   
  else  if ta > 0 then
writeln('tinggi anda belum ideal kurang ',ta,' cm lagi');
readln;
clrscr;
judul;
writeln('Profil Kamu');
writeln('Nama Lengkap : ',nd,'',nb);
writeln('Umur         : ',umur);
writeln('Tempat Lahir : ',l);
writeln('Hobi         : ',h);
writeln('Tinggi       : ',ti);
readln;

end.

Program kalkulator sederhana

2008-11-23T11:48:00.000+07:00

program kalkulator;
uses crt;
var
bil1, bil2:longint;
calc:char;
begin
clrscr;
write('bilangan pertama: '); readln(bil1);
write('operasi(+,/,*,-): '); readln(calc);
write('bilangan kedua: '); readln(bil2);
case calc of
'+':write('hasilnya= ', bil1+bil2);
'-':write('hasilnya= ', bil1-bil2);
'*':write('hasilnya= ', bil1*bil2);
'/':if bil2=0 then write('Error') else
write('hasilnya= ', bil1/bil2);
end;
readln;
end.

5 Manfaat Ngeblog Menurut Prof.Dr Ahmad Rivai Sgm,Mm,mba

2008-11-12T15:05:00.002+07:00

1.Mendapatkan Ilmu
Dengan ngeblog otomatis teman-teman bisa mendapatkan ilmu, nulis posting nambah ilmu, baca-baca blog orang juga nambah ilmu, banyak dah ilmu yang bisa teman-teman dapet dari ngeblog,

2.Mendapatkan Banyak Teman
Dengan ngeblog teman-teman bisa mendapatkan banyak teman dari berbagai kalangan tua-muda, kaya-miskin, gaul-jadul, cakep-jelek macem macem deh,kalau ada yang mau jadi temen saya komen aja di shoutbox gak bakal ditolak deh jadi temen hehehe, terus kits tukeran link deh ok, nih daftar blog temen temen saya : denny,anggorodewantoto,Panji,aan,Pemau,

3.Mendapatkan Uang/dolar
Hehehe ini dia nih manfaat paling menggiurkan dari ngeblog mendapat dolar hehehe, yang mata duitan langsung melotot nih hehehe,dolar bisa didapat dari ppc(pay per clik), ppc adalah situs yang akan membayar teman-teman apabila penggunjung blog teman-teman mengklik iklan mereka yang teman-teman pasang di blog teman-teman contoh situs ppc: adsense, kumpulblogger, adsensecamp dan masih banyak lagi, yang kedua dengan cara sharing file, kita akan mendapatkan uang apabila pengunjung blog kita mendownload file yang kita sharing di filehoster,contoh situs nya yaitu ziddu, hehehe dan masih banyak lagi cara mendapatkan uang dengan ngeblog asal teman-teman pandai googling aja hehehehe

4.Media Promosi
Dengan membuat blog, teman-teman bisa mempromosikan produk atau jasa yang ingin teman-teman jual, bisa juga teman-teman mempromosikan diri sendiri alias narsis memasang photo di postingan teman-teman. hehehe blog merupakan media promosi yang hemat dan tanpa biaya serta hanya memerlukan koneksi ke internet hehehehe

5.Media Curhat
dengan ngeblog teman bisa melampiaskan kekesalan, kesenangan, kesedihan dan lain lain dalam bentuk tulisan,di blog kita juga bisa menulis diary hehehe teman-teman bebas menuliskan isi hati dalam blog teman-teman hehehe,

itualah manfaat ngeblog menurut pendapat saya hehehe dan masih banyak lagi mungkin manfaatnya,ayo nulis!,ayo ngeblog!, ngeblog itu asyik loh hehehe

Menghitung bilangan kuadrat

2008-11-11T14:57:00.003+07:00

waduh udah ke 8 kali nih saya bikin posting tentang pemograman pascal, di posting ini saya mau ngebahas gimana bikin program perpangkatan alias menghitung bilangan berpangkat. yaudah copy in aja nitu kode yang bercetak miring dibawah ke notepad terus simpen dah pake extension .pas hehehe teus compiler deh pake freepascal atau turbo pascal, tapi kalau pakai turbo pascal
uses crt; diganti sama uses wincrt;
hehehe saya tak pandai menjelaskan jadi temen temen pelajarin aja kodenya sendiri ya hehehe

program pangkat; {nama program}
uses crt;
var
hasil:longint;
a:longint;
n:integer;
m:integer;
k:integer;
begin
clrscr;
write('angka yanng akan dipangkatkan: '); read(a);
write('pangkatnya: '); read(n);
if n < 0 then
m:=-n
else
m:=n;

hasil:=1;
for k:=1 to m do
hasil:=hasil*a;
if n<0 then
write(',1')
else
write('jadi hasil ',n,' dipangkatkan ',m,' = ',hasil);
readln;
readln;
end.

Site Blocker

2008-11-08T12:16:00.008+07:00

site blocker adalah software yang digunakan untuk memblock situs yang tidak diharapkan untuk di kunjungi, situs apa saja bisa diblock bukan hanya situs porno yang banyak bertebaran bahkan situs pendidikan pun bisa di block

cara penggunaannya adalah dengan menuliskan situs yang ingin diblock, wah ribet juga ya kalau buat ngeblock situs porno yang jumlahnya jutaan di dunia maya, memang software ini kurang efektif untuk memblock situs situs porno tetapi lumayanlah untuk dicoba. nih screenshootnya

>>>>>>Download<<<<<<<<<

PC Inspector File Recovery

2008-11-08T10:52:00.004+07:00

sering kali file file kita menghilang entah kemana, terhapus oleh orang lain padahal file itu adalah file yang penting, tenang saja semua bisa diatasi ada salah satu software yang cukup bisa diandalkan untuk mengembalikan file yang terhapus namanya PC Inspector File Recovery. wah ini software hebat banget bisa mengembalikan file secara cepat dan GUI sangat user friendly cara untuk memakai software ini adalah
1. pertama tama akan muncul gambar seperti di bawah, pilih bahasa yang di inginkan

2.maka akan muncul gambar seperti di bawah ini
Recover Deleted Files:pilih ini apabila data belum lama di delete
Find Lost Data :Pilih ini apabila data hilang karna terformat,crash dan lain-lain
Find Lost Drive :pilih apabila drive nya hilang

sudah deh tinggal pilih drive asal tempat file yang hilang sudah beres

>>>>>>>>>Download Disini<<<<<<<<<<<<<

Photo Filter

2008-11-02T10:33:00.006+07:00

Photo Filter merupakan pengedit foto favorit saya karena ukuran filenya kecil dan mudah untuk di operasikan, fitur-fitur yang ada di software pengedit foto ini cukup banyak. untuk ukuran freeware software software ini cukup bagus berikut ini keterangan senjata senjata yang digunakan untuk mengedit photo di photo filter:

Keterangan dari kiri kekanan

Selection Tool(tanda panah) fungsinya hampir sama dengan funsi kursor di software
Pipette tool gunanya adalah untuk mengcopy warna dari gambar
Magic wand tool gunanya untuk menyeleksi gambar dengan otomatis
Line tool Digunakan untuk membuat garis
Fiil tool gunanya untuk memberi warna
Spray tool gunanya seperti menggunakan Pilok di dunia nyata
PaintBrush tool di gunakan untuk menggambar di dalam foto seperti menggunakan pulpen
Advanced PaintBrush tool fungsinya untuk mengambar tetapi bukan garis tetapi menggunakan gambar
Blur tool digunakan untuk membuat blur pada gambar
Smudge tool Fungsinya hampir sama dengan blur tool tetapi lebih jelas blurnya
Clone stamp tool fungsinya untuk mengcopy gambar
Scrooling tool fungsinya untuk menggeser gambar

Contoh Foto yang sudah di edit dengan software photo filter

Download Photo Filter

menghitung nilai factorial

2008-10-26T09:48:00.004+07:00

masih ingat kah anda tentang nilai factorial yang di pelajari sma, masih ingatkah anda dengan hasil 10!, jawabannya mudah 10!=1*2*3*4*5*6*7*8*9*10=? wah kok isi nya tanda tanya, males ngitung nya kalau males ngitungn bikin aja programnya buat ngitung nilai faktorialnya
pertama tama seperti biasa buka free pascal terus tulis deh program yang di bawah

program nilaifactorial; {nama programnya}
uses crt {unit nya}
var
n,k:integer {n=banyak nya data k=nilai bantu}
jumlah:longint {jumlah nya}
begin
repeat
clrscr; {fungsi membersihkan layar}
write('masukan nilai n: '); readln(n);
jumlah:=1;
k:=1;
while k <= n do begin jumlah:=jumlah*k; k:=k+1; end; writeln('jadi hasilnya ',jumlah); write; write('lihat lagi Y/N: '); readln(lagi); until upcase(lagi)= 'N'; end.

nih hasilnya

noh ketemukan hasilnya 10!=3628800
gampangkan kalau di bikin programnya
>>>>>>>download source codenya<<<<<<<<<

axis penipu

2008-10-22T18:24:00.001+07:00

waktu pertama kali munculnya kartu axis sih saya seneng banget tarifnya itu loh murah banget ditambah gprsnya gratis, tapi lama kelamaan tarifnya itu makin naik naik dan naik, tarif gprsnya naik dari gratis ke 0,1/kb naik lagi ke 0,7/kb. emang sih dibandingkan dengan yang lain sih masih ter murah. lama kelamaan kok cepet banget pulsa tuh abisnya, trus saya penasaran lalu saya mau menghitungnya, saya cek pake opera mini mod kebetulan ada fitur traff memory, traff memory itu fungsinya buat ngasih tau besarnya data yg masuk, setelah di hitung hitung byte yg ada di traff memory di kali sama tarifnya kok ga sesuai sama pulsa yg udah berkurang, perkiraan saya itu tarifnya di atas 1/kb, katanya gsm yg baik tapi kok nipu konsumen, pertama-tamanya aja murah eh kesini nya naik dan naik, kapan sih operator hp berlomba lomba nurunin tarif gprs

ZIddu, sharing file dapet duit

2008-10-19T13:48:00.004+07:00

ziddu adalah sebuah layanan di internet seperti rapidshare atau layanan utuk sharing file lainnya,tak hanya sharing file,di ziddu kita bisa mengupload berbagai file file seperti mp3, video, games, software dan lain lain terserah deh, selain urusan sharing sharingan ternyata ziddu juga memberikan dolar juga loh mereka akan membayar $0,001 tiap kali ada yang download file yang kita sharing itu, memang sih kecil tetapi lumayan lah untuk penyemangat kita ngeblog, kenapa ziddu bisa membayar kita, pasti pada mau tanya ya hehehe, ada apa gerangan,udah kebanyakan duitkah si ziddu itu, ternyata selidik punya selidik si ziddu dapet duitnya dari masangin iklan yang cukup banyak di link download itu, iklannya itu banyak banget dah ampe pusing ngeliatnya, hehehe jadi si ziddu untung kita pun untung,kekurangan dari si ziddu itu selain iklannya banyak kadang kadang download nya juga gagal hehehe, itulah kekurangan paling mendasar tetapi lumayan lah untuk berbagi file dengan orang lain dan mendapat $$$ tentunya

>>>Daftar Disini<<

Pcmav 1.7
tabel periodik unsur.zip
Photo Filter

Mainin Ps Di Komputer

2008-10-13T16:20:00.003+07:00

mau maen ps 1 tapi gak punya biaya buat beli, mendingan pergunain komputer kamu untuk dijadin ps1 sebenarnya ps2 juga ada tapi yang di bahas ps1 dulu aja yang ps2 nyusul,caranya adalah dengan menggunakan sebuah software emulator, emulator itu alat buat mainin consol di pc jenis nya macem macem ada yang buat ps1,ps2,xbox,sega,nintendo dan game consol lainnya. selain emulator yang kamu perluin itu bios, jadi kamu harus ngedownload 2 kali yaitu emulator dan biosnya,spesifikasi minimumnya nih:
P200MMX or compatible
32 MB of RAM
Fast graphic card (like the voodoo 2)
Cdrom x16
Win9x
DirectX 7a
nih di kasih scrrenshotnya

download Epsxe

Tetris Source Code

2008-10-12T09:19:00.002+07:00


{===================================================x
= Program : Tetris 2 Player =======================
= Oleh : Ahmad Priatama     =======================
===================================================
Kode sumber dapat dimodifikasi dan dipublikasikan
Dengan bebas, tidak ada larangan dalam bentuk apapun
===================================================}

program tetris_2player;

uses crt;

type _points = array [1..4] of record
      x,y : longint;
   end;
   tetris = record
      points : _points;
      cshape, nshape, xmodel, xtetris, ymodel, ytetris : longint;
   end;

Const template : array [1..8] of _points =
  (((x:1; y:1),(x:1; y:2),(x:2; y:1),(x:2; y:2)),
   ((x:2; y:1),(x:1; y:1),(x:3; y:1),(x:4; y:1)),
  ((x:1; y:2),(x:1; y:1),(x:1; y:3),(x:2; y:3)),
  ((x:2; y:2),(x:2; y:1),(x:2; y:3),(x:1; y:3)),
  ((x:1; y:2),(x:1; y:1),(x:2; y:2),(x:2; y:3)),
  ((x:1; y:2),(x:2; y:1),(x:2; y:2),(x:1; y:3)),
  ((x:1; y:2),(x:1; y:1),(x:1; y:3),(x:2; y:2)),
  ((x:1; y:2),(x:2; y:1),(x:2; y:2),(x:2; y:3)));

var field : array [1..79,1..25] of boolean;
  tetris1, tetris2, ttetris : tetris;
  quit,gameover : boolean;
  answer : char;

procedure init_field;
var i : longint;
begin
   clrscr; fillchar(field,sizeof(field),0);
   for i := 3 to 22 do
   begin
      gotoxy(20,i); write(#186); field[20,i] := true;
      gotoxy(36,i); write(#186); field[36,i] := true;
      gotoxy(60,i); write(#186); field[60,i] := true;
      gotoxy(76,i); write(#186); field[76,i] := true;
   end;
   for i := 1 to 15 do
   begin
      gotoxy(20+i,23); write(#205); field[20+i,23] := true;
      gotoxy(60+i,23); write(#205); field[60+i,23] := true;
   end;
   gotoxy(20,23); write(#200);
   gotoxy(60,23); write(#200);
   gotoxy(36,23); write(#188);
   gotoxy(76,23); write(#188);
   gotoxy(6,4); write('Next:');
   gotoxy(46,4); write('Next:');
end;

procedure drawtetris(objek : tetris; mode : Boolean);
var i : longint;
  c : char;
begin
  if mode then c := #178 else c := #32;
  for i := 1 to 4 do
  begin
      field[objek.points[i].x,objek.points[i].y] := mode;
      gotoxy(objek.points[i].x, objek.points[i].y);
      write(c);
  end;
  gotoxy(1,1);
End;

procedure dropnew(var objek : tetris);
var i : longint;
begin
  if objek.cshape <> 0 then
  begin
      for i := 1 to 4 do
      begin
          ttetris.points[i].x := template[objek.nshape,i].x + objek.xmodel;
          ttetris.points[i].y := template[objek.nshape,i].y + objek.ymodel;
      end;
      drawtetris(ttetris,false);
  end;
  objek.cshape := objek.nshape;
  objek.nshape := random(8) + 1;
  for i := 1 to 4 do
  begin
      objek.points[i].x := template[objek.cshape,i].x + objek.xtetris;
      objek.points[i].y := template[objek.cshape,i].y + objek.ytetris;
      ttetris.points[i].x := template[objek.nshape,i].x + objek.xmodel;
      ttetris.points[i].y := template[objek.nshape,i].y + objek.ymodel;
      if field[objek.points[i].x,objek.points[i].y] then
      begin
          gameover := true;
          break;
      end;
  end;
  drawtetris(objek,true);
  drawtetris(ttetris,true);
end;

procedure init_tetris(var objek : tetris; id : longint);
begin
   objek.nshape := random(8) + 1;
   if id = 1 then
   begin
      objek.xmodel := 7; objek.xtetris := 26;
   end else begin
      objek.xmodel := 47; objek.xtetris := 66;
   end;
   objek.ymodel := 5; objek.ytetris := 2;
   dropnew(objek);
end;

procedure eliminate(objek : tetris; y : longint);
var i,j,k : longint;
  blank : boolean;
begin
  for i := y downto 3 do
  begin
      blank := false;
      for j := objek.xmodel + 14 to objek.xmodel + 28 do
          if not field[j,i] then
          begin
              blank := true;
              break;
          end;
      if not blank then
      begin
          for k := i downto 3 do
          begin
              gotoxy(objek.xmodel + 14,k);
              for j := (objek.xmodel + 14) to (objek.xmodel + 28) do
              begin
                  if field[j,k-1] then write(#178) else write(#32);
                  field[j,k] := field[j,k-1];
              end;
          end;
          eliminate(objek,i);
          break;
      end;
  end;
end;

procedure slide(var objek : tetris);
var i : longint;
  dropped : boolean;
begin
  drawtetris(objek,false);
  ttetris := objek;
  dropped := false;
  for i := 1 to 4 do
  begin
      inc(ttetris.points[i].y);
      if field[ttetris.points[i].x,ttetris.points[i].y] then
      begin
          dropped := true;
          break;
      end;
  end;
  if not dropped then objek := ttetris;
  drawtetris(objek,true);
  if dropped then
  begin
      eliminate(objek,22);
      dropnew(objek);
  end;
end;

procedure rotate(var objek : tetris);
var i : longint;
  collide : boolean;
begin
  drawtetris(objek,false);
  ttetris := objek;
  collide := false;
  for i := 2 to 4 do
  begin
      ttetris.points[i].y := objek.points[1].y + objek.points[i].x - objek.points[1].x;
      ttetris.points[i].x := objek.points[1].x - objek.points[i].y + objek.points[1].y;
      if field[ttetris.points[i].x,ttetris.points[i].y] then
      begin
          collide := true;
          break;
      end;
  end;
  if not collide then objek := ttetris;
  drawtetris(objek,true);
end;

procedure shift(var objek : tetris; x, y : longint);
var i : longint;
  collide : boolean;
begin
  drawtetris(objek,false);
  ttetris := objek;
  collide := false;
  for i := 1 to 4 do
  begin
      ttetris.points[i].x := objek.points[i].x + x;
      ttetris.points[i].y := objek.points[i].y + y;
      if field[ttetris.points[i].x,ttetris.points[i].y] then
      begin
          collide := true;
          break;
      end;
  end;
  if not collide then objek := ttetris;
  drawtetris(objek,true);
  if collide then eliminate(objek,22);
end;

procedure userinput;
var i : longint;
  c : char;
begin
  for i := 1 to 20 do
  begin
      if keypressed then
      begin
           c := upcase(readkey);
           case c of
           'W' : if tetris1.cshape <> 1 then rotate(tetris1);
           #72 : if tetris2.cshape <> 1 then rotate(tetris2);
           'A' : shift(tetris1,-1,0);
           #75 : shift(tetris2,-1,0);
           'S' : shift(tetris1,0,1);
           #80 : shift(tetris2,0,1);
           'D' : shift(tetris1,1,0);
           #77 : shift(tetris2,1,0);
           #27 : gameover := true;
           #32 : repeat delay(10); until keypressed;
           end;
      end;
      delay(10);
  end;
end;

begin
  randomize;
  while not quit do
  begin
      init_field;
      init_tetris(tetris1,1);
      init_tetris(tetris2,2);
      gameover := false;
      while not gameover do
      begin
          slide(tetris1);
          slide(tetris2);
          userinput;
      end;
      gotoxy(1,25); write('Play Again[Y/N]? ');
      repeat
          answer := upcase(readkey);
      until answer in ['Y','N',#27];
      if (answer = 'N') or (answer = #27) then break;
  end;
end.

Ngecheck Blog Orang

2008-10-10T15:46:00.002+07:00

iseng iseng nih ga ada inspirai buat nulis akhirnya ya udah aja chek chek aja blog teman teman ngeblog saya di http://www.diagnosticoweb.com/ hehe nih hasilnya
http://anggorodewanto.blogspot.com/

Basic WebSite / Domain Info
Page Loading Time	0.815798997879 seconds
Whois Info	Created : 2000-07-31 Changed : 2005-07-22 Expires : 2010-07-31 Click to show/hide more whois info Ages (approx. from creation) : 8 year(s), 2 month(s), 13 days. Nameservers: ns1.google.com(216.239.32.10) ns2.google.com(216.239.34.10) ns3.google.com(216.239.36.10) ns4.google.com(216.239.38.10) Registrar: MARKMONITOR INC. Referrer: http://www.markmonitor.com Owner: Admin: Get more whois info from DomainTools.com
Googlebot Last Access	5 Oct 2008 18:07:19 GMT
MSNbot Last Access	N/A
Technorati Last Update	N/A
WebSite / Domain Ranking
Google PageRank (without www)	1 (Valid)
Google PageRank (with www)	1 (Valid)
Alexa Traffic Rank	7498584 [Graph]
Technorati (Blog) Rank	0 (Auth.: 0)
Quantcast Rank	N/A
Compete Rank	17
Search Engines Result Position
Keywords	download ebook gratis
Google SERP Position	Not in top 100
Yahoo SERP Position	Not in top 100
MSN SERP Position	Not in top 100
Major Internet Directories
Listed in DMOZ Directory?	Not listed
Listed in Google Directory?	Not listed
Listed in Yahoo Directory?	Not listed
Exist in Wikipedia(EN)?	Not listed
Archive.org (WayBackMachine)?	0
Back Links and Outbound Links
Google Backlinks	0
Yahoo Inlinks	173
AllTheWeb Links	123
Altavista Links	125
Backlinks from .gov site	0
Backlinks from .edu site	0
Outbound Links	101 <-- Click to show/hide the URLs http://www.blogger.com/rearrange?blogID=7352494181413919198&widgetType=HTML&widgetId=HTML5&action=editWidget http://znout.org/ http://google.com/ http://www.free-ebooks.net/ http://www.blogger.com/comment.g?blogID=7352494181413919198&postID=2441754778076983139 http://www.blogger.com/post-edit.g?blogID=7352494181413919198&postID=2441754778076983139 http://www.ehow.com/images/logo-ehow.gif http://ehow.com/ http://www.blogger.com/comment.g?blogID=7352494181413919198&postID=5519921367441256097 http://www.blogger.com/post-edit.g?blogID=7352494181413919198&postID=5519921367441256097 http://www.rpgbrowser.com/ http://www.rpg.sg/ http://freebrowsergames.blogspot.com/ http://www.blogger.com/comment.g?blogID=7352494181413919198&postID=6110668192321447416 http://www.blogger.com/post-edit.g?blogID=7352494181413919198&postID=6110668192321447416 http://forestle.org/ http://www.ecocho.net/ http://www,greenmaven.com/ http://www.ecosearch.org/ http://www.friendsgreen.com/ http://www.ecoseek.net/ http://www.blogger.com/comment.g?blogID=7352494181413919198&postID=7559089320254574344 http://www.blogger.com/post-edit.g?blogID=7352494181413919198&postID=7559089320254574344 http://stopmerokok.com/ http://stop-rokok.blogspot.com/ http://stoprokok.blogspot.com/ http://www.pfizer.com/ http://www.blogger.com/comment.g?blogID=7352494181413919198&postID=3528844602006982204 http://www.blogger.com/post-edit.g?blogID=7352494181413919198&postID=3528844602006982204 http://1.bp.blogspot.com/_F8SnojoVXkg/SN9ATB1_78I/AAAAAAAAABw/v-zG7ZDc5rM/s1600-h/lg_hsw_primary.gif http://howstuffworks.com/ http://www.blogger.com/comment.g?blogID=7352494181413919198&postID=4664048768575825224 http://www.blogger.com/post-edit.g?blogID=7352494181413919198&postID=4664048768575825224 http://1.bp.blogspot.com/_F8SnojoVXkg/SOFTzfn04QI/AAAAAAAAAB4/NwZX8M3rPPo/s1600-h/stellarium.jpg http://www.stellarium.org/ http://www.blogger.com/comment.g?blogID=7352494181413919198&postID=4117864566864365420 http://www.blogger.com/post-edit.g?blogID=7352494181413919198&postID=4117864566864365420 http://www.bidvertiser.com http://www.blogger.com/rearrange?blogID=7352494181413919198&widgetType=HTML&widgetId=HTML1&action=editWidget http://www.blogger.com/rearrange?blogID=7352494181413919198&widgetType=HTML&widgetId=HTML2&action=editWidget http://www.blogger.com/profile/13745932431333404480 http://www.blogger.com/rearrange?blogID=7352494181413919198&widgetType=Profile&widgetId=Profile1&action=editWidget http://www.blogger.com/rearrange?blogID=7352494181413919198&widgetType=BlogArchive&widgetId=BlogArchive1&action=editWidget http://www.blogger.com/rearrange?blogID=7352494181413919198&widgetType=Label&widgetId=Label1&action=editWidget http://www.free-ebooks.net/index.php?category=undefined http://www.blogger.com/rearrange?blogID=7352494181413919198&widgetType=HTML&widgetId=HTML6&action=editWidget http://diary.satchdesign.com http://diary.satchdesign.com/?p=111 http://diary.jan.web.id http://diary.jan.web.id/index.php/2008/10/09/review-dota-map-v655/ http://go-pai.blogspot.com/ http://go-pai.blogspot.com/2008/10/ccleaner-pembersih-komputer.html http://rhapsodixx.net http://rhapsodixx.net/?p=58 http://13udi.blogspot.com/ http://13udi.blogspot.com/2008/10/debt-consolidation_08.html http://screamofmonorawx.blogspot.com/ http://screamofmonorawx.blogspot.com/2008/10/laziale-jogja.html http://chiell.wordpress.com http://chiell.wordpress.com/2008/10/03/terima-kasih/ http://blog.megangarnieri.com http://blog.megangarnieri.com/?p=42 http://takadakatakata.blogspot.com/ http://takadakatakata.blogspot.com/2008/09/antara-ramadhan-idul-fitri-dan-parcel.html http://aphipsays.wordpress.com http://aphipsays.wordpress.com/2008/09/27/sajak-menjelang-fitri/ http://han2cute.wordpress.com http://han2cute.wordpress.com/2008/09/23/ngeblog-bisa-nambah-teman/ http://tukeranlink.blogspot.com/ http://tukeranlink.blogspot.com/2008/09/cuti-nge-blog-jelang-lebaran.html http://tiftazani.wordpress.com http://tiftazani.wordpress.com/2008/09/21/the-true-happiness/ http://blog.omongkosong.com http://blog.omongkosong.com/2008/09/os-lympic-battle-os-of-the-year/ http://blog.landhes.info http://blog.landhes.info/?p=8 http://nugroho-kun.web.ugm.ac.id/index.php http://www.blogger.com/rearrange?blogID=7352494181413919198&widgetType=BlogList&widgetId=BlogList1&action=editWidget http://www.google.com/ig/add?source=bstp&feedurl=http%3A%2F%2Fanggorodewanto.blogspot.com%2Ffeeds%2Fposts%2Fdefault http://www.bloglines.com/sub/http://anggorodewanto.blogspot.com/feeds/posts/default http://www.netvibes.com/subscribe.php?url=http%3A%2F%2Fanggorodewanto.blogspot.com%2Ffeeds%2Fposts%2Fdefault http://www.newsgator.com/ngs/subscriber/subext.aspx?url=http%3A%2F%2Fanggorodewanto.blogspot.com%2Ffeeds%2Fposts%2Fdefault http://add.my.yahoo.com/content?url=http%3A%2F%2Fanggorodewanto.blogspot.com%2Ffeeds%2Fposts%2Fdefault http://www.google.com/ig/add?source=bstp&feedurl=http%3A%2F%2Fanggorodewanto.blogspot.com%2Ffeeds%2Fcomments%2Fdefault http://www.bloglines.com/sub/http://anggorodewanto.blogspot.com/feeds/comments/default http://www.netvibes.com/subscribe.php?url=http%3A%2F%2Fanggorodewanto.blogspot.com%2Ffeeds%2Fcomments%2Fdefault http://www.newsgator.com/ngs/subscriber/subext.aspx?url=http%3A%2F%2Fanggorodewanto.blogspot.com%2Ffeeds%2Fcomments%2Fdefault http://add.my.yahoo.com/content?url=http%3A%2F%2Fanggorodewanto.blogspot.com%2Ffeeds%2Fcomments%2Fdefault http://www.blogger.com/rearrange?blogID=7352494181413919198&widgetType=Subscribe&widgetId=Subscribe1&action=editWidget http://blog-indonesia.com http://www.co.cc/?id=137063 http://www.000webhost.com/44667.html http://kantinmilan.org http://langkahbaru.com/?r=93826 http://www.10pagerank.com http://www.blogger.com/rearrange?blogID=7352494181413919198&widgetType=HTML&widgetId=HTML3&action=editWidget http://xyz.freeweblogger.com/stats/1/1222082489/ http://www.freeweblogger.com/ http://www.blogger.com/rearrange?blogID=7352494181413919198&widgetType=HTML&widgetId=HTML4&action=editWidget http://www.blogger.com http://www.blogger.com/rearrange?blogID=7352494181413919198&widgetType=BloggerButton&widgetId=BloggerButton1&action=editWidget
Internal Links	74 <-- Click to show/hide the URLs http://anggorodewanto.blogspot.com/2008/10/download-ebook-gratis.html http://anggorodewanto.blogspot.com/search/label/ebook http://anggorodewanto.blogspot.com/search/label/internet http://anggorodewanto.blogspot.com/2008/10/belajar-apa-saja-dari-ehow.html http://anggorodewanto.blogspot.com/search/label/tech http://anggorodewanto.blogspot.com/search/label/tutorial http://anggorodewanto.blogspot.com/2008/10/browser-game-main-multiplayer-online.html http://anggorodewanto.blogspot.com/2008/10/selamatkan-lingkungan-dengan-klik.html http://anggorodewanto.blogspot.com/search/label/green http://anggorodewanto.blogspot.com/2008/09/butuh-bantuan-stop-merokok-stopmerokok.html http://anggorodewanto.blogspot.com/2008/09/penasaran-cari-tahu-di-howstuffworks.html http://anggorodewanto.blogspot.com/2008/09/menentukan-syawal-dengan-stellarium.html http://anggorodewanto.blogspot.com/search/label/Linux http://anggorodewanto.blogspot.com/search/label/religion http://anggorodewanto.blogspot.com/search/label/Ubuntu http://anggorodewanto.blogspot.com/search?updated-max=2008-09-28T14%3A24%3A00%2B07%3A00&max-results=7 http://anggorodewanto.blogspot.com/feeds/posts/default http://anggorodewanto.blogspot.com/?widgetType=BlogArchive&widgetId=BlogArchive1&action=toggle&dir=close&toggle=YEARLY-1199120400000&toggleopen=MONTHLY-1222794000000 http://anggorodewanto.blogspot.com/search?updated-min=2008-01-01T00%3A00%3A00%2B07%3A00&updated-max=2009-01-01T00%3A00%3A00%2B07%3A00&max-results=44 http://anggorodewanto.blogspot.com/?widgetType=BlogArchive&widgetId=BlogArchive1&action=toggle&dir=close&toggle=MONTHLY-1222794000000&toggleopen=MONTHLY-1222794000000 http://anggorodewanto.blogspot.com/2008_10_01_archive.html http://anggorodewanto.blogspot.com/?widgetType=BlogArchive&widgetId=BlogArchive1&action=toggle&dir=open&toggle=MONTHLY-1220202000000&toggleopen=MONTHLY-1222794000000 http://anggorodewanto.blogspot.com/2008_09_01_archive.html http://anggorodewanto.blogspot.com/2008/09/pulang-ke-indonesia-pahlawan-devisa.html http://anggorodewanto.blogspot.com/2008/09/kena-pr-10.html http://anggorodewanto.blogspot.com/2008/09/baca-email-dapat-uang.html http://anggorodewanto.blogspot.com/2008/09/blog-populer-dengan-rss.html http://anggorodewanto.blogspot.com/2008/09/google-adsense-untuk-indonesia.html http://anggorodewanto.blogspot.com/2008/09/berbisnis-online-dengan-langkahbarucom.html http://anggorodewanto.blogspot.com/2008/09/web-directory-cara-alternatif-browsing.html http://anggorodewanto.blogspot.com/2008/09/belajar-html-w3schools-saja.html http://anggorodewanto.blogspot.com/2008/09/tren-search-di-indonesia.html http://anggorodewanto.blogspot.com/?widgetType=BlogArchive&widgetId=BlogArchive1&action=toggle&dir=open&toggle=MONTHLY-1209574800000&toggleopen=MONTHLY-1222794000000 http://anggorodewanto.blogspot.com/2008_05_01_archive.html http://anggorodewanto.blogspot.com/2008/05/zyrex-asli-indonesia.html http://anggorodewanto.blogspot.com/2008/05/convert-ms-office-xml-docx-ke-odf.html http://anggorodewanto.blogspot.com/2008/05/ubuntu-804-hardy-heron.html http://anggorodewanto.blogspot.com/?widgetType=BlogArchive&widgetId=BlogArchive1&action=toggle&dir=open&toggle=MONTHLY-1206982800000&toggleopen=MONTHLY-1222794000000 http://anggorodewanto.blogspot.com/2008_04_01_archive.html http://anggorodewanto.blogspot.com/2008/04/ternyata-lebih-baik-gnome.html http://anggorodewanto.blogspot.com/2008/04/migrasi-2-sma-di-jogja.html http://anggorodewanto.blogspot.com/2008/04/dari-ubuntu-710-ke-kubuntu-710.html http://anggorodewanto.blogspot.com/2008/04/im-di-hp.html http://anggorodewanto.blogspot.com/2008/04/road-show-to-school.html http://anggorodewanto.blogspot.com/2008/04/domain-cocc.html http://anggorodewanto.blogspot.com/?widgetType=BlogArchive&widgetId=BlogArchive1&action=toggle&dir=open&toggle=MONTHLY-1204304400000&toggleopen=MONTHLY-1222794000000 http://anggorodewanto.blogspot.com/2008_03_01_archive.html http://anggorodewanto.blogspot.com/2008/03/dapat-slot-megauploadcom-gratis.html http://anggorodewanto.blogspot.com/2008/03/adzan-menghentikan-puting-beliung.html http://anggorodewanto.blogspot.com/2008/03/obor-olimpiade-di-indonesia.html http://anggorodewanto.blogspot.com/2008/03/acer-jual-laptop-murah-buat-30.html http://anggorodewanto.blogspot.com/2008/03/ingatkan-diri-untuk-istirahat-dengan.html http://anggorodewanto.blogspot.com/2008/03/baca-berita-pakai-rss-feed.html http://anggorodewanto.blogspot.com/2008/03/rename-banyak-file-sekaligus.html http://anggorodewanto.blogspot.com/2008/03/open-source-competition.html http://anggorodewanto.blogspot.com/2008/03/software-di-ubuntu.html http://anggorodewanto.blogspot.com/2008/03/ebook-untuk-ubuntu.html http://anggorodewanto.blogspot.com/2008/03/to-do-things-setelah-install-ubuntu.html http://anggorodewanto.blogspot.com/2008/03/ayo-install-ubuntu.html http://anggorodewanto.blogspot.com/2008/03/kenapa-open-source.html http://anggorodewanto.blogspot.com/2008/03/2-hari-2-film.html http://anggorodewanto.blogspot.com/2008/03/backpackers-kemandirian-yang-luar-biasa.html http://anggorodewanto.blogspot.com/?widgetType=BlogArchive&widgetId=BlogArchive1&action=toggle&dir=open&toggle=MONTHLY-1201798800000&toggleopen=MONTHLY-1222794000000 http://anggorodewanto.blogspot.com/2008_02_01_archive.html http://anggorodewanto.blogspot.com/2008/02/akhirnya-open-source.html http://anggorodewanto.blogspot.com/2008/02/unforgetable-bday.html http://anggorodewanto.blogspot.com/2008/02/gempa-nusantara.html http://anggorodewanto.blogspot.com/2008/02/blog-baru-isi-lanjut.html http://anggorodewanto.blogspot.com/search/label/bisnis%20online http://anggorodewanto.blogspot.com/search/label/blog http://anggorodewanto.blogspot.com/search/label/daily%20life http://anggorodewanto.blogspot.com/search/label/nasional http://anggorodewanto.blogspot.com/search/label/thougts%20of%20me http://anggorodewanto.blogspot.com/feeds/comments/default
Indexed on Major Search Engines
Indexed pages on Google	38
Indexed pages on Yahoo	7
Indexed pages on MSN	0
WebSite / Domain Title - Description - Keywords
Title	Universe of anggorodewanto's mind
Description
Keywords

http://rhapsodixx.net/

Basic WebSite / Domain Info
Page Loading Time	18.9948320389 seconds
Whois Info	Created : 2008-10-05 Changed : 2008-10-05 Expires : 2009-10-05 Click to show/hide more whois info Ages (approx. from creation) : 0 year(s), 0 month(s), 5 days. Nameservers: id41.dijaminmurah.com(202.67.10.11) id42.dijaminmurah.com(202.67.10.12) Registrar: UK2 GROUP LTD. Referrer: http://www.stargateinc.com Owner: email : contact@privacyprotect.org name : Domain Admin phone : +45.36946676 organization : PrivacyProtect.org address : P.O. Box 97 Note - All Postal Mails Rejected, visit Privacyprotect.org Moergestel null,5066 ZH NL Admin: email : contact@privacyprotect.org name : Domain Admin phone : +45.36946676 organization : PrivacyProtect.org address : P.O. Box 97 Note - All Postal Mails Rejected, visit Privacyprotect.org Moergestel null,5066 ZH NL Get more whois info from DomainTools.com
Googlebot Last Access	6 Oct 2008 16:33:29 GMT
MSNbot Last Access	06 Oct 2008
Technorati Last Update	N/A
WebSite / Domain Ranking
Google PageRank (without www)	0 (Valid)
Google PageRank (with www)	0 (Possibly FAKE -- Google is not caching this domain)
Alexa Traffic Rank	0 [Graph]
Technorati (Blog) Rank	0 (Auth.: 0)
Quantcast Rank	N/A
Compete Rank	N/A
Search Engines Result Position
Keywords	rhapsodixx.net
Google SERP Position	1
Yahoo SERP Position	Not in top 100
MSN SERP Position	1
Major Internet Directories
Listed in DMOZ Directory?	Not listed
Listed in Google Directory?	Not listed
Listed in Yahoo Directory?	Not listed
Exist in Wikipedia(EN)?	Not listed
Archive.org (WayBackMachine)?	0
Back Links and Outbound Links
Google Backlinks	0
Yahoo Inlinks	0
AllTheWeb Links	0
Altavista Links	0
Backlinks from .gov site	0
Backlinks from .edu site	0
Outbound Links	0 <-- Click to show/hide the URLs
Internal Links	1 <-- Click to show/hide the URLs http://rhapsodixx.net/
Indexed on Major Search Engines
Indexed pages on Google	10
Indexed pages on Yahoo	0
Indexed pages on MSN	1
WebSite / Domain Title - Description - Keywords
Title	« RhapsodiXX.net » The KuroNeko's virtual lair
Description	learn and get so much information, computer/information technology guide&tips, and story from me here :)
Keywords	panji gautama, panji, gautama, rhapsodixx, rhapsody, panji gautama personal site, panji gautama website, situs panji gautama

http://komporat.co.cc/

Basic WebSite / Domain Info
Page Loading Time	1.42109417915 seconds
Whois Info	Domain is not supported. Click to show/hide more whois info Error in Whois query.
Googlebot Last Access	4 Oct 2008 10:37:14 GMT
MSNbot Last Access	N/A
Technorati Last Update	N/A
WebSite / Domain Ranking
Google PageRank (without www)	0 (Valid)
Google PageRank (with www)	0 (Valid)
Alexa Traffic Rank	413 [Graph]
Technorati (Blog) Rank	0 (Auth.: 0)
Quantcast Rank	N/A
Compete Rank	N/A
Search Engines Result Position
Keywords	komporat.co.cc
Google SERP Position	1
Yahoo SERP Position	Not in top 100
MSN SERP Position	Not in top 100
Major Internet Directories
Listed in DMOZ Directory?	Not listed
Listed in Google Directory?	Not listed
Listed in Yahoo Directory?	Not listed
Exist in Wikipedia(EN)?	Not listed
Archive.org (WayBackMachine)?	0
Back Links and Outbound Links
Google Backlinks	0
Yahoo Inlinks	2
AllTheWeb Links	0
Altavista Links	0
Backlinks from .gov site	0
Backlinks from .edu site	0
Outbound Links	0 <-- Click to show/hide the URLs
Internal Links	1 <-- Click to show/hide the URLs http://komporat.co.cc/
Indexed on Major Search Engines
Indexed pages on Google	45
Indexed pages on Yahoo	0
Indexed pages on MSN	0
WebSite / Domain Title - Description - Keywords
Title	KomporaT
Description
Keywords

CCleaner Pembersih komputer

2008-10-09T12:33:00.003+07:00

semakin lama kita rasakan komputer kita hari semakin lambat hal ini dikarenakan kita sering sekali menginstall berbagai software, apabila anda bosan dengan keadaan itu maka ada solusinya dengan menginstall ccleaner,aplikasi ini seperti tune up utilities namun dengan interface yang sederhana sehinggga memudahkan dalam membersihkan komputer, fitur-fitur yang di punyai software ini adalah registry cleaner,dan uninstall program, aplikasi ini anda perlukan bila performa komputer merupakan hal yang terpenting bagi anda. nih saya kasih liat screenshotnya

download disini

Google sketch up Membuat model 3d menjadi mudah

2008-10-09T12:26:00.003+07:00

Google memang hebat setelah terkenal melalui serch engine yang sangat handal ternyata google juga membuat software software yang handal pula di antaranya goole sketchup, Goole sketchup merupakan software buatan goole yang mampu memudahkan anda dalam membuat model 3 dimensi.denan aplikasi ini kita dapat membuat berbagai macam model 3 dimensi seperti alat transportasi, bangunan, dan masih banyak lagi,aplikasi ini sangat mudah sekali di jalan kan bahkan untuk pemula sekalipun dibandingkan dengan aplikasi lain seperti maya maupun 3dsmax, walaupun hasilnya akan sedikit berkurang tetapi bagi yang ingin coba coba dalam membuat model 3d dan masih belajar saya sarankan anda mendownload software ini,aplikasi ini bisa berjalan di win vista dan xp
saya kasih nih screenshotnya

gimana kerenkan hehehe,dan lebih ajaibnya lagi aplikasi ini bersifat freeware alias gratis ayo cepat download nih, downloadnya disini

Rumus Persegi

2008-09-14T09:48:00.004+07:00

Pascal Source code
cara kerja nya adalah apabila kita ditanya pilih rumus yang mana lalu pilih 1-4 lalu kita di minta memasukan angka untuk melihat jawabannya dibawah ini merupakan source codenya:

copy kan di noprogram rumus;
uses crt;
label
stop,jump;
var
pjg, lbr, als, tg, NomorMenu:Integer;
l_persegi, l_segitiga, kll_segitiga, kll_persegi:integer;

begin
repeat
stop:
textbackground(5);
clrscr;
writeln('===========================================================');
writeln('= pilihrumus =');
writeln('= 1. Luas Persegi panjang =');
writeln('= 2. Luas Segitiga =');
writeln('= 3. keliling persegi panjang =');
writeln('= 4. exit =');
writeln('===========================================================');

write('Masukan Nomor Pilihan Anda (1/2/3/4): ');
readln(NomorMenu);
case NomorMenu of
1: begin
writeln('rumus luas persegi ');
write('masukan panjang persegi: '); readln(pjg);
write('Masukan Lebar Persegi: '); readln(lbr);
l_persegi:= pjg*lbr;
writeln('luas persegi adalah ',l_persegi);
readln;
end;
2: begin
writeln('rumus luas segitiga');
write('masukan alas segitiga: '); readln(als);
write('masukan tinggi segitiga: '); readln(tg);
l_segitiga:= als*tg div 2;
writeln('luas segitiga adalah ',l_segitiga);
readln;
end;
3: begin
writeln('rumus kll persegi');
write('masukan panjang persegi: '); readln(pjg);
write('Masukan Lebar Persegi: '); readln(lbr);
kll_persegi:=2*(pjg+lbr);
writeln('jadi keliling persegi adalah ',kll_persegi);
readln;
end;
4: begin
exit;
end;
end;
goto stop;
until NomorMenu=4;

end.
tepad lalu simpan dengan extension .pas lalu compilerlah menggunakan fpc

Membuat Kamus Memakai database di freepascal

2008-09-09T16:20:00.003+07:00

Pada Penasaran kan gimana caranya buat bikin kamus bahasa inggris-indonesia ataupun sebaliknya.gampang-gampang susah. pertama tama sediakan software yang di butuhkan yaitu mysql sebagai software database, freepascal sebagai compiler bahasa pascal dan notepad untuk menulis sintak kodenya.kalau belum menginstall mysql instal dulu anda bisa menginstal mysql satuan ataupun yang sudah otomatis yaitu menggunakan xampp, saya sih menyarankan mengunakan xampp karena bisa dipakai untuk membuat website php dan mysql tidak perlu di utak atik lagi, ya udah deh jadi lama,

kalau udah selesai nge instal nya maka login dulu dengan mengklik star->run, setelah itu kita ketikan cmd lalu tekan ok. lalu kita harus masuk ke direktori mysql berada, bila kita menginstal xamp maka direktorinya di c:\xampp\mysql\bin kalau nginstal gak pake xampp direktorinya di c:\mysql\bin masuk deh ke direktorinya dengan mengetik cd \ lalu tekan enter lalu ketikan cd xampp lalu tekan enter begitu seterusnya hingga ke direktori bin lalu kita ketikan di direktori bin mysql -u root.

untuk membuat database gunakan perintah create database nama_file; setelah membuat database kita harus memilih database yang telah kita buat dengan mengklik use nama_database; lalu kita harus membuat tabelnya dengan cara create table data (indonesia varchar(50), inggris varchar(50));

urusan database sudah selesai maka tulis di notepad sebagai berikut:
Program KamusMysql;
uses crt,mysql4;
var
sock,inisial:PMYSQL;
qmysql:TMYSQL;
recbuf: PMYSQL_RES;
rowbuf:TMYSQL_ROW;
query:PChar;
state,jml:integer;
inggris,indonesia,dummy:string;
lagi,ubah,hapus,pil:char;
procedure tulis(x,y:integer;pesan:string;warna:byte);
begin
textcolor(white);
gotoxy(x,y);write(pesan);
textcolor(white);
end;
Procedure lihat1;
Begin
lagi:='Y';
inisial:=mysql_init(PMySQL(@qmysql));
sock:=mysql_real_connect(inisial,nil,'root','','kamus',0,nil,0);

if sock=nil then
begin
writeln('Connection Error !');
writeln(mysql_error(@qmysql));
end;

while upcase(lagi) = 'Y' do
begin
clrscr;
writeln('Kamus Indonesia-Inggris');
writeln('-----------------------');
write ('Indonesia = ');readln(indonesia);
writeln;
dummy:='select * from data where indonesia='''+indonesia+'''';
query:=@dummy[1];
state:=mysql_query(sock,query);

if (state <>
begin
writeln ('Query Salah....!');
writeln (mysql_error(sock));
end;

recbuf := mysql_store_result(sock);
rowbuf := mysql_fetch_row(recbuf);

if rowbuf = nil then
writeln('Data tidak ditemukan....')
else
while (rowbuf <> nil) do
begin
writeln('Inggris = ',rowbuf[1]);
rowbuf := mysql_fetch_row(recbuf);
end;

writeln;
write('Lihat lagi [Y/T]?');readln(lagi);
writeln;
end;

mysql_free_result (recbuf);
mysql_close(sock);
end;

Procedure tambah;
begin
lagi:='Y';
mysql_init(PMySQL(@qmysql));
sock:=mysql_real_connect(PMySQL(@qmysql),nil,'root','','kamus',0,nil,0);

if sock=nil then
begin
writeln('Koneksi Error !');
writeln(mysql_error(@qmysql));
end;

while upcase(lagi) = 'Y' do
begin
clrscr;
writeln('Tambah Data');
writeln('-----------------');
write('Masukkan Kata indonesia : ');readln(indonesia);
dummy:='select * from data where indonesia='''+indonesia+'''';
query:=@dummy[1];
state:=mysql_query(sock,query);
recbuf:=mysql_store_result(sock);

if RecBuf = Nil then
begin
writeln ('Hasil query nil.');
mysql_close(sock);
end;

jml:=mysql_num_rows(recbuf);
if (jml > 0) then
writeln('Data tersebut sudah ada')
else
begin
write('Masukkan Kata Inggris : ');readln(Inggris);
writeln;

if (length(inggris)=0) then
writeln ('data yang kosong, penambahan batal di lakukan.')
else
begin
dummy:='insert into data (indonesia,inggris) values ('''+indonesia+''','''+inggris+''')';
query:=@dummy[1];
state:=mysql_query(sock,query);

if (state <>
begin
writeln ('Query Salah.');
writeln (mysql_error(sock));
end;

tulis(0,10,'Penambahan berhasil !!',red)
end;
end;

writeln;
write('Tambah lagi [Y/T]? ');readln(lagi);
end;

mysql_free_result (recbuf);
mysql_close(sock);
end;
Procedure lihat2;
Begin
lagi:='Y';
inisial:=mysql_init(PMySQL(@qmysql));
sock:=mysql_real_connect(inisial,nil,'root','','kamus',0,nil,0);

if sock=nil then
begin
writeln('Connection Error !');
writeln(mysql_error(@qmysql));
end;

while upcase(lagi) = 'Y' do
begin
clrscr;
writeln('Kamus Inggris-Indonesia');
writeln('-----------------------');
write ('Inggris = ');readln(Inggris);
writeln;
dummy:='select*from data where inggris='''+inggris+'''';
query:=@dummy[1];
state:=mysql_query(sock,query);

if (state <>
begin
writeln ('Query Salah....!');
writeln (mysql_error(sock));
end;

recbuf := mysql_store_result(sock);
rowbuf := mysql_fetch_row(recbuf);

if rowbuf = nil then
writeln('Data tidak ditemukan....')
else

begin
writeln('Indonesia= ',rowbuf[0]);
end;
writeln;
write('Lihat data lagi [Y/T]?');readln(lagi);
writeln;
end;

mysql_free_result (recbuf);
mysql_close(sock);
end;
begin
repeat
clrscr;
lagi:=' ';ubah:=' ';hapus:=' ';
tulis(23,10,'M E N U',128);
tulis(15,11,'------------------------',blue);
tulis(20,12,'1. Indonesia-Inggris',red);
tulis(20,13,'2. Inggris-Indonesia',red);
tulis(20,14,'3. Tambah Kata Indonesia-Inggris',red);
tulis(20,15,'4. Keluar',red);
tulis(18,16,'Pilihan [1 - 4] : ',blue);readln(pil);

case pil of
'1' : lihat1;
'2' : lihat2;
'3' : tambah;
end;

until pil = '4';
end.

simpan dengan exstensi .pas
terus compile pake freepascal
www.go-pai.blogspot.com
di kutip dari berbagai sumber:
omahku.com

Download Software Freeware

2008-08-31T09:47:00.003+07:00

Pcmav 1.6

Tidak ada antivirus lain yang mampu mengatasi dengan tuntas virus
komputer, baik lokal maupun asing, yang banyak menyebar di Indonesia
sebaik PCMAV.

Umumnya antivirus yang ada hanya mampu mengenali dan menghapus file
yang dideteksi bervirus. PCMAV menyempurnakannya dengan keakuratan
pendeteksian yang lebih presisi serta kemampuan menyelamatkan file,
dokumen dan sistem yang menjadi sasaran serangan virus hingga kembali
pulih 100%.

Dengan PCMAV, Anda akan mendapatkan antivirus yang bukan hanya
sekadar mendeteksi namun daya basminya yang tangguh mampu memburu
99.9% virus yang dikenal sampai ke "akar-akarnya" tanpa menimbulkan
kerusakan pada file maupun sistem yang terinfeksi.

Perpaduan keunikan fitur serta keakuratan dan kepedulian terhadap
keselamatan sistem, file dan dokumen Anda memberi kesempurnaan sebuah
antivirus pada PCMAV.

Di setiap edisi Majalah PC Media terbaru yang terbit tiap bulannya,
kami senantiasa menyempurnakan PCMAV ini dengan kemampuan dan fitur
baru demi menjadikan PCMAV sebagai antivirus yang sesuai kebutuhan
Anda, pembaca setia Majalah PC Media. Dan menjadi kebanggaan Indonesia.
VIRUS BARU DI PCMAV 1.6 (79 Virus)
==================================
Adsw
Adsw.txt
Aniee-TunggulKawung.vbs.E
Aniee-TunggulKawung.vbs.F
Aniee.L
Apong
Apong-Valeria
Autoit.BI
Autoit.BJ
Autoit.BK
Autoruner.C
Autoruner.C.inf
Babel
Bloon.vbs
Boenk.B
Bone
Bone.txt
Cyrax-Tutor.B
Formalin
FourTwoOne.dll
FourTwoOne.htm
FourTwoOne.inf
FourTwoOne.vbs
FourTwoOne.vbs.A
FourTwoOne.vbs.B
Gen.Rieysha
Gen.Rieysha.zip
Harry
Harry.html
Harry.ini
Himafi
Jablunt
Jablunt.inf
Kowai
Kowai.inf
Nina
Nina.txt
PicCindy.C
Purwo
QuanTrong
QuanTrong.inf
Red.vbs
Red.vbs.inf
Rieysha-Desa
Rieysha-Desa.htm
Rieysha-Desa.inf.A
Rieysha-Desa.inf.B
Rieysha-Hack.vbs
Rieysha-Hack.vbs.inf
Rieysha-Hack.vbs.txt
RontokBrow.H
RontokBrow.H.exe
RontokBrow.H.htt
RontokBrow.H.inf
RontokBrow.H.ini
RontokBrow.I
RontokBrow.I.exe
RontokBrow.I.htt
RontokBrow.I.inf
RontokBrow.I.txt.A
RontokBrow.I.txt.B
ServMouse.inf
SmsLucu
SmsLucu.html
SmsLucu.htt
SmsLucu.inf
SmsLucu.ini
SuppMB
TambalBand
TambalBand.txt
TikusLupus.A
TikusLupus.B
UdinLucu
ValoAchoto
ValoAchoto.bat.A
ValoAchoto.bat.B
Virgear
Virgear.inf
WSar.C

Alquran Di Ms Word
aplikasi ini adalah untuk menjalankan alquran di ms word

PhotoFilter
Aplikasi yang sangat bagus untuk meng edit edit photo

Obladi-Oblada

2008-08-30T13:09:00.003+07:00

Desmond had a barrow in the market place,
Molly is the singer in a band.
Desmond says to Molly, girl I like your face
and Molly says this as she takes him by the hand.

{start_of_chorus}
Ob-la-di, ob-la-da, life goes on bra.
La la how the life goes on. (repeat)
{end_of_chorus}

Desmond takes a trolley to the jeweller's store,
buys a twenty carat golden ring.
Takes it back to Molly, waiting at the door
and as he gives it to her she begins to sing.

{c: chorus}

[NC]In a couple of years they have built a home sweet home
[NC]with a couple of kids running in the yard
of Desmond and Molly Jones.

Happy ever after in the market place,
Desmond lets the children lend a ]hand.
Molly stays at home and does her pretty face
and in the evening she still sings it with the band.

Hey Jude

2008-08-30T12:59:00.003+07:00

Hey Jude dont make it bad
take a sad song and make it better
Remember to let her into your heart
and then you can start to make it better

Hey Jude dont be afraid
you were made to go out and get her
The minute you let her under your skin
then you begin to make it better

And anytime you feel the pain hey jude refrain
dont carry the world upon your shoulders
For well you know that its a fool who plays it cool
by making his world a little colder
Da da da da da Da da da da

Hey Jude dont let me down
You have found her now go and get her
Remember to let her into you heart
then you can start to make it better

So let it out and let it in hey Jude begin
your waiting for someone to perform with
And dont you know that its just you hey jude you'll do
The movement you need is on your shoulders
Da da da da da da da da da

Hey Jude dont make it bad
take a sad song and make it better
Remember to let her under your skin
and then you'll begin to make it better

Na na na na na na na
Na na na na
Hey Jude (Repeat and fade)

Yellow Submarine

2008-08-28T20:08:00.000+07:00

In the Town where i was born
Lived a man who sailed to sea
And he told us of his life
In the land of submarines

So We sailed up to the sun
Till we found the sea of green
And we lived beneath the waves
In our yellow submarines

We All Live in the yellow submarine
The Yellow submarine
The Yellow submarine

Elenor Rigby

2008-08-28T20:07:00.000+07:00

Ah, look at all the lonely people!
Ah, look at all the lonely people!

Eleanor Rigby
Picks up the rice in a church where a wedding has been
Lives in a dream
Waits at the window
Wearing the face that she keeps in a jar by the door
Who is it for?

All the lonely people
Where do they all come from?
All the lonely people
Where do they all belong?

Father McKenzie
Writing the words of a sermon that no one will hear
No one comes near
Look at him working
Darning his socks in the night when there's nobody there
What does he care?

All the lonely people
Where do they all come from?
All the lonely people,
Where do they all belong?

Eleanor Rigby,
Died in the church and was buried along with her name,
Nobody came.
Father McKenzie,
Wiping the dirt from his hands as he walks from the grave,
No one was saved.

All the lonely people,
Where do they all come from?
All the lonely people,
Where do they all belong?
from ultimateguitar

Don't Let me down

2008-08-28T20:06:00.000+07:00

Don't Let me down
Don't Let me down
Don't Let me down
Don't let me down

Nobody ever loved me like she does oo she does yes she
does And if somebody ever loved me like she do me oo she

chorus
And from the first time that she really done me oo she done me, she done me good.I guess nobody ever really done me, oo she done me, she does me good

bridge
I'm in love for the first time Don't you know it's gonna last
It's a love that lasts forever, It's a love that had no past

And I love her

2008-08-28T20:05:00.000+07:00

I give her all my love
That's all I do
And if you saw my love
You'd love her too

She gives me everything
And tenderly
The kiss my lover brings
She brings to me
And I love her

A love like ours, could never die
As long as I have you near me

Bright are the stars that shine
Dark is the sky
I know this love of mine
Will never die
And I love her.

Seting Axis

2008-08-28T19:37:00.008+07:00

Gprs
APN:axis
pasword:123456
username:axis
homepage:http//wap.axisworld.co.id
Ip adress:10.8.3.8
port:8080

Mms
Connection Name : AXISmms
Data Bearer : GPRS atau PS
Access Point Name (APN) : AXISmms
Username : AXIS
Prompt Password : No
Password : 123456
Authentication : Normal
Gateway/Proxy IP Address : 10.8.3.8
Gateway/Proxy Port : 9201 atau 8080
Homepage / MMS Server : http://mmsc.AXIS
Connection Security : Off
Session Mode : Permanent

Source code pascal kamus

2008-08-28T19:27:00.003+07:00

program kamus;
uses crt;
const
appname='kamus';
var
kata : string;
begin
repeat;
textbackground(10);
textcolor(5);
clrscr;
writeln('======================================================');
writeln('= Kamus hewan Sederhana =');
writeln('======================================================');
write ('masukan kata: '); readln (kata);
if kata='kucing' then
writeln(' cat')
else
if kata='anjing' then
writeln(' dog')
else
if kata='kuda' then
writeln(' horse')
else
if kata='kambing' then
writeln(' goat')
else
if kata='ayam' then
writeln(' chiken')
else
if kata='babi' then
writeln(' pig')
else
if kata='sapi' then
writeln(' cow')
else
if kata='ikan' then
writeln(' fish')
else
if kata='bebek' then
writeln(' duck')
else
if kata='tikus' then
writeln(' mouse')
else
if kata='burung' then
writeln(' bird')
else
if kata='harimau' then
writeln(' tiger')
else
if kata='kura-kura' then
writeln(' turtle')
else
if kata='semut' then
writeln(' ant')
else
if kata='gajah' then
writeln(' elephant')
else
if kata='katak' then
writeln(' frog')
else
if kata='kupu-kupu' then
writeln(' buterfly')
else
if kata='jerapah' then
writeln(' giraffe')
else
if kata='kelelawar' then
writeln(' bat')
else
if kata='jangkrik' then
writeln(' handspring')
else
if kata='anoa' then
writeln(' dwarf buffalo')
else
if kata='beruang' then
writeln(' bear')
else
if kata='monyet' then
writeln(' monkey')
else
if kata='' then
writeln(' bat')
else
if kata='kecoa' then
writeln(' coakroach')
else
if kata='rayap' then
writeln(' termit')
else
if kata='kerbau' then
writeln(' buffalo')
else
if kata='ular' then
writeln(' snake')
else
if kata='kumbang' then
writeln(' beetle')
else
if kata='lebah' then
writeln(' bee')
else
if kata='laba-laba' then
writeln(' spider')
else
if kata='tupai' then
writeln(' squirrel')
else
if kata='belatung' then
writeln(' maggot')
else
if kata='angsa' then
writeln(' goose')
else
if kata='rusa' then
writeln(' deer')
else
if kata='banteng' then
writeln(' bull')
else
if kata='buaya' then
writeln(' crocodile')
else
if kata='landak' then
writeln(' porcupine')
else
if kata='kadal' then
writeln(' lizard')
else
if kata='lintah' then
writeln(' leech')
else
if kata='domba' then
writeln(' sheep')
else
if kata='cacing' then
writeln(' worm')

else
if kata='kelabang' then
writeln(' centipede')

else
if kata='singa' then
writeln(' lion'); readln;

until false;
end.

Fatwa Merokok haram menurut mui

2008-08-26T20:29:00.001+07:00

Mui(majelis ulama indonesia) mau ngeluarin fatwa yang mau ngeharamin namanya ngerokok, gue sih setuju setuju aja kalau rokok di haramin walaupun menurut perokok fatwa ini memberatkan alasan gue nih ngedukung fatwa ini karena rokok itu walaupun menghasilkan devisa negara tapi bahaya subhanallah nauzubilah kanker ganguan kehamilan paru paru rusak dan lain lain pokoknya ga ada manfaatnya, no smoking

Mencari Uang di internet

2008-08-26T15:19:00.002+07:00

1. Dengan Membaca Email ( The Take Internet Back)

* Register klik disini
* Terus reply link aktivasinya dari email anda yang di daftarkan
* login di the take internet back buka inbok kalo ada email yang masuk trus konfirmasi di link yang paling bawah

Situs yang akan mengirimkan email iklan ini cukup sederhana.Kategori email yang mereka kirimkan banyak, seperti: kesehatan, olahraga, bisnis, games, dan lain lain. Daftarnya gratis dan langsung dapet $10 di account anda. Pembayaran bisa lewat e-gold, cek atau paypal.Kerja Anda hanya membuka email dan klik link yang mereka minta untuk konfirmasi (link yang paling bawah).

Batas minimum pengambilan adalah $20 dan mempunyai 2 orang referal/kerabat.Perhitungan nya adalah dengan cara point, point nya mereka yang menentukan yang jelas 1 email 1 point.
2. Dengan Mengklik Iklan
Bikin Accaount Paypal

* Klik sign up
* Choose account type: pilih premier account
* Enter credit crad number: klik cancel aja

Bikin Account Adbux

* Register
* Selesai regristrasi klik browse ads dan klik iklan iklannya

Klik10 iklan perhari=$0,10
10 referal klik 10 iklan=$1,00
Dalam seminggu menghasilkan=$7,70
Dalam sebulan menghasilkan=30,80

Ada juga situs lain yang seperti adbux yaitu 10bux Seven Bux dan masih banyak lagi tergantung kemauan kita googling di google,Nah duit yang terkumpul bisa ditransfer minimal $10 ke paypal. Duit yang terkumpul di paypal bisa kita belanjain di ebay dan lain-lain situs yang ada hubungan nya sama paypal.

Download Java Game

2008-08-25T15:46:00.002+07:00

Elu semua pasti pada suka yang namanya download game java, apalagi kalau gamenya itu bagus udah,bisa abis tuh batre dimainin terus.Biasanya kalau download game gitu kita bayarkan misalnya di iguana, taukan ! padahal banyak loh situs situs yang menyediakan download game gratis walaupun. ilegal,pada mau tau kan tempat download nya nih gua kasih tau linknya, kalau yang udah tau ya maaf

1. www.getjar.com
Nah pasti banyak yang tau nih sama situs ini kita bisa download aplikasi keren disini seperti mp3 player,browser,chating, dan aplikasi lain sayangnya nih situs gamenya cupu-cupu .
2. www.waptrik.com
Sama kaya mobango disitus ini banyak game-game keren tapi cuma sedikit lebih banyak mobango tapi kita tidak perlu registrasi dulu, kita juga bisa download lagu indonesia dengan bitrate yang kecil yang otomatis size juga kecil yang berakibat suaranya kurang bagus.
3. www.gaju.mobi
sebenernya gaju sama aja kaya waptrik sih tapi gamenya lumayan banyak dan keren-keren, situs ini alternatif buat yang pengen download game.
4. www.zedge.net
Di situs ini kita bisa download javagame, wallpaper dan bisa diedit lagi dan banyak pula wallpapernya tinggal pilih kategorinya, ada juga tema buat hp,banyak deh pokoke gak nesel deh berkunjung ke situs ini tapi kita harus registrasi dulu baru boleh download sepuasnya.
5. www.im3super.wen.ru
Di situs ini kita bisa download aplikasi keren yang jarang di pake orang pokoke kunjungi aja walaupun situsnya sering ngedown.
6. www.mobile9.com
Ini juga situs buat download java game tapi gue jarang download di situs ini

Definisi berbagai istilah di internet

2008-08-25T15:36:00.002+07:00

1. Kegunaan WebBrowser

Web browser digunakan untuk memperoleh informasi dengan format
hypertext. Web browser akan mengirimkan request ke web server, dan
menampilkan hasilnya ke pengguna. Selain itu web browser juga dapat
mengirimkan form ke web server untuk diproses. Contoh dari web browser
adalah NCSA Mosaic, Netscape Navigator, MacWeb, IE, Opera, Conqueror
dll.

2. Faktor dalam memilih ISP yang terbaik, antara lain:
A. Metode Dalam Pelayanan internet, ada yang menggunakan
satelit,radio dan lain lain
B. Faktor Kecepatan Bandwith
C. Fasilitas Tambahan Misalnya email atau pun nama domain
D. Faktor Non teknis lainnya Misalnya jumlah pelanggannya
E. Harga Semakin murah semakin banyak yang berlangganan

3. Kegunaan Toolbar di Mozilla Firefox
Back: Kembali ke halaman sebelumnya
Foward: Maju Ke Halaman berikutnya
Reload: Mengulang Halaman Web atau merefrash
Stop: Untuk Menghentikan proses loading ke halaman web
Home: Kembali ke halaman awal

4. URL (Uniform Resource Locator) adalah suatu alamat yang dipakai
untuk menentukan
lokasi informasi pada Web server, karena alamat ini mengambil
informasi yang diminta
oleh browser
Hompage adalah halaman awal suatu website
jadi Url merupakan alamat untuk mengakses sebuah homepage website

Definisi 10 website menurut rivai

2008-08-25T15:32:00.002+07:00

1. Prambos Fm

Di dalam website ini terdafat info-info mengenai dunia keradioan dan berbagai macam berita musik seperti info tangga 40 lagu teratas, foto galery yang isinya foto-foto penyiar prambors, terdapat info mengenai event/acara yang akan dilangsungkan,daily program yang isinya tentang info-info acara di prambros, ada quiz,dan masih banyak lagi pokoknya berita tentang radio prambros

2. kamus.net

Kamus dot net merupakan website yang mempunyai fungsi sebagai kamus bahasa inggris-indonesia maupun sebaliknya

3. slta.net

Slta dot net berisi tentang segala hal yang berhubungan dengan dunia slta di situs ini terdapat aplikasi chating yang bisa digunakan untuk chating dan terdapat pula berbagai macam artikel teknologi belajar sampai manajemen siswa di situs ini ada pula forum-forum untuk saling berkomunikasi

4. ganeca-exact.com

Situs ini merupakan milik dari penerbit ganeca di dalam nya terdapat info info tentang buku yang mereka jual, terdapat pula artikel artikel tentang dunia pendidikan, sains dan teknologi, di situs ini kita bisa pula mendownload konten konten yang disediakan oleh ganeca

5. learnthenet.com

situs yang berbahasa inggris,francis, dan spanyol ini berisi berbagai macam kuis dan game yang bertujuan untuk tujuan pendidikan

6. ilmu.net

ilmu.net merupakan situs yang sudah banyak sekali iklannya dan artikel-artikel di dalamnya tidak ada

7. metrotvnews.com

situs ini milik dari stasiun tv yaitu metro tv yang isinya mengenai berita-berita terkini disediakan dengan cukup apik dan menarik sehingga pembaca menjadi betah membaca berita

8. e-dukasi.com
situs yang dulu mirip wikipedia dan sekarang harus punya id untuk memasukinya
9. http://www.geocities.com/kursus_gratis/

situs yang mengatakan pusatnya belajar friendster blog yang sebentar lagi mengeluarkan tutorialnya

10. http://www.languagetechnologies.com
isinya tentang sarana belajar bahasa inggris di internet,di situs ini ada pula download kamus

Membuat ShoutBox

2008-08-24T12:08:00.005+07:00

Daftar aja di Oggix.com banyak tuh widget widget yang bagus dari mulai soutbox, pagerank, counter banyak deh coba aja daftar di sini
isi dah data datanya
login ke oggix nya
atur aja bisa shoutbox apa ke trus tinggal copy aja code nya di bloogger

gampangkan

Membuat kuis dengan freepascal

2008-07-19T14:36:00.000+07:00

program kuis;
uses crt;
const
skor =0;
var
i:integer;
skor_to:integer;
skor1,skor2,skor3,skor4,skor5,skor6,skor7,skor8,skor9,skor10:integer;
nama:string;
soal1,soal2,soal3,soal4,soal5,soal6,soal7,soal8,soal9,soal10:string;
procedure pertanyaan1;
begin
writeln('pertanyaan pertama');
writeln;
write('siapa nama presiden indonesia pertama:'); read(soal1); readln;
if soal1='soekarno' then
writeln('anda betul')
else
writeln('anda salah');
if soal1='soekarno' then
skor1:=skor+10;
if soal1<> 'soekarno' then
skor1:=skor+0;

readln;
readln;
end;
procedure pertanyaan2;
begin
writeln('pertanyaan kedua');
writeln;
write('siapa runerup piala dunia 1998:'); read(soal2); readln;
if soal2='brazil' then
writeln('anda betul')
else
writeln('anda salah');
if soal2='brazil' then
skor2:=skor+10;
if soal2<> 'brazil' then
skor2:=skor+0;
readln;
end;
procedure pertanyaan3;
begin
writeln('pertanyaan ketiga');
writeln;
write('siapa topskor piala dunia 2002:'); read(soal3); readln;
if soal3='ronaldo' then
writeln('anda betul')
else
writeln('anda salah');
if soal3='ronaldo' then
skor3:=skor+10;
if soal3<> 'ronaldo' then
skor3:=skor+0;
readln;
end;
procedure pertanyaan4;
begin
writeln('pertanyaan keempat');
writeln;
write('siapa nama wakil gubernur jabar:'); read(soal4); readln;
if soal4='dede yusuf' then
writeln('anda betul')
else
writeln('anda salah');
if soal4='dede yusuf' then
skor4:=skor+10;
if soal4<> 'dede yusuf' then
skor4:=skor+0;
readln;
end;
procedure pertanyaan5;
begin
writeln('pertanyaan kelima');
writeln;
write('siapa penemu lampu bohlam:'); read(soal5); readln;
if soal5='thomas alfa edison' then
writeln('anda betul')
else
writeln('anda salah');
if soal5='thomas alfa edison' then
skor5:=skor+10;
if soal5<> 'thomas alfa edison' then
skor5:=skor+0;
readln;
end;
procedure pertanyaan6;
begin
writeln('pertanyaan keenam');
writeln;
write('10*9*8*7*6*5*0*3*2*1:'); read(soal6); readln;
if soal6='0' then
writeln('anda betul')
else
writeln('anda salah');
if soal6='0' then
skor6:=skor+10;
if soal6<> '0' then
skor6:=skor+0;
readln;
end;
procedure pertanyaan7;
begin
writeln('pertanyaan ketujuh');
writeln;
write('apa nama latin padi:'); read(soal7); readln;
if soal7='oryzae satyva' then
writeln('anda betul')
else
writeln('anda salah');
if soal7='oryzae satyva' then
skor7:=skor+10;
if soal7<> 'oryzae satyva' then
skor7:=skor+0;
readln;
end;
procedure pertanyaan8;
begin
writeln('pertanyaan kedelapan');
writeln;
write('bapak nya bapak kamu adalah:'); read(soal8); readln;
if soal8='kakek' then
writeln('betul')
else
writeln('anda salah');
if soal8='kakek' then
skor8:=skor+10;
if soal8<> 'kakek' then
skor8:=skor+0;
readln;
end;
procedure pertanyaan9;
begin
writeln('pertanyaan kesembilan');
writeln;
write('utut ardianto adalah atlet:'); read(soal9); readln;
if soal9='catur' then
writeln('anda betul')
else
writeln('anda salah');
if soal9='catur' then
skor9:=skor+10;
if soal9<> 'catur' then
skor9:=skor+0;
readln;
end;
procedure pertanyaan10;
begin
writeln('pertanyaan kesepuluh');
writeln;
write('siapakah vokali band slank:'); read(soal10); readln;
if soal10='kaka' then
writeln('anda betul')
else
writeln('anda salah');
if soal10='kaka' then
skor10:=skor+10;
if soal10<> 'kaka' then
skor10:=skor+0;
readln;
end;
begin
textbackground(5);
clrscr;
writeln('program kuis');
readln;
write('masukan nama:'); read(nama);
writeln;
readln;
writeln('halo ',nama,', tekan enter');
readln;
clrscr;
pertanyaan1;
clrscr;
pertanyaan2;
clrscr;
pertanyaan3;
clrscr;
pertanyaan4;
clrscr;
pertanyaan5;
clrscr;
pertanyaan6;
clrscr;
pertanyaan7;
clrscr;
pertanyaan8;
clrscr;
pertanyaan9;
clrscr;
pertanyaan10;
clrscr;
skor_to:=skor1+skor2+skor3+skor4+skor5+skor6+skor7+skor8+skor9+skor10;
writeln('skor ',nama,' adalah ',skor_to);
readln;
if skor_to>70 then writeln('kamu hebat')
else
writeln('kamu bodoh');
readln;
end.