解説：８−５

楕円を描くプログラム

このプログラムはプログラム自体は簡単だが、これまで使っていない予約語（const）が出てきた。

『すべてのパラメータは，値パラメータ，変数パラメータ，定数パラメータ，out パラメータのいずれかに分類されます。値パラメータがデフォルトです。予約語 var，const，out は，それぞれ変数パラメータ，定数パラメータ，出力パラメータを表します。』（Ｄｅｌｐｈｉヘルプより抜粋）

よって、constは定数を決める予約語である事が分かった。

他に、今回のプログラムは今までと違う感じに作ってあったので、わからなくなる人がいると思い、今までどうりのプログラムの書き方で作った。
こっちのプログラムの方が今までどうりで理解しやすいだろう。
同じ楕円を描くプログラムである。

プログラム：

procedure TForm1.Button1Click(Sender: TObject);

var pai, th, incr, r1, r2, x, y : real;
　　 i, n_div, xc, yc, xi, yi : integer;

begin

　　　pai := 3.1415;
　　　r1 := 200;
　　　r2 := 100;
　　　n_div := 100;
　　　incr := 2*pai/n_div;
　　　xc := 300; yc := 200;

　　　th := 0;

　　　Canvas.MoveTo(xc+round(r1),yc);

　　　for i := 1 to n_div do begin

　　　　　　th := th + incr;

　　　　　　x := r1 * cos(th);
　　　　　　y := r2 * sin(th);

　　　　　　xi := round(xc + x);
　　　　　　yi := round(yc - y);
　　　　　　Canvas.LineTo(xi,yi);

　　　end;

end;

end.

　　　　結果：