waga10

４数を四則で１０に

プログラムの仕組み
　①　サブルーチンの説明
１．初期設定
　Y(24,4)へ入力する４つの数字の順列を入れる。４つの数字の順列は、4*3*2*1=24通りあるので添え字が24、順番を４つ入れるのでもう１つの添え字が４となっている。
　次に、E(5,3)へどの２つの数を計算するのかを入れる。計算の順番は５通りあるので添え字が５、３回計算すると答えがでるので、もう１つの添え字が３となっている。
　F$(3)へ演算記号(+-*/)を入れる。添え字が0,1,2,3の４つへ。
　P$(5)へprint　usingで使う印刷形式を入れる。

２．数字の順番の組合せ
　Y(24,4)の順番に従って、M(24,4)へ入力された数字を入れていく。
例えば、入力された数字が3,4,5,6ならば、
Y(1,1-4)に1,2,3,4が入っているから、M(1,1-4)にはそのまま3,4,5,6が、次のY(2,1-4)に1,2,4,3が入っているから、M(2,1-4)には3,4,6,5が入る。
　このように、最後のM(24,1-4)には6,5,4,3が入る。
　そして、入力された４つの数字の中に同じ数字が入っていたら、同じ順番の数字の組合せがあるので、それを除く。M(*,1)に-1を入力して。

３．式の準備
　２．で４つの数字の順番を24通り決めた。その４つの数字の間の計算をここで決める。４つの演算があるし３箇所演算記号を入れるので4*4*4=64通りある。
　例えば3,4,5,6ならば、3+4+5+6、3+4+5-6から3/4/5/6まで決め、A(64,8)に入れる。A(＊,1)・・３（最初の数）　　A(＊,2)・・”＋”
　　　　　　A(＊,3)・・４（２番目の数）　A(＊,4)・・”＋”
　　　　　　　　　　　・・・
　　　　　　A(＊,7)・・６（最後の数）　　A(＊,8)・・常に０

４．計算結果の判定出力
　計算結果が１０になれば、どの計算順序かによって出力する。
１＋（１／９））＊９が正確に１０にならないので9.999以上10.0001以下を１０としている。

５．計算
　計算をする。０での除法は計算結果を０として進める。
　次に、前につめる。例えば　A(＊,1　,2　,3　,4　,5　,6　,7　,8
　　　　　　　　　　　　　　３　＋　４　＋　５　＋　６　０
前から順番に計算する場合は　７　＋　５　＋　６　０　０　０
　　　　　　　　　　　　　　12　＋　６　０　０　０　０　０
最後は　　　　　　　　　　　18　０　０　０　０　０　０　０
となる。

　②　メインルーチンの説明　４つの数字を入力し、数字の順番の組合せを決め、その２４回を繰り返す。
　前計算した数字の組と同じなら次の組合せに行く。
　数字の３つの間に演算記号を入れる。その６４回を繰り返す。
　どの２つの数字から計算するかの５つの場合を繰り返す。
　その演算の順番に従って、３回計算をして答えを出す。
　その式の答えを１０であるか判定し、よければ出力する。

　③　変数一覧表
　　　Y(24,4) ４つの数字の順番　２４通り
　　　E(5,3) 計算の順番　５通り　　　３＋４＋５＋６で
　　　　　　前から順に　　　　　　　①　７　　＋５＋６
　　　　　　　　　　　　　　　　　　　　１２　　　＋６
　　　　　　　　計算をしたら前へつめるので　２，２，２となる。
　　　　　　　　　　　２番目ばかりを計算していればよい。
　　　　　　中＞前＞後ろ　　　　　　②　３＋９　　＋６
　　　　　　　　　　　　　　　　　　　　１２　　　＋６
　　　　　　　　　　同様に４，２，２となる。
　　　　　　前の２つと後ろの２つから③　７　　＋１１
　　　　　　　　　　同様に２，４，２となる。
　　　　　　中＞後ろ＞前　　　　　　④　３＋９　　＋６
　　　　　　　　　　　　　　　　　　　　３＋１５
　　　　　　　　　　同様に４，４，２となる。
　　　　　　後ろから順に　　　　　　⑤　３＋４＋１１
　　　　　　　　　　　　　　　　　　　　３＋１５
　　　　　　　　　　同様に６，４，２となる。
　　　F$(3) 演算記号　４種類
　　　P$(5) 計算の順番を分かるように括弧を使った文字列。
　　　　　　　　print using文で使う。
　　　N(4) 入力した４つの数字
　　　M(24,4) Y(24,4)の順番に従って、入力した４つの数字を並び直したもの。２４通りになる。
　　　A(64,8) M(24,4)の２４通りの１つずつについて、演算記号を数の間に入れた式。６４通りある。
　　　B(8) A(＊,8)を入れて、計算用の配列
　　　Ｘ何番目の演算をするのか①－④
　　　H,I,J,K,L・・・ループ変数

[　戻る　]