Đến nội dung


Hình ảnh
- - - - -

[Hỏi] Nhờ góp ý code lisp !


  • Please log in to reply
4 replies to this topic

#1 leejang

leejang

    biết lệnh move

  • Members
  • PipPipPip
  • 120 Bài viết
Điểm đánh giá: 4 (bình thường)

Đã gửi 02 July 2011 - 01:12 PM

Em cần viết lại điều kiện cho 1 biến như sau, Giả sử em có 1 biến là A
em cần thực hiện việc sau:
1. Khi A < -7 Thì thực hiện Progn..
2. Khi -7 < A < 0 Thì thực hiện Progn...
3.Khi 0 < A < 7 Thì thực hiện Progn...
4. Khi A > 7 Thì thực hiện Progn ...
Vậy thì viết code của đoạn If đó thế nào ạ ? Xin được chỉ giáo !
  • 0

#2 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 696 (tốt)

Đã gửi 02 July 2011 - 01:59 PM

Em cần viết lại điều kiện cho 1 biến như sau, Giả sử em có 1 biến là A
em cần thực hiện việc sau:
1. Khi A < -7 Thì thực hiện Progn..
2. Khi -7 < A < 0 Thì thực hiện Progn...
3.Khi 0 < A < 7 Thì thực hiện Progn...
4. Khi A > 7 Thì thực hiện Progn ...
Vậy thì viết code của đoạn If đó thế nào ạ ? Xin được chỉ giáo !

1. A < -7 viết (< A -7)
2. -7 < A < 0 viết (and (> A -7) (< A 0))
3. 0 < A < 7 viết (and (> A 0) (< A 7))
4. 1. A < -7 viết (> A 7)
  • 0
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!

#3 leejang

leejang

    biết lệnh move

  • Members
  • PipPipPip
  • 120 Bài viết
Điểm đánh giá: 4 (bình thường)

Đã gửi 02 July 2011 - 02:45 PM

1. A < -7 viết (< A -7)
2. -7 < A < 0 viết (and (> A -7) (< A 0))
3. 0 < A < 7 viết (and (> A 0) (< A 7))
4. 1. A < -7 viết (> A 7)

Thanks bác. EM làm được rồi à. hì. Đơn giản mà hiệu quả !
  • 0

#4 18011985

18011985

    biết lệnh properties

  • Members
  • PipPipPipPip
  • 255 Bài viết
Điểm đánh giá: 61 (tàm tạm)

Đã gửi 05 July 2011 - 07:36 AM

Bạn viết như sau:
(cond
(< A -7) (Progn ....... )
(and (> A -7) (< A 0)) (Progn ........)
(and (> A 0) (< A 7)) (Progn ........)
(> A 7) (Progn ....... )
)
Chúc bạn may mắn!
  • 0
Trăng 16 trăng tròn
Em 16 bụng ... như trăng

Hướng dẫn sử dụng diễn đàn:
Để cảm ơn hay bài viết có ích: Ấn dấu + cuối bài.
Không vừa lòng hay bài spam: Ấn dấu - cuối bài.

#5 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 903 Bài viết
Điểm đánh giá: 505 (tốt)

Đã gửi 05 July 2011 - 09:10 AM

(and (> A 0) (< A 7)) = (< 0 A 7)
  • 1

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD