小学校で習う鶴亀算。連立方程式の入門ですが、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
ゲーム風に総当たり
- 起動すると、鶴と亀の匹数・足の数・それらの合計数が表示されます
- カーソルキーの左右←→で鶴の数、上下↓↑で亀の数を変更します(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