Search
 
 

Display results as :
 


Rechercher Advanced Search

Latest topics
» Tuyệt Kỹ Đong Giai Chân Kinh (tuyệt Kỹ cua trai)
Thu Aug 23, 2012 5:38 am by Admin

» Tuyệt kỹ cua giai
Thu Aug 23, 2012 5:36 am by Admin

» NETCAT.........
Mon Aug 13, 2012 6:35 am by Admin

» Bảo mật CSDL bằng phương pháp mã hóa.
Tue Apr 17, 2012 10:04 pm by Admin

» Hàm mã hóa MD5 bằng JavaScript
Tue Apr 17, 2012 10:03 pm by Admin

» Giá của món quà
Fri Apr 13, 2012 6:01 am by Admin

» Sẽ chỉ yêu ai?
Fri Apr 13, 2012 6:01 am by Admin

» Cách đọc bảng chữ cái!
Thu Apr 12, 2012 10:37 pm by Admin

» Gắn trojan, keylog, virus vào website, forum
Tue Apr 10, 2012 1:14 am by Admin

Shopmotion


Affiliates
free forum


Giải phương trình bậc hai - Lisp

View previous topic View next topic Go down

Giải phương trình bậc hai - Lisp

Post  Admin on Wed Dec 29, 2010 12:08 am

Code:
(defun PTB2 (a b c)
   (if(= a 0)
      (if(= b 0)
         (if(= c 0)
               '(PTVSN)
               '(PTVN)
         )
         (/ (- 0 c) b)
      )
      (progn
         (setq delta(-(* b b)(* 4 a c)))   
         (if(< delta 0)
            '(PTVN)
            (if(= delta 0)
               (/(- 0 b)(* 2 a))
               (list
                  (/(-(- 0 b)(sqrt delta))(* 2 a))
                  (/(+(- 0 b)(sqrt delta))(* 2 a))
               )
            )
         )
      )
   )
)
avatar
Admin
Admin

Tổng số bài gửi : 782
Join date : 2009-08-15

View user profile http://hackis.forumotion.com

Back to top Go down

View previous topic View next topic Back to top


 
Permissions in this forum:
You cannot reply to topics in this forum