空欄の部分を埋めていただけないでしょうか。 (ID:37259)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

begin
  with Form1.PaintBox1.Canvas do
    begin
      c の値に応じて，ブラシとペンの色を定める;          //  ???
       （例：  if c=1 then  "ブラシとペンを赤にする"
                      else  "ブラシとペンを青にする";）

中心が (x,y) で半径が r の円をかく ;               //  ???

end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with PaintBox1.Canvas do
    begin
      Brush.Color := clBlue;  Rectangle(0,0,500,280);    // 長方形 (500 X 280)
      Circle(250,140,20,1);                              // 円     (半径 20)
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
 var x1,y1,x2,y2,dx,i : integer;
begin
  dx := 1;
  x1 := 250;  y1 := 140;

with PaintBox1.Canvas do
    begin
      i := 0;
      repeat
        if (x1<=20) または (x1>=480)) ならば，dx を (-1) 倍する ;   //  ???  壁にぶつかったとき，進行方向を逆向きにする

x2 := x1 + dx;  y2 := y1;                          // (x1,y1) は古い位置，(x2,y2) は新しい位置

Circle(??, ??, 20, ?);                             //  ???  前に描いた円を「消す」
        Circle(??, ??, 20, ?);                             //  ???  新たに赤い円を描く

x1 := x2;       y1 := y2;
        sleep(2);
        i := i+1;
      until i>=1000;
    end;
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る