Mswlogo và bài toán cổ gà, chó

Đề bài :

Vừa gà vừa chó
Bó lại cho tròn
Ba mươi sáu con (36 con)
Một trăm chân chẵn (100 chân)
Hỏi có bao nhiêu gà, chó?

Hướng dẫn : Ở đây ta lợi dụng sức mạnh của máy tính để thử tất cả các trường hợp bằng 2 vòng lặp For, ta sẽ thử lần lượt từng trường hợp 1:
1 con gà 1 con chó
1 con gà 2 con chó
1 con gà 3 con chó
1 con gà 4 con chó
1 con gà 5 con chó
…..
1 con gà 35 con chó
2 con gà 1 con chó
2 con gà 2 con chó
2 con gà 3 con chó
2 con gà 4 con chó
2 con gà 5 con chó
…. trường hợp nào thỏa điều kiện Gà + chó =36 (cái đầu) và 2*chân gà + 4*Chân chó =100 (cái chân) thì hiện ra kết quả số gà và chó

To GaCho
CS
CT
Rt 90
PU
 For [ga 1 36 1] [
      For [cho 1 35 1][
IF And (:ga+:cho=36)(2*:ga+4*:cho=100) [
Label (List “Co :ga “con “ga “va “co :cho “con “cho) ]
 ]]
End

Cách khác ta giải bài toán bằng vòng lặp While (code của cô Lê Thị Xuân):

Với bài này ta xem số gà là A số chó là B, vậy A+B = 36 nếu ta cho số gà là 1 thì số chó là 36-1=35 khi đó số tổng số chân gà và chó chưa đủ 100 thì tiếp tục tăng số gà lên 1 con và số chó giảm xuống 1 con, cứ tiếp tục thực hiện như thế cho đến khi tổng số chân gà và chó đủ 100 chân thì dừng lại và báo kết quả số gà và số chó tương ứng

To gacho
Make “A 1
Make “B 35
Make “Chan :A*2 + :B*4
  While [Not Equalp :Chan 100] [
     Make “A :A + 1
     Make “B :B – 1
     Make “Chan :A*2 + :B*4] ;While
Rt 90 Label (List “Co :A “con “ga “va :B “con “cho)
END

Đáp án của 2 cách giải đều ra 22 con gà và 14 con chó.