川崎北高校情報科
ＢＡＳＩＣの基礎
〜繰り返すプログラムを作ろう〜
　
もっとも基本的なプログラミング言語としてＢＡＳＩＣを学びます。 ＢＡＳＩＣとはパソコンに命令する言葉の集まりです。いくつかの命令を使えれば、 方程式を解いたり、インベーダーゲームのようなものを作ったりできます。 ここでは、Ｎ８８-ＢＡＳＩＣで簡単なゲームをいくつか作ってみましょう。作：柴田　功
■準備

N88BASICをWindows上で動かすためにフリーソフトN88BASIC互換BASIC　for　Windows95をダウンロードします
■ＢＡＳＩＣのおもなコマンド、関数

　FOR〜TO〜STEP〜NEXT　　 　ＦＯＲ文から、ＮＥＸＴ文までを指定した回数くり返し実行する　

■課題

課題 プログラム 実行結果
【１】　　 自分の名前を１０回表示させるプログラムを作ろう 10 FOR I=1 TO 10
20 PRINT "ISAO";
30 NEXT I
　 　
【２】 ７色で７本の直線を引くプログラムを作ろう 10 FOR I=1 TO 7
20 LINE(20,I*10)-(100,I*10),I
30 NEXT I
　
【３】 ７色で７本の同心円を描くプログラムを作ろう
　
【４】 原点からランダムな座標に１０本の直線を引くプログラムを作ろう 10 CLS
20 FOR I=1 TO 10
30 X=RND(1)*100
40 Y=RND(1)*100
50 LINE(0,0)-(X,Y),1
60 NEXT I
　
【５】 ランダムな位置に１０個の円を描くプログラムを作ろう
　
【６】 ランダムな位置、半径、色の１０個の円を描くプログラムを作ろう
　
【７】 ランダムな位置、色の１０００個の点を打つプログラムを作ろう 10 CLS
20 FOR I=1 TO 1000
30 X=RND(1)*100
40 Y=RND(1)*100
50 C=INT(RND(1)*7+1)
60 PSET(X,Y),C
70 NEXT I
　
【８】 １００個の点で直線を引くプログラムを作ろう 10 CLS
20 FOR X=1 TO 100
60 PSET(X,50),3
70 NEXT X
　
【９】 １０個の点を一直線上に５ドット間隔で打つプログラムを作ろう 10 CLS
20 FOR X=1 TO 100 STEP 5
30 PSET(X,50),4
40 NEXT X
　
【10】 １０個の点を平面上に５ドット間隔で打つプログラムを作ろう 10 CLS
20 FOR X=1 TO 100 STEP 5
30 FOR Y=1 TO 100 STEP 5
40 PSET(X,Y),6
50 NEXT Y
60 NEXT X
　
【11】 縦、横それぞれ１０本の直線を等間隔に引くプログラムを作ろう

　※　for〜to〜nextは１組で作ることができます。

index