Nhờ các bác hiểu biết về autolisp giúp em với

[milkde]

tình hình là em mới học lập trình trên autolisp !^^ bác nào giúp e lập trình giải phương trình bậc 2 , hệ pt và có thêm vài bài mẫu nữa càng tốt tks các bác nhiều nha :10::63::10::63:

 

[haictk589]

Ðề: 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)))
)
)
)
)