〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第５３回］
●ＦＯＲ，ＮＥＸＴ（２）
前回はＦＯＲについて説明しただけで終ってしまいました。
今回はＮＥＸＴについて説明します。
ＮＥＸＴ文はＦＯＲループの終わりに置きます。
ＡＳ ＴＨＥ ＬＯＧＩＣＡＬ （ＮＯＴ ＮＥＣＥＳＳＡＲＩＬＬＹ ＰＨＹＳＩＣＡＬ） ＥＮＤ
と書いてあります。
なかなかに親切です。
ここでいう「終わり」とは「論理的な」終わりであって、「物理的な」終わりである必要はない、ということです。
ＧＯＴＯ文はプログラムの前方でも後方でも自由に飛ぶことができます。
たまたまプログラムの組み方によって（ＧＯＴＯ文を使うことで）、ＦＯＲ文よりもＮＥＸＴ文のほうが若い行番号になってしまうことがあるかもしれません。
それでも「論理的に」間違ってなければ構いません。
必ずしもＦＯＲ文よりもＮＥＸＴ文のほうが「物理的に」後ろにある必要はありません。
もっともそういうことが許されることが後年ＢＡＳＩＣの欠点として指摘を受けることになります。
ＧＯＴＯ文を多用することでそれこそ自由気ままなプログラムを書くことができるため、あとでそのプログラムを読もうとすると前に行ったり後ろに飛んだりとまるで絡み合ったスパゲッティ状態で、これではどこが頭でどこが尻尾かわからんではないか、という批判です。
確かにもっともな指摘です。
そういうプログラムはつとめて書かないようにしたいものです。
しかしＧＯＴＯ文の便利さに慣れてしまうと、ＧＯＴＯが使えないＣ言語はどうしても欲求不満でいらいらしてしまいます。
念のため確認してみたところＣ＋＋でもＧＯＴＯは使えるらしいことがわかりました。
しかし制約はあるようです。
余談になってしまいました。
ＮＥＸＴの説明に戻ります。
ＴＩＮＹ ＢＡＳＩＣのＮＥＸＴは後ろに変数名を記述します。
ＮＥＸＴ 変数名
の形になります。
変数名を省略することはできません。
その変数名と ’ＬＯＰＶＡＲ’ の値とが照合されます。
正しいプログラムを書いていれば両者は一致するはずです。
もし一致しなければ、一致するまでスタックを「掘り下げて（ＤＩＧ）」探します。
一致するＦＯＲ変数グループがみつかったら、そこまでのスタックは全部削除してしまいます（！）。
いずれにせよ、ＮＥＸＴ文で変数の確認が出来た後、その変数に ’ＳＴＥＰ’ の値が加算されます。
そしてその値がＦＯＲ文の ’ＴＯ’ で設定した上限値以内であることを確認します。
もし上限値以内ならば制御はＦＯＲ文の次の命令に戻って、ＦＯＲループの実行が続けられます。
もしも上限値を越えたならば、現在のＦＯＲ変数領域の値はクリアされ、そしてＮＥＸＴ文の次の文が実行されます。
ＮＥＸＴについての説明は以上なのですが。
ＴＩＮＹ ＢＡＳＩＣでＦＯＲ文とＮＥＸＴ文の不一致が発見された場合の対応（！をつけた文）については、私としてはちょっと疑問を感じます。
私見なのですが。
確かにＦＯＲ文については前回書きましたように、ＦＯＲのネスティングの中で同じ変数が使われていないかどうかをチェックすることには意味があると思います。
しかしＮＥＸＴ文でもそれをやる必要があるかというと、それはちょっと疑問です。
ＮＥＸＴ文が実行される時点で、アクティブなＦＯＲ変数と一致しなかったならば、そこでＷＨＡＴ？もしくはＨＯＷ？を表示してエラー終了してしまったほうが簡単なのでは、と思います。
ＴＩＮＹ ＢＡＳＩＣでエラーが発生するサンプルプログラムです。
どこが間違っているかわかりますよね。
このプログラムを実行すると、当然エラーが発生します。
実行してみました。
私の考えでは４０ ＮＥＸＴ Ａでエラーになるべきと思いますが、そうではなくて５０ ＮＥＸＴ Ｂでエラーになります。
４０ ＮＥＸＴ Ａが実行される時点でアクティブなＦＯＲループは変数ＢのＦＯＲループです。
ＮＥＸＴ文の説明にあるように変数名が一致しませんから、その場合には変数Ａがみつかるところまでスタックを掘り下げて変数ＡのＦＯＲループをアクティブにします。
同時に変数ＢのＦＯＲループは削除してしまいます（強制終了です）。
そのあとで５０ ＮＥＸＴ Ｂが実行されるため、そこでＷＨＡＴ？が出されることになります。
説明の通りなのですが、この動作はやっぱり気持ちが悪いですし、手間暇かけてわざわざスタックを掘り下げなくても４０ ＮＥＸＴ Ａを実行する時点で「変数不一致」のエラーにしてしまうほうが、それだけＮＥＸＴのプログラムが簡単になってよいように思われます。
ＴＩＮＹ ＢＡＳＩＣの作者がわざわざそのような面倒なプログラムを書いたのには何か理由があるのかもしれませんが、やっぱり私にはちょっと納得ができません。
こちらは中日電工のＺＢ３ＢＡＳＩＣでの実行例です。
ＥＲＲ：２０は「ＦＯＲ文とＮＥＸＴ文で変数名が一致しない」というエラーです。
復活！ＴＩＮＹ ＢＡＳＩＣ［第５３回］
２０２０．８．１ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る