[kronalf]

Подскажите как задать координаты точке, чтобы она двигалась по окружносте?

[Decoding]

x = Radius * cos(a)
y = Radius * sin(a)

a - угол

[kronalf]

Сообщение от Decoding

x = Radius * cos(a)
y = Radius * sin(a)

a - угол

Хорошо, а как их прописать под var? Ведь круг использует только тип integer?

[Decoding]

Код:

procedure TForm1.FormPaint(Sender: TObject);
const
  Radius = 50;
  cx = 70;       // Координата центра круга по x
  cy = 90;       // Координата центра круга по y
  DotCount = 30; // Кол-во точек на окружности
var
  x, y, i: integer;
begin
   for i := 0 to DotCount-1 do
   begin
      x := cx + Round( Radius * cos( 360/DotCount*i*3.14/180 ) );
      y := cy + Round( Radius * sin( 360/DotCount*i*3.14/180 ) );
      Canvas.Pixels[x,y] := clBlack;
   end;
end;