Ｑｕｉｃｋ ＢＡＳＩＣの練習（２）～プログラム・モードでの入力＆実行

超初心者のプログラミング学習記事、第４弾。ほとんど予備知識ゼロの状態

から、ここまで３本の記事を書いて来た。正直、アクセス数は期待してなかっ

たが、予想より読者は多いから、関心を持ってる初心者の方々は少なくない

んだろう。

過去の３本は次の通り。ソフトのダウンロード方法その他、基本的な事はあ

まり繰り返さないので、必要ならば以下をご参照あれ。

　　初めてのプログラミング♪

　　　　　　　　　　　　　　～メモ帳でバッチファイル作成（コマンドプロンプト用）

　　初めてのプログラミング（２）～計算その他、簡単なバッチファイル

　　Ｑｕｉｃｋ　ＢＡＳＩＣのダウンロード、ダイレクトモード（Ｉｍｍｅｄｉａｔｅ）入力と計算

今回はいよいよ、代表的な初心者向けソフト・ＢＡＳＩＣの１つのヴァージョン、

Ｑｕｉｃｋ　ＢＡＳＩＣ（クイック・ベーシック）を使って、プログラミングに挑戦する。

Ｍｉｃｒｏｓｏｆｔ（マイクロソフト）社自体が作ったヴァージョンかどうかは不明で、

無料のライセンス供与みたいなものかも知れない。いずれにせよ、合法的

なもののはず。

使用テキストは前回と同じく、少し前の高校数学の教科書、数研出版『数学Ａ』

（１９９５年版）。教科書の記述のままだと上手く行かないこともあるので、マイ

ナーチェンジの試行錯誤を繰り返すことになる。。

　　　　　　　　　　☆　　　　　　　　　　☆　　　　　　　　　　☆

初めて作って保存した、記念すべきプログラム「PROG０００１」は、下の通り。

ファイル名の拡張子は「．ＢＡＳ」となってるから、ベーシック・ファイルということ

か。前回のダイレクト（直接）モードでは画面の下側を使ったが、プログラム・

モードでは上側を使用する。要するに、こっちの方が普通ということだろう。

左に通し番号を付ける時、基本的に１０ずつ書いてるのは、後で途中に必要

な命令を挿入するため。実際、私も途中で挿入したことがあった。

通し番号の右に、半角スペースを入れて、その右に命令を半角入力。最初に、

Ａ＝７という情報を伝えた後、「ＰＲＩＮＴ　Ａ」と命令することで、Ａの値をプリント

（＝画面表示）させる。プログラムの最後は、終了の命令、「ＥＮＤ」（エンド）。

最初の式「Ａ＝７」が左右に広がって、スペースが入ってか全角になってるよう

に見えるが、これはソフトが勝手にやってること。私自身は普通に、半角で連

続入力してるだけだ。見やすくするための配慮だろうか。

プログラムの保存作業はほぼ普通通りだが、名前の付け方にかなり制限があ

るようで、２回却下されてしまった。それより問題は、プログラムの「実行」。教科

書では、「ＲＵＮ」という命令を入力するようになってるけど、私の場合は上手く

行かなかった。よく見ると、上のメニューバーに「Ｒｕｎ」と書かれてるから、そこを

クリックして成功。本当はキーボード入力でも、どうにか出来るのかも知れない。

　とにかく、プログラムを実行させると、

　画面が黒く切り替わって、７とだけ表

　示された。適当にキーを押すと、元

　の青い画面に戻る。そこで、

「ＦＩＬＥ」メニューから「ＮＥＷ」を選択、新たなプログラミングが可能になる。

　　　　　　　　　　　　☆　　　　　　　　　　☆　　　　　　　　　　☆

　続いて、２乗の計算プ

　ログラム。まず第１０

　行は、プログラムの実

　行時に、Ａの値を入力

　（ＩＮＰＵＴ：インプット）

　させるように命令する

もの。単に「ＩＮＰＵＴ　Ａ」とするのではなく、「”Ａ＝”；」を挟むことで、実行後の

入力待ち画面に「Ａ＝？」と表示される。そこで数値を入力してエンター・キー

を押せば、その先まで表示されるのだ。

第２０行は、「Ａ＝・・・」という形でＡの値を表示せよという命令。第２５行は、

「Ａ＊Ａ＝・・・」という形でＡ×Ａの計算結果を表示せよ、という命令。このプロ

　グラムを実行（ＲＵＮ）させて、Ａに３を入力すると、

　左のように表示される。

　ここでも半角スペースが入ってるように見えるが、

ソフトが勝手に表示してることだ。最初に３を入力する時も、私は別に半角ス

ペースは入れてない。

　　　　　　　　　　☆　　　　　　　　　　☆　　　　　　　　　　☆　

次もほぼ同様で、２乗の計算の代わりに平方根（ＳＱＵＡＲＥ　ＲＯＯＴ）を計算

　させるプログラム。平方

　根については、元から

　ソフトに入ってる組み込

　み関数ＳＱＲ（Ｘ）を使用

　した。

　実行して、１６を入力した結果は左の通り。確か

　に、√１６の値である４が表示されてる。この辺

　りで、ようやくほんの少し慣れを感じて来た。　　

　　　　　　　　　　　☆　　　　　　　　　　☆　　　　　　　　　　☆

続いて、三角関数。サインの組み込み関数ＳＩＮ（Ｘ）は、角度Ｘの単位がラジア

ンだから、普通の度数（ｄｅｇｒｅｅ）を入力する場合はラジアンに直す必要がある。

１８０度でπラジアン、つまり３．１４ラジアンだから、度数を１８０で割って３．１４

倍すればいい。教科書では、πの近似値として３．１４１５９を使ってるが、別に

正確な計算をしたい訳ではないから、一目で円周率と分かる３．１４を選択した。

第３０行の命令の前半で、私が「＝」（等号）を入れ忘れたので、角度Ａの度数

　を３０と入力した後の画面は

　左の通り。３行目に「＝」が

　入ってないのだ。

計算結果の０．４９９７７０１は、本来のｓｉｎ３０°の値０．５より僅かに小さい値。

もちろん、π＝３．１４１５９２６５３５・・・に対して、僅かに小さい３．１４を使った

から、ラジアン単位の角度が少し小さくなり、サインの値も少し小さくなるわけだ。

　　　　　　　　　　☆　　　　　　　　　　☆　　　　　　　　　　☆

さらに、三角関数のｃｏｓ（コサイン）について、少し違うプログラミングを試して

みた。上のｓｉｎと同じ書き方でももちろんいいが、計算を２段階（ｏｒ３段階）に

分けてある。

　まず、度数表示の

　角度Ａをラジアン

　表示の角度Ｘへと

　換算。次に、

　ｃｏｓ（Ｘ）の値を

　Ｙとおき、最後に

そのＹの値を、「ＣＯＳ（Ａ　ＤＥＧＲＥＥ）」（コサインＡ度）として表示させた。

　実行して、角度Ａに６０

　度を入力すると、左のよ

　うに表示された。ラジア

ン表示の角度が少し小さくなるから、答はｃｏｓ６０°＝０．５より少し大きい値、

０．５００４５９６となってる。ちなみに英語で「６０度」と言う時は、複数形で

「６０　ｄｅｇｒｅｅｓ」となるようだ。

　　　　　　　　　　☆　　　　　　　　　　☆　　　　　　　　　　☆

今回のラストは、「相加平均」と「相乗平均」の比較。教科書の練習問題（答な

し）を自分でやってみたのだ。

２つの数Ａ，Ｂに対して、加えて２で割った平均が相加平均（Ａ＋Ｂ）／２。一方、

掛け合わせて平方根を取った平均が相乗平均√（Ａ×Ｂ）。０以上のＡ，Ｂに対

しては常に、 （相加平均）≧（相乗平均） となる。

　今回は２つの数

　を入力した後、

　その２つと平均

　２つ、計４つ表

　示させることに

　なる。やや不安

だったが、普通にプログラミングしてみると成功した。

　　ちなみにＡとＢの入力は、１つ１つ、つまり１行

　　ずつ進める形。２と８を入力すると、

　　ＳＯＵＫＡ（相加平均）＝（２＋８）÷２＝５、

　　ＳＯＵＪＯＵ（相乗平均）＝√（２×８）＝４。

　　正しく表示されてるし、確かに相加平均の

　　方が大きい。

これで、代表的なソフトによるプログラミングが一応、成功したので、最初の壁

を突破したような気分になれた。もちろん、まだまだ超初心者なので、少しずつ

先を目指すとしよう。

それでは、今日はこの辺で。。☆彡

ｃｆ．　Ｑｕｉｃｋ　ＢＡＳＩＣの練習（３）～ＲＥＭ 文、ＧＯＴＯ 文、ＩＦ 文、各種トラブル・・

　　　　　　　　　　　　　　　　　　（４）～ＩＦ 文、ＦＯＲ 文、ＮＥＸＴ 文とループ（繰り返し）

　　　　　　　　　　　　　　　　　　（５）～二重ループ、流れ図（フローチャート）

　　　　　　　　　　　　　　　　　　（６）～ＤＩＭ文と配列変数（添字つき変数）

　　　　　　　　　　　　　　　　　　（７）～関数値の計算、方程式の近似値

　　　　　　　　　　　　　　　　　　（８）～素数の判別、エラトステネスのふるい

　　　　　　　　　　　　　　　　　 （９）～数列の二項間漸化式と固有値、一般項

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（計　３０４１字）