‖一括処理部品集６‖kagen.html                        　　　　《戻る》　《玄関へ》
　《　足し算または引き算問題を乱数を使って変えることで作る。　》

【内容】
　　「算数のおけいこ」の「足し算と引き算」の問題を自動作成する。
　　桁数や繰り上がりのありなしを選べます。

【用例】
　（表定義の一部）
　　　　　[一Ａ]：初項の一の位の数値を乱数入力する項目
　　　　　[十Ａ]：初項の一の位の数値を乱数入力する項目
　　　　　[百Ａ]：初項の一の位の数値を乱数入力する項目
　　　　　[Ａ]：初項の値　#cond([一Ａ]="","",1,[百Ａ]*100+[十Ａ]*10+[一Ａ])
　　　　　[一Ｂ]：第二項の一の位の数値を乱数入力する項目
　　　　　[十Ｂ]：第二項の一の位の数値を乱数入力する項目
　　　　　[百Ｂ]：第二項の一の位の数値を乱数入力する項目
　　　　　[Ｂ]：初項の値　#cond([一Ｂ]="","",1,[百Ｂ]*100+[十Ｂ]*10+[一Ｂ])
　　　　　[番号]を設け連番を予め入力している。レコード数＝２４
　　　　　他の項目は略す

　（フォームの定義：画面演習用、略）

　（レポートの定義：問題印刷用、略）

　（一括処理の一部）
　　名札　加減メニュー　　　　　�@
　　　　メニュー２　&加減,&加減,( 7,41),＃連結（&ｼｽﾃﾑ名,”加減問題の種類を選んでください。”）\
　　　　　,"足し算(２桁＋１桁),足し算(２桁＋２桁),足し算(３桁＋２桁),足し算(２桁＋３桁),足し算(３桁＋３桁) \
　　　　　,引き算(２桁−１桁),引き算(２桁−２桁),引き算(３桁−２桁),引き算(３桁−３桁)" ￥
　　　　　,"繰上りなし加算(２桁＋１桁),繰下りなし減算(２桁−１桁),繰上りあり加算(２桁＋１桁),繰上りあり加算(１桁＋１桁) \
　　　　　,繰下りあり減算(２桁−１桁),１桁＋１桁＝＜９,１桁−１桁＞＝０,中止(メインメニューへ)"
　　　　条件　(&加減=17)　分岐　START
　　手続き終了

　　・・・・・・・・
　　名札　加減初期化　　　　　　�A
　　　　置換　[問題番号]=#未定義,[区分]=#未定義,[解答]=#未定義,[百Ａ]="",[十Ａ]="",[一Ａ]="" \
　　　　　　　,[百Ｂ]="",[十Ｂ]="",[一Ｂ]="",[千Ｃ]="",[百Ｃ]="",[十Ｃ]="",[一Ｃ]="",[演算]=""
　　手続き終了

　　・・・・・・・・
　　名札　加減乱数入力　　　　　�B
　　　ケース開始
　　　　ケース　(&加減=1)
　　　　　　繰り返し　(.not #終端行)
　　　　　　　　行訂正　[演算]="＋",[十Ａ]=#乱数(9)+1,[一Ａ]=#乱数(10) \
　　　　　　　　　　　　,[一Ｂ]=#乱数(9)+1
　　　　　　　　ジャンプ　行番号=+1
　　　　　　繰り返し終了
　　　　ケース　(&加減=2)
　　　　　　繰り返し　(.not #終端行)
　　　　　　　　行訂正　[演算]="＋",[十Ａ]=#乱数(9)+1,[一Ａ]=#乱数(10) \
　　　　　　　　　　　　,[十Ｂ]=#乱数(9)+1,[一Ｂ]=#乱数(10)
　　　　　　　　ジャンプ　行番号=+1
　　　　　　繰り返し終了
　　　　ケース　(&加減=3)
　　　　　　繰り返し　(.not #終端行)
　　　　　　　　行訂正　[演算]="＋",[百Ａ]=#乱数(9)+1,[十Ａ]=#乱数(10),[一Ａ]=#乱数(10) \
　　　　　　　　　　　　,[十Ｂ]=#乱数(9)+1,[一Ｂ]=#乱数(10)
　　　　　　　　ジャンプ　行番号=+1
　　　　　　繰り返し終了
　　　　ケース　(&加減=4)
　　　　　　繰り返し　(.not #終端行)
　　　　　　　　行訂正　[演算]="＋",[十Ａ]=#乱数(9)+1,[一Ａ]=#乱数(10) \
　　　　　　　　　　　　,[百Ｂ]=#乱数(9)+1,[十Ｂ]=#乱数(10),[一Ｂ]=#乱数(10)
　　　　　　　　ジャンプ　行番号=+1
　　　　　　繰り返し終了
　　　　ケース　(&加減=5)
　　　　　　繰り返し　(.not #終端行)
　　　　　　　　行訂正　[演算]="＋",[百Ａ]=#乱数(9)+1,[十Ａ]=#乱数(10),[一Ａ]=#乱数(10) \
　　　　　　　　　　　　,[百Ｂ]=#乱数(9)+1,[十Ｂ]=#乱数(10),[一Ｂ]=#乱数(10)
　　　　　　　　ジャンプ　行番号=+1
　　　　　　繰り返し終了
　　　　ケース　(&加減=6)
　　　　　　繰り返し　(.not #終端行)
　　　　　　　　行訂正　[演算]="−",[十Ａ]=#乱数(9)+1,[一Ａ]=#乱数(10) \
　　　　　　　　　　　　,[一Ｂ]=#乱数(9)+1
　　　　　　　　ジャンプ　行番号=+1
　　　　　　繰り返し終了
　　　　ケース　(&加減=7)
　　　　　　繰り返し　(.not #終端行)
　　　　　　　　行訂正　[演算]="−",[十Ａ]=#乱数(9)+1,[一Ａ]=#乱数(10) \
　　　　　　　　　　　　,[十Ｂ]=#乱数(9)+1,[一Ｂ]=#乱数(10)
　　　　　　　　&A=[Ａ],&B=[Ｂ]
　　　　　　　　条件　(&A>=&B)　ジャンプ　行番号=+1
　　　　　　繰り返し終了
　　　　ケース　(&加減=8)
　　　　　　繰り返し　(.not #終端行)
　　　　　　　　行訂正　[演算]="−",[百Ａ]=#乱数(9)+1,[十Ａ]=#乱数(10),[一Ａ]=#乱数(10) \
　　　　　　　　　　　　,[十Ｂ]=#乱数(9)+1,[一Ｂ]=#乱数(10)
　　　　　　　　ジャンプ　行番号=+1
　　　　　　繰り返し終了
　　　　ケース　(&加減=9)
　　　　　　繰り返し　(.not #終端行)
　　　　　　　　行訂正　[演算]="−",[百Ａ]=#乱数(9)+1,[十Ａ]=#乱数(10),[一Ａ]=#乱数(10) \
　　　　　　　　　　　　,[百Ｂ]=#乱数(9)+1,[十Ｂ]=#乱数(10),[一Ｂ]=#乱数(10)
　　　　　　　　&A=[Ａ],&B=[Ｂ]
　　　　　　　　条件　(&A>=&B)　ジャンプ　行番号=+1
　　　　　　繰り返し終了
　　　　ケース　(&加減=10)
　　　　　　繰り返し　(.not #終端行)
　　　　　　　　行訂正　[演算]="＋",[十Ａ]=#乱数(9)+1,[一Ａ]=#乱数(10),[一Ｂ]=#乱数(9)+1
　　　　　　　　&A=[一Ａ],&B=[一Ｂ]
　　　　　　　　条件　(&A+&B<10)　ジャンプ　行番号=+1
　　　　　　繰り返し終了
　　　　ケース　(&加減=11)
　　　　　　繰り返し　(.not #終端行)
　　　　　　　　行訂正　[演算]="−",[十Ａ]=#乱数(9)+1,[一Ａ]=#乱数(10),[一Ｂ]=#乱数(9)+1
　　　　　　　　&A=[一Ａ],&B=[一Ｂ]
　　　　　　　　条件　(&A>=&B)　ジャンプ　行番号=+1
　　　　　　繰り返し終了
　　　　ケース　(&加減=12)
　　　　　　繰り返し　(.not #終端行)
　　　　　　　　行訂正　[演算]="＋",[十Ａ]=#乱数(9)+1,[一Ａ]=#乱数(10),[一Ｂ]=#乱数(9)+1
　　　　　　　　&A=[一Ａ],&B=[一Ｂ]
　　　　　　　　条件　(&A+&B>9)　ジャンプ　行番号=+1
　　　　　　繰り返し終了
　　　　ケース　(&加減=13)
　　　　　　繰り返し　(.not #終端行)
　　　　　　　　行訂正　[演算]="＋",[一Ａ]=#乱数(9)+1,[一Ｂ]=#乱数(9)+1
　　　　　　　　&A=[一Ａ],&B=[一Ｂ]
　　　　　　　　条件　(&A+&B>9)　ジャンプ　行番号=+1
　　　　　　繰り返し終了
　　　　ケース　(&加減=14)
　　　　　　繰り返し　(.not #終端行)
　　　　　　　　行訂正　[演算]="−",[十Ａ]=#乱数(9)+1,[一Ａ]=#乱数(10),[一Ｂ]=#乱数(9)+1
　　　　　　　　&A=[一Ａ],&B=[一Ｂ]
　　　　　　　　条件　(&A<&B)　ジャンプ　行番号=+1
　　　　　　繰り返し終了
　　　　ケース　(&加減=15)
　　　　　　繰り返し　(.not #終端行)
　　　　　　　　行訂正　[演算]="＋",[一Ａ]=#乱数(10),[一Ｂ]=#乱数(10)
　　　　　　　　&A=[一Ａ],&B=[一Ｂ]
　　　　　　　　条件　(&A+&B<10)　ジャンプ　行番号=+1
　　　　　　繰り返し終了
　　　　ケース　(&加減=16)
　　　　　　繰り返し　(.not #終端行)
　　　　　　　　行訂正　[演算]="−",[一Ａ]=#乱数(10),[一Ｂ]=#乱数(10)
　　　　　　　　&A=[一Ａ],&B=[一Ｂ]
　　　　　　　　条件　(&A-&B>-1)　ジャンプ　行番号=+1
　　　　　　繰り返し終了
　　　ケース終了
　　　手続き実行　表初期化
　　手続き終了

　　・・・・・・・・
　　名札　加減問題準備　　　　　�C
　　　絞り込み　単一化={[Ａ],[Ｂ]}
　　　条件　(&加減<6)　検索条件登録　条件名="加減問題",{[Ａ]>0,[Ｂ]>0}
　　　条件　(&加減>5 .and &加減<10)　検索条件登録　条件名="加減問題",{[Ａ]>0,[Ｂ]>0,[Ａ]>[Ｂ]}
　　　条件　(&加減<10)　絞り込み　条件名="加減問題"
　　　置換　[問題番号]=#連番,[区分]=&加減
　　手続き終了
　　・・・・・・・・

【解説】
　�@　加減問題のメニューです。選んだ問題の種類を変数（&加減）に記憶させる。
　�A　加減問題で使用する項目を初期化します。
　�B　加減問題で使用する項目に乱数を入力します。
　　　　各ケースにおいて問題の種類の条件に合わない場合は乱数を再入力します。
　�C　加減問題準備
    　　　初項と第二項が一致する場合も生じる。このためレコードの単一化絞り込みをおこなうことで
　　　　同一問題の重複出題を避ける。
　　　
【参考】
　　「作品案内」→「算数のけいこ」→から処理画面例がご覧になれます。

　　　　　　　　　　　　　　　　　　　　　　END of FILE　　《戻る》　《玄関へ》