Các dạng toán trong MSW Logo NOT EQUALP Bài 1: Một cửa hàng có số gạp nếp và tẻ là 1950 kg... Mỗi câu đúng được cộng 5 điểm.. Cả Việt và Nam cho Bình 1 số bi như nhau.. Sau đó Việt cho N
Trang 1Các dạng toán trong MSW Logo
NOT EQUALP
Bài 1: Một cửa hàng có số gạp nếp và tẻ là 1950 kg Sau khi bán 2/6 số gạp nếp
và 3/7 số gạo tẻ thì còn lại số gạo nếp bằng gạo tẻ Hỏi lúc đầu có bao nhiêu kg gạo nếp, bao nhiêu kg gạo tẻ?
to gao
make "nep 0
make "te 1950
make "connep :nep-2/6*:nep
make "conte :te-3/7*:te
while [not equalp :connep :conte] [make "nep :nep+1
make "te :te-1
make "connep :nep-2/6*:nep
make "conte :te-3/7*:te]
rt 90 label [ so kg gao nep la : ] pu fd 170 pd label :nep pu fd 50 pd
label [so kg gao te la: ] pu fd 170 pd label :te
end
Bài 2: Trong giỏ vừa gà vừa thỏ
100 cái chân, 43 cái đầu
Bao nhiêu gà? Bao nhiêu thỏ?
to gatho
make "ga 1
make "tho 42
make "chan 2*:ga+4*:tho
while [not equalp :chan 100] [ make "ga :ga+1
make "tho :tho-1
make "chan 2*:ga+4*:tho]
rt 90 label [ so ga la: ] pu fd 100 pd label :ga
pu fd 200 pd label [so tho la: ] pu fd 100 pd label :tho
end
Bài 3: Một rạp chiếu phim bán 500 vé được chia làm 2 loại:
Loại 1: 50 000/vé
Loại 2: 35 000/vé
Trang 2Biết tổng số tiền thu được là: 22 000 000
Hỏi có bao nhiêu vé mỗi loại được bán ra?
to banve
make "l1 1
make "l2 499
make "tien :l2*35000+:l1*50000
while [not equalp :tien 22000000] [make "l1 :l1+1
make "l2 :l2-1
make "tien :l2*35000+:l1*50000]
rt 90 label [ so ve loai 1 la: ] pu fd 140 pd label :l1
pu fd 100 pd label [so ve loai 2 la: ] pu fd 140 pd label :l2
end
Bài 4: Cả hai thùng chứa 398 lít nước, nếu chuyển 50 lít nước ở thùng thứ nhất sang thùng thứ hai thì nước trong thùng thứ hai nhiều hơn thùng thứ nhất 16 lít Tính nước ở mỗi thùng lúc đầu.
to nuoc
make "a 398
make "b 0
while [not equalp :a-50 :b+50-16] [make "a :a-1
make "b :b+1]
rt 90 label [ Nuoc trong thung thu nhat luc dau la: ] pu fd 350 pd label :a
pu home bk 20 rt 90 pd
label [ Nuoc trong thung thu hai luc dau la: ] pu fd 350 pd label :b
end
Bài 5: An có số viên bi xanh và đỏ tổng cộng là 95 viên Sau khi cho Bình 2/5 viên bi đỏ và cho sơn 1/3 viên bi xanh Hỏi ban đầu An còn lại bao nhiêu viên
bi đỏ và bao nhiêu viên bi xanh?
to vienbi
make "bx 0
make "bd 95
make "sobixanh :bx-1/3*:bx
make "sobido :bd-2/5*:bd
while [not equalp :sobixanh :sobido ] [make "bx :bx+1
make "bd :bd-1
make "sobixanh :bx-1/3*:bx
make "sobido :bd-2/5*:bd]
Trang 3rt 90 label [So bi xanh la: ] pu fd 130 pd label :bx
pu setxy 0 -20 pd label [So bi do la: ] pu fd 110 pd label :bd
end
Bài 6: 12 con vừa gà vừa thỏ có tất cả 32 chân Hỏi có bao nhiêu gà? Bao nhiêu thỏ?
to gatho
make "ga 0
make "tho 12
make "chan :ga*2+:tho*4
while [not equalp :chan 32] [make "ga :ga+1
make "tho :tho-1
make "chan :ga*2+:tho*4]
rt 90 label [ so ga la: ] pu fd 100 pd label :ga
pu fd 200 pd label [so tho la: ] pu fd 100 pd label :tho
end
Bài 7: Có 10 xe chở gạo gồm 2 loại Loại I chở được 45 tạ và loại II chở được
32 tạ Tất cả đã chở được 39 tấn 8 tạ gạo Hỏi có bao nhiêu xe mỗi loại?
to xechogao
make "loai1 0
make "loai2 10
make "choduoc :loai1*45+:loai2*32
while [not equalp :choduoc 398] [make "loai1 :loai1+1
make "loai2 :loai2-1
make "choduoc :loai1*45+:loai2*32]
rt 90 label [ so xe loai I la: ] pu fd 140 pd label :loai1
pu fd 200 pd label [so xe loai II la: ] pu fd 140 pd label :loai2
end
Bài 8: Có 8 sọt đựng tất cả 1120 quả cam vừa quýt Một sọt cam đựng được 75 quả, mỗi sọt quýt đựng được 179 quả Hỏi mỗi loại có bao nhiêu quả?
to sotcamquyt
make "sotcam 0
make "sotquyt 8
make "tongsoqua :sotcam*75+:sotquyt*179
while [not equalp :tongsoqua 1120] [make "sotcam :sotcam+1
make "sotquyt :sotquyt-1
make "tongsoqua :sotcam*75+:sotquyt*179]
make "cam :sotcam*75
make "quyt :sotquyt*179
Trang 4rt 90 label [ so qua cam la: ] pu fd 140 pd label :cam
pu fd 200 pd label [so qua quyt la: ] pu fd 140 pd label :quyt
end
Bài 9: Trong một kì thi có 30 câu hỏi Mỗi câu đúng được cộng 5 điểm Mỗi câu sai bị trừ 10 điểm Tổng điểm của Hà là 105 điểm Hỏi Hà làm được bao nhiêu câu đúng?
to diemha
make "dung 30
make "sai 0
make "tongdiem :dung*5-:sai*10
while [not equalp :tongdiem 105] [make "dung :dung-1
make "sai :sai+1
make "tongdiem :dung*5-:sai*10]
rt 90 label [ so cau dung la: ] pu fd 150 pd label :dung
end
Bài 10: Việt có 20 viên bi, Nam có 8 viên bi Cả Việt và Nam cho Bình 1 số bi như nhau Sau đó Việt cho Nam số bi bằng số bi của Nam hiện có và nhận thấy rằng số bi của Việt và Nam là bằng nhau Hỏi Việt và Nam cùng cho Bình mấy viên bi?
to bi
make "bvls 20
make "bnls 8
make "nc :bvls-:bnls
while [not equalp :nc :bnls*2] [make "bvls :bvls-1
make "bnls :bnls-1
make "nc :bvls-:bnls]
make "2bc 20-:bvls
rt 90 label [Viet va Nam cung cho binh: ]
pu fd 260 pd label :2bc
pu fd 15 pd label [ vien ]
end
Bài 11: Một người buôn 1.200đ/1 quả trứng Đem về bị vỡ 20 quả Số trứng còn lại bán như sau: số trứng bán với giá 2.000đ/1 quả, số trứng bán với giá 1.800đ/1 quả, còn lại bao nhiêu bán với giá 1.500đ/1 quả Sau khi bán xong lãi 206.000 Tìm số trứng lúc đầu người đó mua?
to trung
make "x 0
make "tong (:x+20)*1200
Trang 5make "ban 2/4*:x*2000+1/4*:x*1800+(:x-3/4*:x)*1500
make "lai :ban-:tong
while [not equalp :lai 206000] [make "x :x+1
make "tong (:x+20)*1200
make "ban 2/4*:x*2000+1/4*:x*1800+(:x-3/4*:x)*1500 make "lai :ban-:tong]
make "sotbd :x+20
rt 90 label [nguoi do mua la: ] pu fd 140 pd label :sotbd
end
Bài 12: Hoa và Hương có một số tiền Số tiền của Hoa = số tiền của Hương Nếu Hoa tiêu hết 9 000đ và Hương tiêu hết 15 000đ thì Hương còn nhiều hơn Hoa 39 000đ Hỏi lúc đầu mỗi bạn có bao nhiêu tiền?
to tien
make "huong 1000
make "hoa :huong/8*3
while [not equalp (:huong-15000)-(:hoa-9000) 39000] [make "huong
:huong+1000
make "hoa :huong/8*3]
rt 90 label :hoa
pu fd 200 pd
label :huong
end
Bài 13: Cô giáo chia cho mỗi em 5 chiếc thì thừa 3 nếu chia mỗi em 6 chiếc thì thiếu 5 Hỏi cô có bao nhiêu kẹo?
to chiakeo
make "n 1
make "c5 (:n-3)/5
make "c6 (:n+5)/6
while [not equalp :c5 :c6] [make "n :n+1
make "c5 (:n-3)/5
make "c6 (:n+5)/6]
rt 90 label [So keo co giao co la:] pu fd 200 pd label :n
end
Trang 6Bài 14: 15 ô tô gồm 3 loại: loại 4 bánh chở 5 tấn, loại 6 bánh chở 10 tấn và loại 6 bánh chở 8 tấn 15 xe có 84 bánh và chở 121 tấn Hỏi mỗi loại có mấy xe?
to oto
make "loai4 15
make "loai6 0
make "tongsobanh :loai4*4+:loai6*6
while [not equalp :tongsobanh 84] [make "loai4 :loai4-1
make "loai6 :loai6+1
make "tongsobanh :loai4*4+:loai6*6]
make "xeconlai 15-:loai4
make "tanconlai 121-(:loai4*5)
make "loai8t :xeconlai
make "loai10t 0
make "tongsotan :loai8t*8+:loai10t*10
while [not equalp :tongsotan :tanconlai] [make "loai8t :loai8t-1
make "loai10t :loai10t+1
make "tongsotan :loai8t*8+:loai10t*10]
rt 90
label [So xe 4 banh la:] pu fd 150 pd label :loai4
pu setxy 0 -20 pd
label [So xe 6 banh cho 8 tan la:] pu fd 250 pd label :loai8t
pu setxy 0 -40 pd
label [So xe 6 banh cho 10 tan la:] pu fd 270 pd label :loai10t
end
Bài 15: Trong một cuộc thi có 60 câu hỏi Mỗi câu trả lời đúng được 1/6 điểm, mỗi câu trả lời sai bị trừ 1/2 điểm Một bạn học sinh được tổng điểm
là 8 Hỏi bạn ấy trả lời đúng bao nhiêu câu ?
to cauhoi
make "dung 60
make "sai 0
make "tongsodiem :dung*1/6-*:sai*1/2
while [not equalp :tongsodiem 8] [make "dung :dung-1
make "sai :sai+1
make "tongsodiem :dung*1/6-*:sai*1/2]
rt 90 label [So cau tra loi dung la:] pu fd 210 pd label :dung
Trang 7Bài 16: Một vận động viên bắn súng trong một lần tập huấn phải bắn tất
cả 50 viên đạn Mỗi viên trúng đích được cộng 10 điểm, mỗi viên trượt đích
bị trừ 5 điểm Sau khi bắn hết 50 viên đạn vận động viên đó đạt được 440 điểm Hỏi vận động viên đó bắn trúng đích bao nhiêu viên?
to bandan
make "trung 50
make "truot 0
make "tongdiem :trung*10-:truot*5
while [not equalp :tongdiem 440] [make "trung :trung-1
make "truot :truot+1
make "tongdiem :trung*10-:truot*5]
rt 90 label [So lan ban trung dich la:] pu fd 230 pd label :trung
end
Bài 17: Có 36 con gà gồm hai loại: trọng lượng 2,7kg một con, loại gồm hai loại: trọng lượng 2,7kg một con, loại 3,3kg một con Tổng trọng lượng hai loại là 109,8kg Hỏi mỗi loại có bao nhiêu con gà?
to conga
make "tl2.7 36
make "tl3.3 0
make "tongtrongluong :tl2.7*2.7+:tl3.3*3.3
while [not equalp :tongtrongluong 109.8] [make "tl2.7 :tl2.7-1
make "tl3.3 :tl3.3+1
make "tongtrongluong :tl2.7*2.7+:tl3.3*3.3]
rt 90 label [ So con ga 2,7 kg la: ] pu fd 185 pd label :tl2.7
pu fd 100 pd label [ So con ga 3,3 la: ] pu fd 165 pd label :tl3.3
end
Bài 18: Một người mua 50 quả trứng vừa trứng gà vừa trứng vịt hết tất cả 119.000đ Biết giá mỗi quả trứng gà là 2.500đ, trứng vịt là 2.200đ Hỏi người đó mua bao nhiêu quả trứng mỗi loại?
Trang 8to muatrung
cs st pd
make "trungga 1
make "trungvit 49
make "tongtien :trungga*2500+:trungvit*2200
while [not equalp :tongtien 119000] [make "trungga :trungga+1
make "trungvit :trungvit-1
make "tongtien :trungga*2500+:trungvit*2200]
rt 90 label [so trung ga la:]
pu fd 200 pd label :trungga
pu setxy 0 -20 pd label [so trung vit la:]
pu fd 200 pd label :trungvit
ht
end
Bài 19: Trong một cuộc thi có 20 câu hỏi Mỗi câu trả lời đúng được 10 điểm còn câu trả lời sai thì không được điểm nào mà còn bị trừ 3 điểm Một học sinh đạt được 148 điểm Hỏi bạn đó trả lời đúng mấy câu? Sai mấy câu?
to dithi
cs st pd
make "dung 20
make "sai 0
make "tongdiem :dung*10-:sai*3
while [not equalp :tongdiem 148] [make "dung :dung-1 make "sai :sai+1
make "tongdiem :dung*10-:sai*3 ]
rt 90 label [so cau dung la:]
pu fd 200 pd label :dung
pu setxy 0 -20 pd label [so cau sai la:]
pu fd 200 pd label :sai
ht
end