Đến nội dung


Hình ảnh
5 stars - based on 24598 reviews
- - - - -

Gán Biến Trong Vòng Lặp


  • Please log in to reply
2 replies to this topic

#1 theblues2811

theblues2811

    Chưa sử dụng CAD

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

Đã gửi 27 March 2017 - 10:49 PM

Chào các bác, em đang có một rắc rối nhỏ. ví dụ như em cho chạy một vòng lặp i chạy từ 1 đến 10, trong đó có gán biến ssi, làm sao để có thể gán lần lượt các biến ss1, ss2, ss3... trong vòng lặp ạ. Như bên C+ thì có ss[i], bên Lisp em chưa rành về mảng lắm.
Cám ơn mọi người ạ.
 


  • 0

#2 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4325 Bài viết
Điểm đánh giá: 3824 (đỉnh cao)

Đã gửi 28 March 2017 - 05:43 AM

Chào các bác, em đang có một rắc rối nhỏ. ví dụ như em cho chạy một vòng lặp i chạy từ 1 đến 10, trong đó có gán biến ssi, làm sao để có thể gán lần lượt các biến ss1, ss2, ss3... trong vòng lặp ạ. Như bên C+ thì có ss[i], bên Lisp em chưa rành về mảng lắm.
Cám ơn mọi người ạ.
 

Bạn test thử code

(defun c:test1 ()
  (setq i 0 )
  (Repeat 10
       (mapcar 'set (read (strcat "(" "ss" (itoa (setq i (1+ i))) ")")) (list i))
  )
)
(defun c:test2 ()
  (setq i 0 ssi "(" Lbi '())
  (Repeat 10
    (setq ssi (strcat ssi "ss" (itoa (setq i (1+ i))) " "))
    (setq Lbi (append Lbi (list i)))
  )
  (mapcar 'set (read (strcat ssi ")")) Lbi)
)

  • 1

#3 theblues2811

theblues2811

    Chưa sử dụng CAD

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

Đã gửi 29 March 2017 - 09:36 AM

em cám ơn bác Tue_NV nhiều ạ


  • 0