Các bài toán Not Equalp trong MSW logo

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


Biế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]


rt 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


rt 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

make "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


Bà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


end
Bà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?


to 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