Đến nội dung


Hình ảnh
- - - - -

Lisp vui: Đoán xem bạn có phải là đại gia?


  • Please log in to reply
4 replies to this topic

#1 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 December 2010 - 02:25 PM

Với thu nhập bình quân hàng ngày của bạn, bạn thử đoán xem mình thuộc tầng lớp nào trong xã hội. Cách phân loại giàu nghèo theo 5 bậc như sau:
1- Thu nhap <= 100000đ/ngày : Bạn cần xóa đói giảm nghèo.
2- Thu nhập từ 100000 đến 500000 : Bạn chỉ nuôi đủ bản thân.
3- Thu nhập từ 500000 đến 1000000 : Bạn nuôi đủ cả gia đình.
4- Thu nhập từ 1000000 đến 10000000 : Bạn tương đối giàu.
5- Thu nhập > 10000000 : Bạn là một đại gia.
Bạn hãy tải chương trình về máy, sau đó load rồi dùng lệnh XEM, và nhập vào thu nhập bình quân hằng ngày của bạn. Chương trình sẽ đoán cho bạn.
Ví dụ: bạn lần lượt nhập 6 số sau đây để kiểm tra: 100 ; 1000 ; 2500 ; 3000 ; 3550 ; 10000.
Kết quả thật bất ngờ!!! Nếu xem vui vui thì cho ý kiến, đừng làm thinh!
http://www.cadviet.c...s/3/xem_boi.lsp
Sorry: Do upload file mãi mà không được nên copy lên đây:
(defun C:XEM()
(setq thunhap (getint "\nThu nhap binh quan hang ngay (don vi: 10000 dong) cua ban <1-10000>: "))
(setq thunhap (/ (* (* 10000 thunhap) 365) 365))
(cond ((<= thunhap 100000) (alert "Ban la nguoi ngheo kiet xac!"))
((and (> thunhap 100000) (<= thunhap 500000)) (alert "Ban chi nuoi du ban than!"))
((and (> thunhap 500000) (<= thunhap 1000000)) (alert "Ban nuoi du ca gia dinh!"))
((and (> thunhap 1000000) (<= thunhap 10000000)) (alert "Ban tuong doi giau!"))
((> thunhap 10000000) (alert "Ban la mot dai gia!"))))
  • 0

* 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.


#2 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5685 Bài viết
Điểm đánh giá: 2606 (tuyệt vời)

Đã gửi 02 December 2010 - 05:23 PM

:cheers: Tks bạn :leluoi:
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#3 ssg

ssg

    biết lệnh adcenter

  • Vip
  • PipPipPipPipPipPipPip
  • 1228 Bài viết
Điểm đánh giá: 1087 (rất tốt)

Đã gửi 02 December 2010 - 08:32 PM

Với thu nhập bình quân hàng ngày của bạn, bạn thử đoán xem mình thuộc tầng lớp nào trong xã hội. Cách phân loại giàu nghèo theo 5 bậc như sau:
1- Thu nhap <= 100000đ/ngày : Bạn cần xóa đói giảm nghèo.
2- Thu nhập từ 100000 đến 500000 : Bạn chỉ nuôi đủ bản thân.
3- Thu nhập từ 500000 đến 1000000 : Bạn nuôi đủ cả gia đình.
4- Thu nhập từ 1000000 đến 10000000 : Bạn tương đối giàu.
5- Thu nhập > 10000000 : Bạn là một đại gia.
Bạn hãy tải chương trình về máy, sau đó load rồi dùng lệnh XEM, và nhập vào thu nhập bình quân hằng ngày của bạn. Chương trình sẽ đoán cho bạn.
Ví dụ: bạn lần lượt nhập 6 số sau đây để kiểm tra: 100 ; 1000 ; 2500 ; 3000 ; 3550 ; 10000.
Kết quả thật bất ngờ!!! Nếu xem vui vui thì cho ý kiến, đừng làm thinh!
http://www.cadviet.c...s/3/xem_boi.lsp
Sorry: Do upload file mãi mà không được nên copy lên đây:
(defun C:XEM()
(setq thunhap (getint "\nThu nhap binh quan hang ngay (don vi: 10000 dong) cua ban <1-10000>: "))
(setq thunhap (/ (* (* 10000 thunhap) 365) 365))
(cond ((<= thunhap 100000) (alert "Ban la nguoi ngheo kiet xac!"))
((and (> thunhap 100000) (<= thunhap 500000)) (alert "Ban chi nuoi du ban than!"))
((and (> thunhap 500000) (<= thunhap 1000000)) (alert "Ban nuoi du ca gia dinh!"))
((and (> thunhap 1000000) (<= thunhap 10000000)) (alert "Ban tuong doi giau!"))
((> thunhap 10000000) (alert "Ban la mot dai gia!"))))

Chương trình "phán" hết sức tuỳ tiện!
Lý do:
Số nguyên (integer) hợp lệ trong lisp phải nằm trong khoảng +2,147,483,647 đến -2,147,483,648
Vượt ra ngoài khoảng đó, kết quả sẽ sai bét. Đây là lỗi overflow (tràn bộ nhớ). Cái computer sẽ không chịu trách nhiệm về việc này! Quả bóng trách nhiệm được đá sang cho programmer :leluoi: .Không riêng gì lisp, các ngôn ngữ lập trình khác cũng vậy thôi.
Nếu thunhap dùng kiểu real -> chương trình sẽ "phán" chính xác.
  • 0

#4 Thaistreetz

Thaistreetz

    biết lệnh adcenter

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

Đã gửi 02 December 2010 - 10:50 PM

Chương trình "phán" hết sức tuỳ tiện!
Lý do:
Số nguyên (integer) hợp lệ trong lisp phải nằm trong khoảng +2,147,483,647 đến -2,147,483,648
Vượt ra ngoài khoảng đó, kết quả sẽ sai bét. Đây là lỗi overflow (tràn bộ nhớ). Cái computer sẽ không chịu trách nhiệm về việc này! Quả bóng trách nhiệm được đá sang cho programmer :leluoi: .Không riêng gì lisp, các ngôn ngữ lập trình khác cũng vậy thôi.
Nếu thunhap dùng kiểu real -> chương trình sẽ "phán" chính xác.

thiếu cả cái này nữa bác ợ (if (<= thunhap 0) (alert "Ông khai bố láo chi xiên") (progn .....
  • 0

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


#5 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 03 December 2010 - 01:13 PM

Với thu nhập bình quân hàng ngày của bạn, bạn thử đoán xem mình thuộc tầng lớp nào trong xã hội. Cách phân loại giàu nghèo theo 5 bậc như sau:
1- Thu nhap <= 100000đ/ngày : Bạn cần xóa đói giảm nghèo.
2- Thu nhập từ 100000 đến 500000 : Bạn chỉ nuôi đủ bản thân.
3- Thu nhập từ 500000 đến 1000000 : Bạn nuôi đủ cả gia đình.
4- Thu nhập từ 1000000 đến 10000000 : Bạn tương đối giàu.
5- Thu nhập > 10000000 : Bạn là một đại gia.
Bạn hãy tải chương trình về máy, sau đó load rồi dùng lệnh XEM, và nhập vào thu nhập bình quân hằng ngày của bạn. Chương trình sẽ đoán cho bạn.
Ví dụ: bạn lần lượt nhập 6 số sau đây để kiểm tra: 100 ; 1000 ; 2500 ; 3000 ; 3550 ; 10000.
Kết quả thật bất ngờ!!! Nếu xem vui vui thì cho ý kiến, đừng làm thinh!
http://www.cadviet.c...s/3/xem_boi.lsp
Sorry: Do upload file mãi mà không được nên copy lên đây:
(defun C:XEM()
(setq thunhap (getint "\nThu nhap binh quan hang ngay (don vi: 10000 dong) cua ban <1-10000>: "))
(setq thunhap (/ (* (* 10000 thunhap) 365) 365))
(cond ((<= thunhap 100000) (alert "Ban la nguoi ngheo kiet xac!"))
((and (> thunhap 100000) (<= thunhap 500000)) (alert "Ban chi nuoi du ban than!"))
((and (> thunhap 500000) (<= thunhap 1000000)) (alert "Ban nuoi du ca gia dinh!"))
((and (> thunhap 1000000) (<= thunhap 10000000)) (alert "Ban tuong doi giau!"))
((> thunhap 10000000) (alert "Ban la mot dai gia!"))))

Mức thu nhập bạn đề ra chẳng đúng tẹo nào, đối với công nhân có nhưng người thu nhập 1 tháng có gần 2triệu mà họ vẫn nuôi đủ bản thân còn dành tiền gửi về quê 500.000 - 1000.000 cơ mà. Chà chà bạn phán thế là không ổ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.