虫食い算
さてさて、今回はパズルに挑戦してみましょう。
パズルというのは人間が考えて解く問題です。
人間ならではというような思考をどのようにしてコンピュータに取り入れるか？
今回はそこが課題になってきます。
さて、人間の思考をコンピュータに。
難しそうに聞こえますが、そんなに難しくはないです。
（非難が聞こえてきそうですが）
まずは、パズルの問題です。
□□□□□
× □□□
――――――
□４□□□
□□４□□
□□□４□
――――――――
１□□□□４４４
若干ずれてるのは気にしないで下さい。
さて、これを人間にやれと言われても、
解ける人はわずかでしょう（出来ない事はない）
こういう問題だからコンピュータに解かせようってわけです。
ではまず考え方を。
与えられた情報から何が得られるかを考えてみましょう。
まず最初の５桁の数字をａとします。そして、次の３桁の数字をｂとします。
ｂの一の位、十の位、百の位をｂ０、ｂ１、ｂ２とします。
同様に、１□□□□４４４をｃとして、
□４□□□をｃ０、□□４□□をｃ１、□□□４□をｃ２とする。
ここから考えられる事を列挙していきましょう。
１．ａは５桁
２．ｂは３桁
３．ｃ０＝ａ×ｂ０
４．ｃ１＝ａ×ｂ１
５．ｃ２＝ａ×ｂ２
６．ｂ＝ｂ２×１００＋ｂ１×１０＋ｂ０
７．ｃ＝ａ×ｂ
８．途中に４があるのでｂには０は入らない
ここまでは誰でも思いつきますよね。
さて、ここから求めていくための条件が出てきます。
条件１．ｃ０は５桁以下の数で、千の位が４
条件２．ｃ１は４桁以下の数で、百の位が４
条件３．ｃ２は４桁以下の数で、十の位が４
条件４．ｃは８桁の数で、初めが１、下３桁が４４４である。
これがこの問題を解くタメの条件になります。
さて、それではプログラムをどうやって書けばいいか、
まずは流れを書いてみましょう。
function quiz1 % % 虫食い算解答プログラム % 擬似プログラミング % 第一版 % ａが１００００〜９９９９９まで繰り返す ｂ０が１〜９まで繰り返す ｃ０＝ａ×ｂ０ 条件１ ｂ１が１〜９まで繰り返す ｃ１＝ａ×ｂ１ 条件２ ｂ２が１〜９まで繰り返す ｃ２＝ａ×ｂ２ 条件３ ｃ＝ｃ２×１００＋ｃ１×１０＋ｃ０ 条件４ 答えが求まる |
function quiz1
%
% 虫食い算解答プログラム
% 擬似プログラミング
% 第二版
%
for a = 10000 : 99999
for b0 = 1 : 9
c0 = a * b0;
条件１
for b1 = 1 : 9
c1=a*b1;
条件２
for b2 = 1 : 9
c2 = a * b2;
条件３
c = 100 * c2 + 10 * c1 + c0;
条件４
答えが求まる
end
end
end
end
|
| c0 < 100000 |
| if c0 < 100000 |
| c0 / 1000 |
| mod(a,b) |
| mod((c/1000),10) |
| floor(mod((c/1000),10)) |
| floor(mod((c/1000),10))==4 |
| if c<100000 & floor(mod((c/1000,10))==4 |
| if c<100000 & floor(mod((c/100,10))==4 |
| if c<100000 & floor(mod((c/100,10))==4 |
| if floor(c/10000000)==1 & floor(mod(c,1000))==444 |
function quiz1
%
% 虫食い算解答プログラム
% 第三版
%
for a = 10000 : 99999
for b0 = 1 : 9
c0 = a * b0;
if c<100000 & floor(mod((c/1000,10))==4
for b1 = 1 : 9
c1=a*b1;
if c<100000 & floor(mod((c/100,10))==4
for b2 = 1 : 9
c2 = a * b2;
if c<100000 & floor(mod((c/100,10))==4
c = 100 * c2 + 10 * c1 + c0;
if floor(c/10000000)==1 & floor(mod(c,1000))==444
fprintf('ａは%d ｂは%d%d%d',a,b2,b1,b0);
end
end
end
end
end
end
end
end
|