Các dạng toánMSWLogoNOTEQUALPBài 1: Một cửa hàng có số gạp nếp tẻ 1950 kg Sau bán 2/6 số gạp nếp 3/7 số gạo tẻ lại số gạo nếp gạo tẻ Hỏi lúc đầu có kg gạo nếp, kg gạo tẻ? to gao make "nep 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 chân, 43 đầu Bao nhiêu gà? Bao nhiêu thỏ? to gatho make "ga 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é chia làm loại: Loại 1: 50 000/vé Loại 2: 35 000/vé Biết tổng số tiền thu là: 22 000 000 Hỏi có vé loại bán ra? to banve make "l1 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 la: ] pu fd 140 pd label :l1 pu fd 100 pd label [so ve loai la: ] pu fd 140 pd label :l2 end Bài 4: Cả hai thùng chứa 398 lít nước, chuyển 50 lít nước thùng thứ sang thùng thứ hai nước thùng thứ hai nhiều thùng thứ 16 lít Tính nước thùng lúc đầu to nuoc make "a 398 make "b while [not equalp :a-50 :b+50-16] [make "a :a-1 make "b :b+1] rt 90 label [ Nuoc thung thu nhat luc dau la: ] pu fd 350 pd label :a pu home bk 20 rt 90 pd label [ Nuoc thung thu hai luc dau la: ] pu fd 350 pd label :b end Bài 5: An có số viên bi xanh đỏ tổng cộng 95 viên Sau cho Bình 2/5 viên bi đỏ cho sơn 1/3 viên bi xanh Hỏi ban đầu An lại viên bi đỏ viên bi xanh? to vienbi make "bx 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 -20 pd label [So bi la: ] pu fd 110 pd label :bd end Bài 6: 12 vừa gà vừa thỏ có tất 32 chân Hỏi có gà? Bao nhiêu thỏ? to gatho make "ga 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 loại Loại I chở 45 tạ loại II chở 32 tạ Tất chở 39 tạ gạo Hỏi có xe loại? to xechogao make "loai1 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ó sọt đựng tất 1120 cam vừa quýt Một sọt cam đựng 75 quả, sọt quýt đựng 179 Hỏi loại có quả? to sotcamquyt make "sotcam make "sotquyt 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 kì thi có 30 câu hỏi Mỗi câu cộng điểm Mỗi câu sai bị trừ 10 điểm Tổng điểm Hà 105 điểm Hỏi Hà làm câu đúng? to diemha make "dung 30 make "sai 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ó viên bi Cả Việt Nam cho Bình số bi Sau Việt cho Nam số bi số bi Nam có nhận thấy số bi Việt Nam Hỏi Việt Nam cho Bình viên bi? to bi make "bvls 20 make "bnls 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 trứng Đem bị vỡ 20 Số trứng lại bán 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ả, lại bán với giá 1.500đ/1 Sau bán xong lãi 206.000 Tìm số trứng lúc đầu người mua? to trung make "x 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 mua la: ] pu fd 140 pd label :sotbd end Bài 12: Hoa Hương có số tiền Số tiền Hoa = số tiền Hương Nếu Hoa tiêu hết 000đ Hương tiêu hết 15 000đ Hương nhiều Hoa 39 000đ Hỏi lúc đầu bạn có 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 em thừa chia em thiếu Hỏi cô có kẹo? to chiakeo make "n 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 loại: loại bánh chở tấn, loại bánh chở 10 loại bánh chở 15 xe có 84 bánh chở 121 Hỏi loại có xe? to oto make "loai4 15 make "loai6 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 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 banh la:] pu fd 150 pd label :loai4 pu setxy -20 pd label [So xe banh cho tan la:] pu fd 250 pd label :loai8t pu setxy -40 pd label [So xe banh cho 10 tan la:] pu fd 270 pd label :loai10t end Bài 15: Trong thi có 60 câu hỏi Mỗi câu trả lời 1/6 điểm, câu trả lời sai bị trừ 1/2 điểm Một bạn học sinh tổng điểm Hỏi bạn trả lời câu ? to cauhoi make "dung 60 make "sai 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 lần tập huấn phải bắn tất 50 viên đạn Mỗi viên trúng đích cộng 10 điểm, viên trượt đích bị trừ điểm Sau bắn hết 50 viên đạn vận động viên đạt 440 điểm Hỏi vận động viên bắn trúng đích viên? to bandan make "trung 50 make "truot 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 gà gồm hai loại: trọng lượng 2,7kg con, loại gồm hai loại: trọng lượng 2,7kg con, loại 3,3kg Tổng trọng lượng hai loại 109,8kg Hỏi loại có gà? to conga make "tl2.7 36 make "tl3.3 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 ga 2,7 kg la: ] pu fd 185 pd label :tl2.7 pu fd 100 pd label [ So ga 3,3 la: ] pu fd 165 pd label :tl3.3 end Bài 18: Một người mua 50 trứng vừa trứng gà vừa trứng vịt hết tất 119.000đ Biết giá trứng gà 2.500đ, trứng vịt 2.200đ Hỏi người mua trứng loại? to muatrung cs st pd make "trungga 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 -20 pd label [so trung vit la:] pu fd 200 pd label :trungvit ht end Bài 19: Trong thi có 20 câu hỏi Mỗi câu trả lời 10 điểm câu trả lời sai không điểm mà bị trừ điểm Một học sinh đạt 148 điểm Hỏi bạn trả lời câu? Sai câu? to dithi cs st pd make "dung 20 make "sai 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 -20 pd label [so cau sai la:] pu fd 200 pd label :sai ht end ... "tl2.7 36 make "tl3.3 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]... end Bài 7: Có 10 xe chở gạo gồm loại Loại I chở 45 tạ loại II chở 32 tạ Tất chở 39 tạ gạo Hỏi có xe loại? to xechogao make "loai1 make "loai2 10 make "choduoc :loai1*45+:loai2*32 while [not equalp. .. :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