【初心者歓迎】ｽﾚを立てる前にｺｺで質問を【その3】

[0441 名前は開発中のものです。 02/11/08 12:40 ID:???]

Delphiで恐縮だが。

const
　Max = 60;
　Radius = 20;
var
　i, x, y: Integer;
begin
　x := Round(Radius * Cos(PI * 2 * i / Max));
　y := Round(Radius * Sin(PI * 2 * i / Max));
　Inc(i);

　Draw(x, y);
end;