BASIC/98についてお願いします。
以下の課題が明日提出で困っています。
以下のプログラムを円グラフで作れという問題です。
100 '棒グラフ
110 SCREEN 3 : CONSOLE 0,25,0,1 : CLS 3
120 DIM TBL(12),XB(12)
130 FOR J=1 TO 12 : READ TBL(J) : NEXT J
140 DATA 3,6,10,13,16,20,15,11,8,7,4,2
150 GOSUB *BOU : ' 棒グラフ
160 END
170 *BOU
180 N=12 : 'データ数
190 K=5 : '等分数
200 DM=20 : 'データの最大値
210 BX=90 : BY=320 : '原点座標 (０点の位置)
220 XL=420 : YL=300 : '横軸 (Ｘ) , 横軸 (Ｙ) の最大の長さ
230 XH=XL/N : 'Ｘ軸の目盛り幅
240 YH=YL/DM : 'Ｙ軸の目盛り幅
250 YK=YH : 'Ｙ軸の１目盛り当たりの縮尺係数