川崎北高校情報科 〜繰り返すプログラムを作ろう〜 |
|||||
| もっとも基本的なプログラミング言語としてＢＡＳＩＣを学びます。 ＢＡＳＩＣとはパソコンに命令する言葉の集まりです。いくつかの命令を使えれば、 方程式を解いたり、インベーダーゲームのようなものを作ったりできます。 ここでは、Ｎ８８-ＢＡＳＩＣで簡単なゲームをいくつか作ってみましょう。作：柴田 功 | |||||
| ■準備 | |||||
N88BASICをWindows上で動かすためにフリーソフトN88BASIC互換BASIC for Windows95をダウンロードします |
|||||
| ■ＢＡＳＩＣのおもなコマンド、関数 | |||||
|
|||||
| ■課題 | |||||
| 課題 | プログラム | 実行結果 | |
|---|---|---|---|
| 【１】 | 連続する点で直線を描くプログラムを書作ろう | 10 CLS 20 FOR X=1 TO 100 30 PSET(X,50),4 50 NEXT X |
 |
| 【２】 | 連続する点のＹ座標を三角関数（ＳＩＮ）で変化させるプログラムを作ろう | 10 CLS 20 FOR X=1 TO 100 30 Y=30*SIN(X/5) 30 PSET(X,Y+50),4 50 NEXT X |
 |
| 【３】 | 【２】のSTEPの値をを小さくして、点の間隔を狭くするように修正しよう |  |
|
| 【４】 | LINE文で【３】にＹ軸を表示させよう |
 |
|
| 【５】 | 連続する点のＹ座標を三角関数（TAN）で変化させるプログラムを作ろう |  |
|
| 【６】 | 【４】と【５】の両方を同時に描くプログラムを作ろう |  |
|
| 【７】 | 周期の異なるサインカーブを描くプログラムを作ろう |  |
|
| 【８】 | 周期をINPUT文で入力してからサインカーブを描くプログラムを作ろう | 10 CLS 20 INPUT "周期Ｔ＝";T 30 LINE(0,50)-(100,50),2 40 FOR X=1 TO 100 STEP .1 50 Y=30*SIN(X/5) 60 Z=30*SIN(X/T) 70 PSET(X,Y+50),6 80 PSET(X,Z+50),4 90 NEXT X |
 |
| 【９】 | 振幅もINPUT文で入力してからサインカーブを描くプログラムを作ろう |  |
|
| 【10】 | 【９】で描くサインサーブを重ね合わせた曲線を描くプログラムを作ろう |  |
|
| 発展 | リサージュ曲線を描くプログラムを作ろう ヒント：媒介変数（パラメータ）を使う （Tを変化させ、X,ＹをＴの関数として扱う） |
 |
|