Đến nội dung


Hình ảnh
- - - - -

Nhờ các ae hướng dẫn code vòng lặp?


  • Please log in to reply
1 reply to this topic

#1 mrhungnb

mrhungnb

    Chưa sử dụng CAD

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

Đã gửi 02 September 2013 - 10:49 PM

Chẳng là em có ý đơn giản như thế này?

- Cho giá trị vòng lặp: n=?

- Nhập giá trị x1

Nhập giá trị x2

...

Nhập giá trị xn

- Lưu giá trị x1...xn cho mỗi lần nhập.

sau đó tính toán ví dụ tong = x1+ x2 +...+  xn.

Cái này hơi đơn giản nhưng lâu ko mò em quên, mọi người giúp em với ah. Thanks.


  • 0

#2 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 02 September 2013 - 11:05 PM

Lần sau thấy đơn giản thì tự mò nhé!

(defun C:HA( / n tong x)
 (setq n 1 tong 0)
 (while (setq x (getreal (strcat "\Nhap gia tri thu " (itoa n) ": ")))
  (setq n (1+ n) tong (+ tong x))))

  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.