Latest topics

Thu Aug 23, 2012 5:38 am by Admin

» Tuyệt kỹ cua giai
Giải phương trình bậc hai - Lisp Empty

Thu Aug 23, 2012 5:36 am by Admin

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

Mon Aug 13, 2012 6:35 am by Admin

» Bảo mật CSDL bằng phương pháp mã hóa.
Giải phương trình bậc hai - Lisp Empty

Tue Apr 17, 2012 10:04 pm by Admin

» Hàm mã hóa MD5 bằng JavaScript
Giải phương trình bậc hai - Lisp Empty

Tue Apr 17, 2012 10:03 pm by Admin

» Giá của món quà
Giải phương trình bậc hai - Lisp Empty

Fri Apr 13, 2012 6:01 am by Admin

» Sẽ chỉ yêu ai?
Giải phương trình bậc hai - Lisp Empty

Fri Apr 13, 2012 6:01 am by Admin

» Cách đọc bảng chữ cái!
Giải phương trình bậc hai - Lisp Empty

Thu Apr 12, 2012 10:37 pm by Admin

» Gắn trojan, keylog, virus vào website, forum
Giải phương trình bậc hai - Lisp Empty

Tue Apr 10, 2012 1:14 am by Admin

Navigation

Diễn Đàn

Affiliates

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

Page 1 of 1

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