Just Another weBlog

2009-09-01T19:43:00.000-07:00

Javascript untuk mengedit halaman web..
ini script untuk offline mode,, jadi tidak berpengaruh ke database web yang edit..

javascript: document.body.contentEditable = 'true'; document.designMode = 'pada'; void 0

Contoh Lisp coding (Terbesar dari 49 bilangan)

2009-03-13T09:45:00.000-07:00

Algoritma
-------------------------------------------------------------------------------------
JUDUL : BILANGAN TERBESAR DARI 49 BILANGAN

DEFINISI DAN SPESIFIKASI :
big : 49 bilangan integer
{big (a b c d e f g h i j a1 b1 c1 d1 e1 f1 g1 h1 i1 j1 a2 b2 c2 d2 e2 f2 g2 h2 i2 j2
a3 b3 c3 d3 e3 f3 g3 h3 i3 j3 k l m n o p q r s) menghasilkan maksimum dari 49 bilangan}

REALISASI :
let ((big (max a b c d e f g h i j a1 b1 c1 d1 e1 f1 g1 h1 i1 j1 a2 b2 c2 d2 e2 f2 g2 h2 i2 j2
a3 b3 c3 d3 e3 f3 g3 h3 i3 j3 k l m n o p q r s)))

APLIKASI :
TERBESAR (12 12 3 4 2 6 8 3 2 6 3 5 7 3 5 2 5 7 3 3 6 8 0 45 3 2 5 7 4 -2 4 6 2 4 6 3 3 5 7 8
3 2 6 8 4 99 77 34 43)
-------------------------------------------------------------------------------------

Coding
-------------------------------------------------------------------------------------

(defun terbesar (a b c d e f g h i j
a1 b1 c1 d1 e1 f1 g1 h1 i1 j1
a2 b2 c2 d2 e2 f2 g2 h2 i2 j2
a3 b3 c3 d3 e3 f3 g3 h3 i3 j3
k l m n o p q r s)
(let ((big (max a b c d e f g h i j
a1 b1 c1 d1 e1 f1 g1 h1 i1 j1
a2 b2 c2 d2 e2 f2 g2 h2 i2 j2
a3 b3 c3 d3 e3 f3 g3 h3 i3 j3
k l m n o p q r s)))
(format t "~A ~A" big big)))
-------------------------------------------------------------------------------------

Just one touch!!
dengan satu fungsi bisa menemukan bilangan terbesar dari 49 bilangan..
cara yang sangat simple..
mungkin masih ada yang lebih simple atau lebih ribet lagi..
cara lain untuk membuat max49 adalah dengan cara menentukan terbesar dari 2 bilangan baru kemudian empat bilangan dan seterusnya..
cukup panjang tapi lebih bagus dalam hal pembelajaran..

Contoh Lisp coding (menentukan bidang)

2009-03-13T09:39:00.000-07:00

Algoritma
-------------------------------------------------------------------------------------
JUDUL : MENENTUKAN BENTUK BIDANG

DEFINISI DAN SPESIFIKASI :
r1 : integer
{r1 menampung nilai dari rusuk pertama}
r2 : integer
{r2 menampung nilai dari rusuk kedua}
r3 : integer
{r3 menampung nilai dari rusuk ketiga}

REALISASI :
if r1 number and r2 number and r3 number then ()
else (bidang)
{(bidang) untuk kembali input rusuk}
if r1=0 or r2=0 then (bidang)
else ()
depend on (r1=r2 and r3=0) : "segi empat"
((r1 > r2 or r2 > r1) and r3=0) : "bujur sangkar"
(r1=r2 and r2=r3) : "kubus"
(r1>r2 or r2>r1 or r3>r1 or r3>r2) and r3>0 : "balok"

APLIKASI :
BIDANG()
-------------------------------------------------------------------------------------

Coding
-------------------------------------------------------------------------------------

(defun bidang ()
(format t "~%PROGRAM UNTUK MENENTUKAN BENTUK~%")
(FORMAT T "INPUT HARUS BERUPA ANGKA~%")
(format t "~%~%Masukkan Panjang Rusuk 1 : ")
(let ((r1 (read)))
(format t "Masukkan Panjang Rusuk 2 : ")
(let ((r2 (read)))
(format t "RUSUK 3 HANYA UNTUK BENDA 3 DIMENSI (KUBUS ATAU BALOK)
ISI DENGAN 0 UNTUK BENDA 2 DIMENSI~%")
(format t "Masukkan Panjang Rusuk 3 : ")
(let ((r3 (read)))
(format t "~%Rusuk 1 = ~A~%Rusuk 2 = ~A~%Rusuk 3 = ~A~%" r1 r2 r3)
(if (and (numberp r1) (numberp r2) (numberp r3))
()
(bidang))
(if (or (<= r1 0) (<= r2 0))
(bidang)
())
(cond ((and (= r1 r2) (= r3 0)) (format t "~%SEGI EMPAT"))
((and (or (> r1 r2) (> r2 r1)) (= r3 0)) (format t "~%BUJUR SANGKAR"))
((and (= r1 r2) (= r3 r2)) (format t "~%KUBUS"))
((and (or (> r1 r2) (> r2 r1) (> r3 r1) (> r3 r2)) (> r3 0) ) (format t "~%BALOK"))
)))))
-------------------------------------------------------------------------------------

Coding sederhana yang cuma melibatkan kondisi,, if else,, dan cond..
bisa di buat dengan looping juga tapi lebih praktis dengan kondisi..

Contoh Lisp coding (x pangkat 9012)

2009-03-13T09:33:00.000-07:00

Algoritma
-------------------------------------------------------------------------------------
JUDUL : X PANGKAT 9012

DEFINISI DAN SPESIFIKASI :
x10 : integer
{x10 untuk menentukan x pangkat 10}
x100 : integer
{x100 untuk menentukan x pangkat 100 yang di dapat dari perkalian 10 kali x10}
x1000 : integer
{x1000 untuk menentukan x pangkat 1000 yang di dapat dari perkalian 10 kali x100}
x9012 : integer
{x9012 untuk menentukan x pangkat 9012 yang di dapat dari perkalian 9 kali x1000 dengan x10 dan x x}

REALISASI :
x10 (x) : x*x*x*x*x*x*x*x*x*x
x100 (x) : x10*x10*x10*x10*x10*x10*x10*x10*x10*x10
x1000 (x) : x100*x100*x100*x100*x100*x100*x100*x100*x100*x100
x9012 (x) : x1000*x1000*x1000*x1000*x1000*x1000*x1000*x1000*x1000*x10*x*x

APLIKASI :
=> PANGKAT (2)
=> PANGKAT (3)
-------------------------------------------------------------------------------------

Coding
-------------------------------------------------------------------------------------

(defun pangkat (x)
(setf x10(* x x x x x x x x x x))
; x10 adalah x pangkat 10
(setf x100 (* x10 x10 x10 x10 x10 x10 x10 x10 x10 x10))
; x100 adalah x pangkat seratus atau samadengan x pangkat 10 di kalikan dengan x pangkat 10 sepuluh kali
(setf x1000 (* x100 x100 x100 x100 x100 x100 x100 x100 x100 x100))
; x1000 adalah x pangkat 1000
(setf x9012 (* x1000 x1000 x1000 x1000 x1000 x1000 x1000 x1000 x1000 x10 x x))
; x9012 adalah hasil kali dari sembilan kali x pangkat 1000 dengan x pangkat sepuluh dan x pangkat 2
(format t "~A pangkat 10 adalah ~A
~A pangkat 100 adalah ~A
~A pangkat 1000 adalah ~A
~A pangkat 9012 adalah ~A" x x10 x x100 x x1000 x x9012))
; format t untuk mencetak nilai dari masing2 variable
-------------------------------------------------------------------------------------

Ada banyak cara untuk membuat perpangkatan di Lisp,, salah satunya dengan cara fungsi sederhana seperti diatas.
cara lainnya menggunakan looping dan fungsi2 standar lisp "sqrt" dan lain2.

LISP

2009-03-10T04:56:00.000-07:00

x pangkat 100

(defun pangkat (x)
(setf x10(* x x x x x x x x x x))
; x10 adalah x pangkat 10
(setf x100 (* x10 x10 x10 x10 x10 x10 x10 x10 x10 x10))
; x100 adalah x pangkat seratus atau samadengan x pangkat 10 di kalikan dengan x pangkat 10 sepuluh kali

------------------------------------------------------------------------------------
terbesar dari 10 bilangan

(defun terbesar (a b c d e f g h i j)
(let ((big (max a b c d e f g h i j)

------------------------------------------------------------------------------------
menentukan bidang

bisa di buat dengan cond dan if else..
kalo aku sih tipe inputan dengan memasukan tiga buah panjang rusuk,,
baru kemudian bisa menentukan bidang..

------------------------------------------------------------------------------------
kuadran

kuadan dari soal minggu kemaren rumit bgt sh,, aku jadinya cuma buat kuadran dari 3 buah titik..
yang perlu di ingat
kuadran 1 = x+ y+
kuadran 2 = x- y+
kuadran 3 = x- y-
kuadran 4 = x+ y-

bisa di buat dengan menggunakan if else dan cond atau depend on..

ini sedikit pembahasan dan contoh dari aku buat soal alpro minggu kemaren..
soal pengembangan sampai pangkat 9012, terbesar dari 49bilangan,, dan lain2 kalian bisa buat sendiri..
ekspresikan aksimu!!!!!!!!

baca buku2 pemrograman LISP yang sudah ada link downloadnya di topikku yang sebelumnya..
sekian dan thanks dah mampir ke blogku..

Pemrograman Lisp

2009-03-10T04:37:00.000-07:00

LISP programing adalah sebuah bahasa pemrograman yang,, ya bisa dibilang sedikit rumit dengan code2 yang sedikit membingungkan..

di sini aku sertakan sedikit buku yang bisa kalian gunakan dalam pemrograman LISP..

buku2 ini berbahasa inggris tapi bisa di bilang cukup lengkap dalam hal pembelajaran dan contoh2 prakteknya..

klik this URL..

Dowwnload

Download
Download

ada 3 buah buku di atas yang bisa kalian gunakan sebagai refrensi...

sorry if i'm newbie

2008-12-08T20:47:00.000-08:00

i am newbie blogger that maybe none of my post is useful for you..
so i want some criticism and suggestions from all of you...
so don't forget to leave reply in my blog..
thanks

Software: Portable Chating

2008-12-07T05:34:00.000-08:00

program ini adalah program portable yang digunakan untuk chat..
dan mendukung banyak gateway,, antara lain,, MSN, YM, AIM, G!talk,dll
bisa di instal di dalam usb maupun hard disk portable lainnya..

Download Portable Chat

Software: Rf Mod buat frets on fire

2008-12-07T05:29:00.000-08:00

ini adalah Rf Mod buat game Frets On Fire..
di sini Frets on fire yg lama akan di jadikan lebih nyaman di gunakan dan telah ditambahkan beberapa entry baru..

Download Rf-Mod

Game: Frets on Fire

2008-12-07T05:12:00.000-08:00

game ini adalah replika dari guitar hero,, dan serunya lagi,, game ini adalah free game alias gratis,, ga pake bayar...
tipe permainan dari game ini tidak jauh berbeda dari guitar hero..
tombol f1-f5 masi menjadi key utama dalam memainkan game ini,, tidak terlalu sulit untuk pemula,, apalagi yang advance,, d jamin seru game yang 1 ini..

tipe game guitar simulation
Download FretsOnFire

Software: Media Grabber

2008-12-07T04:32:00.000-08:00

Media Grabber adalah software yang bisa menampilkan link dari beberapa format yang di tampilkan di halaman web kita..
jadi misalnya kita buka youtube,, kita bisa mendownload semua video yang ada di situ..
musik2 dan flash object juga bisa kita download,, walaupun tidak ada url buat download objek tersebut..
beberapa download accelerator juga menyediakan software ini,, seperti Download Accelerator Manager..
dan ini media Grabber yang berdiri sendiri..
software ini bersifat shareware,, jadi mau tidak mau,, kita harus register dolo..
Download MediaGrabber

buku2

2008-12-06T09:52:00.000-08:00

here the URL of some E-Book that i've ever read..
just click to download..
Ini kebanyakan tulisan tentang pemrograman..
yang lain nanti menyusul..hehe

pengantar pemrograman web download

pemrrograman C indonesia download

pemrograman berbasis objek download

pemrograman java untuk advance download

pemrograman java game download

tutorial HTML indonesia download

modul4-efek suara download

simulasi wireless GSM download

algoritma sorting download

pengenalan Teknologi Informasi download

Hack sistem download

Kamus IT download

setting manual GPRS wireless app download

101 bisnis internet download

How to make blog that you earn real cash download

mendisain sistem keamanan jaringan download

Hacker mengenal dunia mereka download

Mengintip dengan paket sniffing download

Kemanan Jaringan download

protokol jaringan download

struktur dasar HTML download

pengenalan Visual Basic script download

software cracking download

photoshop CS javascript guide download

pendahuluan dan pengenalan dreamweaver download

Adobe dreamweaver CS.3 User Manual download

pengenalan kepada dreamweaver download

Panduan Frontpage download

my secound blog

2008-12-06T09:48:00.001-08:00

yeah,, here we go!!!
this is only trial blog,, so made it simple and just do what you like to do..
lol