Đến nội dung


Hình ảnh
- - - - -

mọi người giúp mình cách viết chương trình tính chu vi,diện tích với


  • Please log in to reply
2 replies to this topic

#1 el_nino20xx

el_nino20xx

    biết pan

  • Members
  • Pip
  • 7 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 11 November 2013 - 08:40 PM

Mọi người ơi giúp mình viết chương trình nhập chiều dài, chiều rộng rồi vẽ hình chữ nhật, sau đó tính diện tích và chu vi với,cảm ơn các bạn rất nhiều


  • 0

#2 Namvanvo

Namvanvo

    Edu level: li5

  • Members
  • PipPipPipPipPip
  • 386 Bài viết
Điểm đánh giá: 42 (tàm tạm)

Đã gửi 12 November 2013 - 07:49 AM

Bạn dùng thử xem có cần chỉnh lại chỗ nào không nhé, lệnh tắt là hcn 

(defun C:hcn(/ d r p)
  (setq old (mapcar 'getvar '("osmode" "cmdecho")))
(mapcar 'setvar '("osmode" "cmdecho") '(0 0))
  (initget 1)
  (setq d (getdist "\nSpecify length for rectangles:"))
  (initget 1)
  (setq r (getdist "\nSpecify width for rectangles:"))
  (initget 1)
  (setq p (getpoint "\nSpecify first corner:"))
  (command ".rectang" p (strcat "@" (rtos d 2 4) "," (rtos r 2 4)))
  (command ".area" "object" (entlast))
  (alert (strcat  "\nDien tich hcn :" (rtos (getvar 'area) 2 4)
 "\nChu vi hcn :" (rtos (getvar 'perimeter) 2 4)))
  (princ)
  (princ (strcat  "\nDien tich hcn :" (rtos (getvar 'area) 2 4)))
  (princ (strcat  "\nChu vi hcn :" (rtos (getvar 'perimeter) 2 4)))
  (mapcar 'setvar '("osmode" "cmdecho") old)
  (princ)
  )

  • 0

#3 el_nino20xx

el_nino20xx

    biết pan

  • Members
  • Pip
  • 7 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 12 November 2013 - 11:29 PM

thanks bạn


  • 0