http://www.emyeutinhoc.com xin gửi tiếp tới các bạn bài toán cổ toán cổ, trâu đứng, trâu nằm, trâu già:
Trâu đứng ăn năm
Trâu nằm ăn ba
Lụ khụ trâu già
Ba con một bó
Trăm con ăn cỏ
Trăm bó no nê.
Hỏi có bao nhiêu trâu đứng , trâu nằm , trâu già ?
(Ý bài toán : Có một trăm con trâu ăn hết một trăm bó cỏ. Mỗi con trâu đứng ăn đưọc năm bó. Mỗi con trâu nằm ăn được ba bó và ba con trâu già thì chia nhau chỉ ăn đưọc một bó. Hỏi có bao nhiêu con trâu đứng, bao nhiêu con trâu nằm và bao nhiêu con trâu già).
Nếu gọi trâu đứng là i, trâu nằm là j và trâu già là k ta giải bài này như sau:
To ConTrau CS CT Rt 90 PU HT Make "hang -0 ;Dung de viet tren nhieu hang Make "Nghiem 1 ; Thong bao cac nghiem 1, 2, 3 For [i 1 96 1] [ For [j 1 96 1][ For [k 1 98 1][ IF And(:i+:j+:k=100)(5*:i+3*:j+:k/3=100) [ Label (List "TH :Nghiem "Trau "dung :i "trau "nam :j "trau "gia :k ) Make "hang :hang-50 SetY :hang ; Xuong hang Make "Nghiem :Nghiem+1] ;Tang nghiem len 1 ]]] End
Chương trình trên chưa tối ưu code, số vòng lặp dư còn nhiều, các bạn có thể sửa lại như sau để lặp ít hơn. Tại sao i là trâu đứng lại chạy tới 20 là vì trâu đứng ăn 5 do đó trường hợp cao nhất la chỉ có 20 con trâu đứng 20×5 hết 100 bó cỏ, tương tự với trâu nằm j chạy tới 33, với trâu già thì lấy 100 trừ đi số lượng trâu đứng và trâu nằm(100-:i-:j) To ConTrau CS CT Rt 90 PU HT Make “hang -0 ;Dung de viet tren nhieu hang… Read more »
Thầy ơi , em có code !!!! (Cái zoom 0.5 zoom 1 là để xóa mấy cái ngoài vòng xy nha thầy)
to trau
cs rt 90 ht
zoom 0.5 zoom 1
make “th 0
for [d 1 20 1] [for [n 1 33 1] [for [g 3 100 3] [if and (:d*5)+(:n*3)+(:g/3)=100 :d+:n+:g=100 [make “th :th+1 make “td :d make “tn :n make “tg :g label (list “Truong “hop :th “: “so “trau “dung “la :td “, “so “trau “nam “la :tn “, “so “trau “gia “la :tg) pu sety ycor-30 pd]]]]
end
Zoom xx dùng để phóng to hay thu nhỏ sân chơi, nếu xx<1.0 thì thu nhỏ sân chơi, nếu lớn hơn 1.0 thì là phóng to.
Thầy ơi cách cài FMS Logo làm sao ?
Máy em win 10 có cài được MSW Logo và FMS Logo không thầy ? Nếu thầy biết thì ib cho em .
Bạn cài Fmswlogo
Nhưng cài sao để máy em không bị virus ???
Máy mình windowxp tai được nè
to trau
rt 90
make “dung 0
make “nam 0
make “nghiem 0
make “hang 0
repeat 21[repeat 34[make “gia 100-:dung-:nam if and(:dung+:nam+:gia)=100 (:dung*5+:nam*3+:gia/3)=100 [make “nghiem :nghiem+1
label (list “cach :nghiem “trau “dung :dung “trau “nam :nam “trau “gia :gia) make “hang :hang-30 sety :hang] make “nam :nam+1]make “nam 0 make “dung :dung+1]
end