鶴亀算

小学校で習う鶴亀算。連立方程式の入門ですが、IchigoJamで総当たり法で計算するプログラムを作った方がいました。
note.com
懐かしく面白かったので、私もやってみました。

方程式で計算

連立方程式の問題として考えてみます。

いわゆる「加減法」の解き方です。
（もう1つの解き方として「代入法」がありますが、答えは同じです）
ここから以下のようなプログラムにしてみました。

10 INPUT "ｾﾞﾝﾌﾞ ﾃﾞ ﾅﾝﾋﾞｷ?",A
20 INPUT "ｱｼ ﾉ ｺﾞｳｹｲ ﾊ?",B
30 Y=(B-2*A)/2
40 X=A-Y
50 PRINT "ﾂﾙ ﾉ ｶｽﾞ=",X
60 PRINT "ｶﾒ ﾉ ｶｽﾞ=",Y

IchigoJam webではこちら。

ゲーム風に総当たり

• 起動すると、鶴と亀の匹数・足の数・それらの合計数が表示されます
• カーソルキーの左右←→で鶴の数、上下↓↑で亀の数を変更します（0～30匹）。匹数・足の数・合計数が変化するので、希望する合計数になる答えを見つけてください。

10 '*TSURUKAME
20 CLV:CLS
30 ?"*ﾂﾙｶﾒｻﾞﾝ*"
40 POKE #780,6,7,6,#FC,#78,#50,#50,#D8
50 POKE #788,#C,#18,#BA,#7C,#7C,#BA,#10,#20
60 LC 0,2:?"@ﾂﾙ ";CHR$(224,225)
70 LC 0,6:?"@ｶﾒ ";CHR$(227,226)
80 LC 0,10:?"*ｺﾞｳｹｲ"
90 LC 0,3:?CHR$(24);
100 IF X>0 FOR I=1 TO X:?CHR$(240);:NEXT
110 LC 0,4:?CHR$(24);X;"ﾋｷ/";X*2;"ﾎﾝ"
120 LC 0,7:?CHR$(24);
130 IF Y>0 FOR I=1 TO Y:?CHR$(241);:NEXT
140 LC 0,8:?CHR$(24);Y;"ﾋｷ/";Y*4;"ﾎﾝ"
150 LC 0,11:?CHR$(24);X+Y;"ﾋｷ/";X*2+Y*4;"ﾎﾝ"
160 K=INKEY():IF !K CONT
170 BEEP
180 X=X-(K=28)*(X>0)+(K=29)*(X<30)
190 Y=Y-(K=31)*(Y>0)+(K=30)*(Y<30)
200 GOTO 90

IchigoJam webではこちら。