LISP

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..