next up previous contents
Next: グラフィック Up: GOSUB 関数副プログラムを用いる Previous: GOSUB 関数副プログラムを用いる   Contents

Sample Program 10


\begin{code}
10 pi1=3.14
20 r=1.45
30 gosub *circ
40 gosub *area
50 end
60 *circ...
...=''; 2*pi1*r
80 return
90 *area
100 print ''A=''; pi1*r^2
110 return
\end{code}

ここで、*circと*areaはそれぞれ円周と円の面積を計算する副プログラムです。 副プログラムは、必ずreturnでその区切りを明示しなければなりません。pi1としたのは、 piがTiny Basicではすでに円周率として準備された予約語だからです。



Takeyoshi Nagai 2013-10-07