Ðề: Nhờ các bác hiểu biết về autolisp giúp em với
(defun C:gp()
(setq a (getreal "nhap gia tri cua a:="))
(setq b (getreal "nhap gia tri cua b:="))
(setq c (getreal "nhap gia tri cua c:="))
(setq delta (- (* b b ) (* 4 (* a c))))
(if (< delta 0)
(princ"\nphuong trinh vo nghiem")
(if (> delta 0)
( progn
(princ"\nphuong trinh co 2 nghiem phan biet")
(princ"\nX1=")
(princ(/ (+ (- 0 b) (sqrt(delta))) (* 2 a)))
(princ"\nX2=")
(princ(/ (+ b (sqrt(delta))) (* 2 a)))
)
)
(if(= delta 0)
( progn
(princ"\nphuong trinh co nghiem kep")
(princ"\nX1=X2=")
(princ(/ (- 0 b) (* 2 a)))
)
)
)
)