Supports Zero-Starting! | Object Pascalと僕と

ゼロ始まりに対応！

どんな理由があって、そうなったのか知りませんが、マークシート方式で行われる予定の大学入学共通テストサンプル問題、教科「情報Ⅰ」の解答の選択肢は、始まりが「１」ではなく、「０」からになってます･･･。

ディジタルのイメージから、「０」・「１」とつながる０始まりにしたのか？
それとも他に何か０から始めなければならない必然的な理由があるのか？
サンプル問題を作成した方に、その理由をぜひ伺ってみたい気もしますが･･･

今回は、My MarkSheet Reader を、解答の選択肢「０」始まりに対応させたというお話です。

【今回の記事】

１．なんで０始まりなの？
２．教科「情報」用マークシートを作成
３．ゼロ始まりに対応
４．まとめ
５．お願いとお断り

１．なんで０始まりなの？

大学入学共通テストの理科基礎科目は例外なく、解答の選択肢の始まりは「１」から。
物理も、化学も、生物も、地学も、全部、それが「１」になってるってのは、「選択肢の始まりは１から」って、誰もがそう感じるから･･･だと思うのですが。

教科「情報」では、なぜかそれが「０」からになってる･･･。

検索してみると、そのことに注意を促すWebサイトが複数見つかります。
例えば、選択肢の番号が「０」始まりであることに気付かず、「１２１」とマークしたつもりが実際には「０１０」だった。思い込みにはくれぐれも注意しましょう！･･･みたいな。

僕は、僕のマークシートリーダーをよくする云々ではなく、今回だけは、この無視できない現実にとにかく「対応する」ことにしました！

２．教科「情報」用マークシートを作成

まずはマークシートそのものを準備しなければいけません。これが理科の場合なら、選択肢の数は８個もあれば十分です。しかし、教科「情報」では、例えば著作権関係の内容を見てみると、著作者の権利として、氏名表示権、同一性保持権、複製権、上演権、演奏権、公衆送信権、口述権、展示権、頒布権、貸与権、翻訳権、翻案権の12の権利があることがわかります。これを解答の選択肢として準備する場合があり得ますから、選択肢の数は少なくても15程度、十分な余裕を持って設定した方がよさそうです。

幸いなことに僕のマークシートリーダーは、数学での利用を想定して選択肢数は最大16個まで対応できるように作成してあります。そこで、数学用のマークシートを改造して教科「情報」用のマークシートを作成することにしました。

まず、行番号の「アイウエオ･･･」を「１２３４５･･･」に書き換えます。

次に、マークを０始まりで15まで、16個用意します。
１行分作成したら、あとはひたすらコピペします。
これを３列分繰り返して、１列25問×３で75問に対応できるマークシートとしました。

列の行番号が半角のカタカナから、半角の数字２桁になったため、解答欄座標を取得するマーカー■■■（トリプルドット）の位置に関して若干の修正が必要でしたが、何とか思った通りの形に仕上げることができました。

出来れば、問題数は100問まで対応可能としたいところですが、用紙サイズの関係もあり、75問でよしとすることにしました。どうしても75問以上の設問が必要な場合は、数学用途に２枚１セットで採点できるようにプログラムを組んであるので、それを活用すればなんとかなります。まぁ･･･試験時間60分なら、最大75問に対応していればOKでしょう。

とりあえず、マークシートは完成です。ここまでは極めて順調に推移しました。次は、いよいよプログラムの改良です。

３．ゼロ始まりに対応

どのようにプログラムを改良しようかと考えた時、一瞬、教科「情報」専用のマークシートリーダーにしようか･･･と思ったのですが、やはり、そうではなく、１つのプログラムで様々な教科・科目に対応できる方が理想だと思い直し、選択肢の始まりは「０」とするか、「１」とするか、ユーザーが選べるようにプログラムを改良することにしました。

設定欄に、最初の選択肢の番号を指定するVCLコントロールを設置するスペースを何とか作成し、そこにComboBox１個とLabelを２つ貼って、上の図のように選択肢の始まりの番号を指定できるようにしました。もちろん、ここで指定した番号は必要であればイニシャライズファイルに保存して、次回起動時も有効化されるように設定。このComboBoxの名前は思いついたまま適当に「cmbOneZeroSelect」として、読み取りコードを次のように改良します。

  begin
    //StringGridに読み取り結果を表示
    //オリジナルのプログラムは１行で終わってた
    //StringGrid1.Cells[intSG_Col,intSG_Row]:=strAnsList[intSG_k];
    //選択肢の０始まりに対応できるようコードを改良
    if cmbOneZeroSelect.Text='1' then
    begin
      StringGrid1.Cells[intSG_Col,intSG_Row]:=strAnsList[intSG_k];
    end else begin
      if (strAnsList[intSG_k]='99') or (strAnsList[intSG_k]='999') then
      begin
        StringGrid1.Cells[intSG_Col,intSG_Row]:=strAnsList[intSG_k];
      end else begin
        strAnsList[intSG_k]:=IntToStr(StrToInt(strAnsList[intSG_k])-1);
        StringGrid1.Cells[intSG_Col,intSG_Row]:=strAnsList[intSG_k];
      end;
    end;
    ・・・
  end;

早速、実行してみました！