[LI]Chương 3 - Các hàm nhập liệu

[[LI]Chương 3 - Các hàm nhập liệu]

(defun DT1 (x)
(* pi x x)
);; Ham con DT1 tinh dien tich hinh tron voi duong kinh nhap vao
(defun C:BT5 (/ a b dientich)
(setq a (getreal "\nNhap ban kinh lon:"))
(setq b (getreal "\nNhap ban kinh nho:"))
(defun dientich (a b)
(- (DT a) (DT b)))
(dientich a b)
);;;
BT6
(defun C:BT6 (/ a b c p dientich)
(setq a (getreal "\nNhap canh thu nhat:"))
(setq b (getreal "\nNhap canh thu hai:"))
(setq c (getreal "\nNhap canh thu ba:"))
(defun dientich (x y z)
(setq p (* (+ x y z) 0.5))
(sqrt (* p (- p x) (- p y) (- p z)))
)
(dientich a b c)
);;;
BT7
(defun C:BT7 (/ d)
(setq d (getreal "\nNhap duong kinh mm:"))
(princ "\nDien tich mat cat: ")
(DT d));;;; Su dung lai ham DT tu BT5. 
BT8
(defun doidonvi (a)
(/ a 1000)
);;;
(defun C:BT8 (/ d khoiluong)
(setq d (getreal "\nNhap duong kinh :"))
(defun khoiluong (x)
(* (DT1 (doidonvi x)) 11.7 7850));;; Su dung ham doidonvi va ham DT1
(khoiluong d)
);;;
BT9
(defun DT2 (x)
(* x x)
);; Dien tich hinh vuong voi 1 canh nhap vao
(defun DT3 (x y)
(* (- x y y) (- x y y))
);; Dien tich hinh vuong voi 1canh x va be day a
(defun C:BT9 (/ a b s khoiluong)
(setq a (getreal "\nNhap canh ngoai mm:"))
(setq b (getreal "\nNhap be day mm:"))
(setq s (- (DT2 (doidonvi a)) (DT3 (doidonvi a) (doidonvi b))))
(defun khoiluong (x)
(* x 11.7 7850))
(khoiluong s)
);;;;
BT10	  
(defun C:BT10 (/ a b s khoiluong)
(setq a (getreal "\nNhap canh ngoai(mm):"))
(setq b (getreal "\nNhap canh trong(mm):"))
(setq s (- (DT2 (doidonvi a)) (DT2 (doidonvi b))))
(defun khoiluong (s)
(* s 11.7 7850))
(khoiluong s)
);;;;
BT11
(defun C:BT11 (/ a doidonvi DT DT1 DT2 DT3)
(setq a (getreal "\nNhap so (mm):"))
(defun doidonvi (a)
(/ a 1000))
(doidonvi a)
);;;;

Nếu để hàm tính diện tích vành khăn dùng cho BT7 với bán kính nhỏ bằng 0 thì mình chỉ không khử hàm con dientich đi là được. Nhưng như vậy sẽ không có BT7 nên mình để nguyên.

[[LI]Chương 3 - Các hàm nhập liệu]

BT8
(defun C:BT8 (/ d khoiluong)
(setq d (getreal "\nNhap duong kinh :"))
(defun khoiluong (x)
(* (* pi (/ (* (/ x 1000) (/ x 1000)) 4)) 11.7 7850))
(khoiluong d)
);;;
BT9
(defun C:BT9 (/ a b s khoiluong)
(setq a (getreal "\nNhap canh ngoai mm:"))
(setq b (getreal "\nNhap be day(mm):"))
(setq s (- (* (/ a 1000) (/ a 1000)) (* (/ (- a (* b 2)) 1000) (/ (- a (* b 2)) 1000))))
(defun khoiluong (x)
(* s 11.7 7850))
(khoiluong s)
);;;; 

 

- Bài BT9 nếu sửa như này thì lisp chạy.

- Mình nghĩ rằng hàm con khoiluong được tạo ra sẽ phụ thuộc vào các biến a b s nên mới để (khoiluong a b s). Theo lý thuyết thì lisp chạy từ trên xuống. Theo mình thì khi tạo hàm con (defun khoiluong (x)) thì hàm con khoiluong sẽ phụ thuộc vào biến x vậy mà giá trị để tính hàm con là biến s được gán ở trên ==> Không hiểu biến x có ý nghĩa thế nào ???????  Mong thầy và các cao thủ giúp đỡ !

[[LI]Chương 3 - Các hàm nhập liệu]

Hix sao thầy Ket không chữa bài cho mình vậy  :mellow:

[[LI]Chương 3 - Các hàm nhập liệu]

Up cái để thầy chữa bài tập nào  ;)

[[LI]Chương 3 - Các hàm nhập liệu]

BT1
(defun C:BT1 (/ a b dientich)
(setq a (getreal "\nNhap chieu dai canh day:"))
(setq b (getreal "\nNhap chieu cao:"))
(defun dientich (x y)
(* (* x y) 0.5)
)
(dientich a b)
)
;;;
BT2
(defun C:BT2 (/ a b c trungbinhcong)
(setq a (getreal "\nNhap so thu nhat:"))
(setq b (getreal "\nNhap so thu hai:"))
(setq c (getreal "\nNhap so thu ba:"))
(defun trungbinhcong (x y z)
(/ (* x y z) 3))
(trungbinhcong a b c)
);;;;;
BT3
(defun C:BT3 (/ a b c d tichbonso)
(setq a (getreal "\nNhap so thu nhat:"))
(setq b (getreal "\nNhap so thu hai:"))
(setq c (getreal "\nNhap so thu ba:"))
(setq d (getreal "\nNhap so thu tu:"))
(defun tichbonso (a b c d)
(* a b c d))
(tichbonso a b c d)
);;
BT4
(defun C:BT4 (/ a lapphuong)
(setq a (getreal "\nNhap so can tinh:"))
(defun lapphuong (x)
(* x x x))
(lapphuong a)
);;;
BT5
(defun C:BT5 (/ a b)
(setq a (getreal "\nNhap ban kinh lon:"))
(setq b (getreal "\nNhap ban kinh nho:"))
(defun dientich (x y)
(* pi (- (* x x) (* y y))))
(dientich a b)
);;;
BT6
(defun C:BT6 (/ a b c p dientich)
(setq a (getreal "\nNhap canh thu nhat:"))
(setq b (getreal "\nNhap canh thu hai:"))
(setq c (getreal "\nNhap canh thu ba:"))
(setq p (* (+ a b c) 0.5))
(defun dientich (a b c p)
(sqrt (* p (- p a) (- p b) (- p c)))
)
(dientich a b c p)
);;;
BT7
(defun C:BT7 (/ d matcat)
(setq d (getreal "\nNhap duong kinh mm:"))
(defun matcat (x)
(* pi (/ (* x x) 4)))
(matcat d)
)::
BT8
(defun C:BT8 (/ d khoiluong)
(setq d (getreal "\nNhap duong kinh :"))
(defun khoiluong (x)
(* (* pi (/ (* (/ x 1000) (/ x 1000)) 4)) 11.7 7850))
(khoiluong d)
);;;
BT9
(defun C:BT9 (/ a b s khoiluong)
(setq a (getreal "\nNhap canh ngoai mm:"))
(setq b (getreal "\nNhap be day(mm):"))
(setq s (- (* (/ a 1000) (/ a 1000)) (* (/ (- a (* b 2)) 1000) (/ (- a (* b 2)) 1000))))
(defun khoiluong (x)
(* x 11.7 7850))
(khoiluong a b s)
);;;;
BT10	  
(defun C:BT10 (/ a b s khoiluong)
(setq a (getreal "\nNhap canh ngoai(mm):"))
(setq b (getreal "\nNhap canh trong(mm):"))
(setq s (- (* (/ a 1000) (/ a 1000)) (* (/ b 1000) (/ b 1000))))
(defun khoiluong (s)
(* s 11.7 7850))
(khoiluong s)
);;;;
BT11
(defun C:BT11 (/ a doidonvi)
(setq a (getreal "\nNhap so (mm):"))
(defun doidonvi (a)
(/ a 1000))
(doidonvi a)
);;;;
fdsgdfg

Bài 2 chương 3  :)  Không đọc kỹ chương 2 và ví dụ của thầy Ket chắc không làm được bài này  :) ( BT9 vẫn báo lỗi nhưng mình chưa biết sai tại đâu nhờ thầy cả  vậy   :wub:  )

[[LI]Chương 3 - Các hàm nhập liệu]

BT1
(defun C:BT1 (/ a h)
(setq a (getreal "\nNhap chieu dai canh day:")
      h (getreal "\nNhap chieu cao:"))
(princ "\nDien tich tam giac:")
(* (* a h) 0.5)
);;;
BT2
(defun C:BT2 (/ a b)
(setq a (getreal "\nNhap so thu nhat:")
      b (getreal "\nNhap so thu hai:")
	  c (getreal "\nNhap so thu ba:"))
(princ "\nTrung binh cong: ")
(/ (* a b c) 3)
);;;;;
BT3
(defun C:BT3 (/ a b)
(setq a (getreal "\nNhap so thu nhat:")
      b (getreal "\nNhap so thu hai:")
	  c (getreal "\nNhap so thu ba:")
	  d (getreal "\nNhap so thu tu:"))
(princ "\nTich 4 so: ")
(* a b c d)
);;
BT4
(defun C:BT4 (/ a)
(setq a (getreal "\nNhap so can tinh:"))
(princ "\nlap phuong: ")
(* a a a)
);;;
BT5
(defun C:BT5 (/ a b)
(setq a (getreal "\nNhap ban kinh lon:")
      b (getreal "\nNhap ban kinh nho:"))
(princ "\nDien tich vanh khan: ")
(* pi (- (* a a) (* b b)))
);;;
BT6
(defun C:BT6 (/ a b p)
(setq a (getreal "\nNhap canh thu nhat:")
      b (getreal "\nNhap canh thu hai:")
	  c (getreal "\nNhap canh thu ba:")
      p (* a b c 0.5))
(princ "\nDien tich tam giac: ")
(sqrt (* p (- p a) (- p b) (- p c)))
);;;
BT7
(defun C:BT7 (/ d)
(setq d (getreal "\nNhap duong kinh:"))
(princ "\nDien tich mat cat (tinh theo mm2): ")
(* pi (/ (* d d) 4))
)::
BT8
(defun C:BT8 (/ d)
(setq d (getreal "\nNhap duong kinh (mm):"))
(princ "\nKhoi luong thanh thep (kg): ")
(* (* pi (/ (* (/ d 1000) (/ d 1000)) 4)) 11.7 7850)
);;;
BT9
(defun C:BT9 (/ a b s)
(setq a (getreal "\nNhap canh ngoai(mm):")
      b (getreal "\nNhap be day(mm):")
      S (- (* (/ a 1000) (/ a 1000)) (* (/ (- a (* b 2)) 1000) (/ (- a (* b 2)) 1000))))
(princ "\nKhoi luong thanh thep : ")
(* S 11.7 7850)
);;;;
BT10	  
(defun C:BT10 (/ a b s)
(setq a (getreal "\nNhap canh ngoai(mm):")
      b (getreal "\nNhap canh trong(mm):")
      s (- (* (/ a 1000) (/ a 1000)) (* (/ b 1000) (/ b 1000))))
(princ "\nKhoi luong thanh thep : ")
(* s 11.7 7850)
);;;;
BT11
(defun C:BT11 (/ a)
(setq a (getreal "\nNhap so (mm):"))
(princ "\nDoi sang m : ")
(/ a 1000)
);;;;

Lặn mất 1 tháng đi khảo sát :( giờ về nộp bài không lại quên hết 

[[LI] Chữa bài tập chương 2]

UP cái để thầy chữa bài  :mellow:

[[LI] Chữa bài tập chương 2]

Bai 1
(defun BT2 (/ x y z e)
(setq x (+ 2 7))
(setq y (- 3 1.25))
(setq z 5.0)
(setq z (* x y))
(setq e (+ z (* (- x y) 0.4)))
(setq ketqua (+ x y z e))
)
Bai 2
(defun BT2 (/ x y z e ketqua)
(setq x (+ 2 7))
(setq y (- 3 1.25))
(setq z 5.0)
(setq z (* x y))
(setq e (+ z (* (- x y) 0.4)))
(setq ketqua (+ x y z e))
(setq a 2000)
(setq b 1000)
(setq c (* (* a b) 0.5))
)
3
(defun trungbinhcong2 (x y)
(* (+ x y) 0.5)) số liệu nhập vào là kiểu số nguyên nên kết quả trả về sẽ là số nguyên. Vậy nhân với 0.5 là số thực kết quả cho số thực

4
(defun trungbinhcong3 ( x y z )
(/ (+ x y z) 3.0))
;;
5
(defun tinhdientich ( a b )
(* (* a b) 0.5))
;;;
6
(defun tich ( a b c d )
(* a b c d))
;;;
7
(defun lapphuong ( a )
(* a a a))
;
8
Kiểm tra hàm trung bình cộng 3 số
Command: (defun trungbinhcong3 ( x y z )
(_> (/ (+ x y z) 3.0))
TRUNGBINHCONG3
Command: (trungbinhcong3 1.1 2.2 3.3)
2.2
Kiểm tra hàm tính diện tích
Command: (defun tinhdientich ( a b )
(_> (* (* a b) 0.5))
TINHDIENTICH
Command: (tinhdientich 2000 1000)
1.0e+006
Kiểm tra hàm tích
Command: (defun tich ( a b c d )
(_> (* a b c d))
TICH
Command: (tich 1 2 3 4)
24
;Kiểm tra hàm lập phương
Command: (defun lapphuong ( a )
(_> (* a a a))
LAPPHUONG
Command: (lapphuong 4)
64

Nộp bài thôi  :)

[[LI] Chữa Bài tập chương 1]

Sắp nghỉ lễ rồi mà sao chưa được set qua bài 2 vậy thầy Kẹtxu  :)

[[LI] Chữa Bài tập chương 1]

(/ (* 12 13 14 15 16 17 18 19) (* 7 8 9 10 11))

 trót đọc mấy bài trên rùi nên biết kết quả sẽ cho ra 1 số âm. Nhưng nếu chưa đọc thì mình chắc sẽ viết như này thôi  :)

(* 12 13 14 15 16 17 18 19) dòng này có kết quả âm  :)

[[LI] Chữa Bài tập chương 1]

^^ thiếu cái Space rồi  :) Thầy kiểm tra bài nhanh qua ^^

[[LI] Chữa Bài tập chương 1]

(+ 11 39)
(- (+ 24 5 7) 6)
(- 3.75 (+  9 (* 16 21)))
(- 9 (+ 7 (- 4 5.5)))
(+ 8.5 (- 119 (+ 9 27)))
(- (+ 10 11 12 13 14 15 16 17 18 19 20) (+ 1 2 3 4 5 6 7 8 9 10))
(* 7 4)
(* 18.25 8)
(* 3.2 4 9 18) 
(/ 42 9)
(/ (/ 31 7) 13)
(/ (* 29 75) 14)
(/ (* 12 13 14 15 16 17 18 19) 7)
(/ (* 12 13 14 15 16 17 18 19) 8)
(/ (* 12 13 14 15 16 17 18 19) 9)
(/ (* 12 13 14 15 16 17 18 19) 10)
(/ (* 12 13 14 15 16 17 18 19) 11)

(* (/ (+ (* 7.6 8) (- 21 4.32)) 2.1) 7)
(/ (* (- 22 4.76) (+ 13 5.34)) 12)
(/ ( + (- 13 9.85) (* 21.7 8.9)) 3.81)
(/ (- 2.97 5.25) (* (- 1.6 2.573) (- 1.3 2.5)))
(- (* 9.8 3.2) (* (- 2.83 3.1) (+ 16.5 41)))
(* (+ (- (* 2 4) (* 3 5)) (* (- 1.1 9) (+ 3.2 4))) 5)

Em nộp bài !  :mellow: Help!!!! Sao khi mình thoát nick ra vào lại thì không thấy nội dung bài 1 nữa. Xuất hiện dòng nội dung được bảo vệ chỉ có học viên lớp mới thấy nội dung  :wacko: Không biết bài 2 thì có xem được không ?

[[Yêu cầu] Viết lisp tính diện tích sơn đường]

Cái thằng làm thiết kế đường nào chắc cũng chỉ làm đến thế thôi. Còn tính diện tích thì có chiều dài vạch sơn và ký hiệu vạch sơn đó rồi xem cái 22TCN237-01 mà tính diện tích thôi .