掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
正５角形の作成について (ID：8861)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じ？ procedure TForm1.Button1Click(Sender: TObject); var i,x,y :integer; begin with Canvas do begin for i:=0 to 5 do begin x := round( 200*sin(2*3.1416*i/5) +200); y := round( 200*cos(2*3.1416*i/5) +200); if i>0 then LineTo(x,y) else MoveTo(x,y); end; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.