Search
 
 

Display results as :
 


Rechercher Advanced Search

Latest topics
» NewBlueFx TotalFX Windows-FL | 1.11 GB
Tue Dec 17, 2013 12:42 pm by titquarra

» NewBlueFx TotalFX Windows-FL | 1.11 GB
Tue Dec 17, 2013 12:42 pm by titquarra

» Celebrity.Sex.Tape.UNCUT.&.UNRATED.2012.720p.BRrip.x264.YIFY.mp4
Tue Dec 17, 2013 8:32 am by titquarra

» Maya Autodesk Personal Learning Edition 8.5
Tue Dec 17, 2013 7:47 am by titquarra

» 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

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

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