Pascal Bilangan terbilang Langsung ke konten utama

Pascal Bilangan terbilang


To tmen2 ku,aku ingin berbagi pengetahuan pascal dengan kalian. Ini ada kode program pascal bilangan terbilang,yaitu dimana bilangan tersebut akan juga ditampilkan dalam bentuk huruf!



Pertama kita harus membuat deklarasi fungsi sendiri,yaitu dengan kata cadangan FUNCTION yang mengawali bagian deklarasi fungsi, diikuti oleh indentifier yang merupakan nama dari fungsinya dan secara optional dapat diikuti oleh kumpulan parameter, tipe dari fungsinya dan diakhiri dengan titik koma(;).





Function nilai (x: longint) : string;



Begin



If (x<12) then nilai : = ‘ ‘ + const [x]



Else If (x<20) then nilai : = nilai (x mod 10) + ‘belas’



else If (x<100) then nilai : = nilai (x div 10) + ‘puluh’ + nilai (x mod 10)



else if (x < 200) then nilai : = ‘seratus’ + (x-100)



else if (x < 1000) then nilai : = nilai (x div 100) + ‘ ratus ‘ + nilai (x mod 100)



else if (x < 2000) then nilai : = ‘seribu’ + nilai(x-1000)



else if (x < 1000000) then nilai : = nilai (x div 1000) + ‘ribu’ + nilai (x mod 1000)



else if (x < 1000000000 then nilai : = nilai (x div 1000000) + ‘ ratus ‘ + nilai (x mod 1000000)



end;





semoga kode di atas dapat berguna bagi kalian,selamat mencoba!kalo mau download kode pascalnya silahkan download disini




Komentar

Posting Komentar

Popular Posts

Membuat PSY di shell inject ala dopunk version

Assalamu’alaikum warahmatullahi wabarakatuh Mungkin kalian udah pada tau kan gmn caranya membuat psy di shell inject.. Ato jg masih pada banyakyg bingung gmn caranya buat psy di shell inject.. ^_^ Nah sebelum kita buat.apa sih psy itu??? Psy kalau menurutku sih yaitu sebuah software proxy di irc.jadi ip kita dig anti dengan ip shell or ip server yg kita punya.jadi bagi yg ke ban di dalnet ato di server manapun jadi tetep bias connect melalui psybnc. Banyak sekali keuntungan menggunakanpsybnc ini,yaitu ip kita di hide,terlindungi dari flooding,terus bias ngelog inbox atau private message ato lebih sering dikenal PV,dan bias jg melindungi nick kita dari drop services.jadi nick kita akan online terus menerus selama shell or server kita masih ada. Adapun langkah2 membuat psy ini adalah…… (ixixixixi kata2nya formil bnget -_-) Ok lanjut…. 1.siapkan shell u,inject ataupun tidak,halal ataupun haram,legal atau[pun illegal. (kalo boleh saran sih pake yg legal dan halal aja ya.. ^_^v) 2.setelah i...
Posting Komentar
Baca selengkapnya

Bikin Forum Pake Blogger/Blogspot

ni ada sedikit tutor gimana caranya membuat forum dari blogspot.mungkin selama ini kalian berpikir membuat forum sangatlah susah.nah sekarang ada fasilitas yg membuat kita lebih gampang berkreasi.contoh jadinya seperti ini nah untuk cara-caranya sperti dibawah ini : 1. kalian harus pnya blog. ato biar enak buat baru az lg ya. 2. kemudian buka http://n3.nabble.com/free-forum.html 3. kemudian kita tinggal next2 az 4. kalo udah selesai jgn lp register dulu ya biar bisa ngotrol forum kita 5. login ke blog kalian,masuk ke tata letak dan pilih edithtml 6. Kemudian Cari Code body 7. kembali ke forum tadi,kemudian copas Javascript Code forum tersebut. letaknya ada di embedding options 8. kemudian paste code javascript tsb di bawah code body 9. nah kemudian save,jika ada peringatan kalian jangan ragu ya untuk pilih hapus widget 10. selesai dah.kalian bisa liat hasil forum yg kalian buat thenk's semoga berguna
Posting Komentar
Baca selengkapnya

Build Serper IRC di php shell dengan Unreal

Build Serper IRC di php shell dengan Unreal Assalamu'alaikum War. Wab. hai semua dah lama nih g nulis2 tentang pengetahuan seputar komputer,dikarenakan sifat pemales nya kambuh ixixixixixi.... pada kesempatan kali ini,saya akan mencoba berbagi tentang gimana caranya membuat suatu server irc dengan unreal di php shell, atau dengan kata laen pada kesempatan kali ini saya akan mencoba berbagi tentang cara membuil serper tanpa shell berbasis interface(cuma berbasis text). jadi kita g usah susah2 lagi memake ssh,vps ato root.kita bisa pake phpshell di server/host/inject untuk membuat serper irc ndiri. nah untuk membuat serper irc di php shell dengan unreal langkah-langkahna sebagai berikut : 1. siapkan shell nya ya... oh ya g setiap shell bisa di buat server irc. nah untuk mengetahui gimana cara mengetahui shell yg mana yang bisa buat server irc dan tidak kita cek portnya dulu.apakah port server tsb refused ato time out. nah kalo refused itu berarti bisa di ...
Posting Komentar
Baca selengkapnya

cara install .tar.gz atau tar.bz2 di linux

linux berbeda dengan windows,yg mana kalau mau pasang program kita tinggal klik 2x az di windows. beda halnya di linux yg filena berekstensi .tar.gz atau .tar.bz2.untuk menginstal file ini kita harus mengekstrak file tsb dengan dua cara yaitu dengan klik kanan ekstrak here or dengan menggunakan perintah tar xvzf namafile.tar.gz di terminal. kemudian masuk ke direktori atau folder yg di ekstrak dengan cd folder tyempat di ekstrak kemudian ketikkan ./configure setelah lakukan kompilasi dengan perintah make Lalu install (sebagai root) su #make install
Posting Komentar
Baca selengkapnya

membuat Eggdrop yuk

assalamu'alaikum warahmatullahi wabarakatuh nahhh ketemu lagi ma orang oon.. ixixiixixixixi skrng ane coba mau menjabarkan gmn cara membuat bot eggdrop. tapi sebelumnya apa sih eggdrop itu?? egg drop adalah suatu robot irc yang di buat dari bahasa C,yang terdiri dari beberapa komponen tcl yang mempunyai banyak sekali Fungsi. eggdrop di buat pada tgl 1993 oleh robey pointer. membuat eggdrop ada dua cara. 1. membuat eggdrop dengan file eggyg udah terkompile 2. membuat eggdrop dengan menginstal dari awal. pada kesempatan kali ini saya akan mencoba menguraikan cara membuat eggdrop yang praktis langkah-langkahnya : 1. siapkan shell inject kalian.... yang halal aja ya ^_^v 2. wget file eggdari mana saja.kalo mau dari file egg yg udah ku edit silahkan aja,jadi tinggal ketik aja wget http://osc22ms2-cyberoffice.1fonet.fr/_notes/Activate/doc.tar.gz wget http://osc22ms2-cyberoffice.1fonet.fr/_notes/Activate/filesys.tar.gz wget http://osc22ms2-cyberoffice.1fonet.fr/_notes/Activate/httpd.tar.g...
Posting Komentar
Baca selengkapnya