小さなお友だちの為の MacOsXでBASIC #6 関数で円を描く

記述する動機

私、とある専門学校でPGを教えています。はや８年。いまだにSEもやってます。
学生さんたちに読んでもらうために書いているのですが、悩めるプログラマ、悩めるSE、悩める教育関係者にも何かのヒントにはなると思い、あえて公開していきたいと思います。全て実例です。個人名は秘密！！

BASIC

名前は「beginner's all-purpose symbolic instruction code」（「初心者向け汎用記号命令コード」を意味する）の頭字語である。

18歳以上はLinux,Macでc,Javaやりましょう。GCCを使えるようになりましょう。
14歳から18歳はOS問わず、IDEを使って、言語は何でもいい。
10歳から14歳は lua or BASIC おまけでscratch
10歳未満はコンピュータなんかやらんで良し。言語能力、身体能力を鍛えましょう。

前提

http://qiita.com/ggggnonaka/items/8cf3b069594e684f9c0e
を御覧ください。

コード

第一象限から順次描画しています。

06.BAS

06.BAS

10 DEF f(x)=  SQR(16-x^2)
20 SET WINDOW -8,8,-8,8
30 DRAW GRID
40 FOR x=0 TO 4 STEP 0.001
50    PLOT LINES: x, f(x)
60 NEXT x
70 FOR x=0 TO 4 STEP 0.001
80    PLOT LINES: x, -f(x)
90 NEXT x
100 FOR x=-4 TO 0 STEP 0.001
110    PLOT LINES: x, f(x)
120 NEXT x
130 FOR x=-4 TO 0 STEP 0.001
140    PLOT LINES: x, -f(x)
150 NEXT x
160 END

実行結果

おお！きれいに描画できてます。（x軸でちょっと切れてます。）