движение окружности по окружности

[Slicker]

ты хочешь написать программу чтобы она двигала синий круг вокруг красного? Я бы предпочел флешку сделать..

[wall66]

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

я то ещё не доучился, в 9-ый пошел

прошу прощенья, хотя я думал что тригонометрию проходят в восьмом...

[MyQwErTy]

вы думаете, что я что-то понял, что мне объясняли??))))

[mihali4]

Ну, тогда несколько измененный ваш вариант (зато рабочий, правда для Дельфи):

procedure TForm1.Button1Click(Sender: TObject);
var re,rp,i,x1,x11,y1,y11,x2,x21,y2,y21:integer;
begin
with Canvas do
begin
    Pen.Color:=Color;
    brush.color:=cLRed;
    rp:=50; //радиус "протона"
    Ellipse(450,250,450+2*rp,250+2*rp);
    re:=10; //радиус "электрона"
for i:=0 to 720 do
  begin
    x1:=450+rp+round(2*rp*cos(i*Pi/180))-re;
    y1:=250+rp+round(2*rp*sin(i*Pi/180))-re;
    x2:=x1+re*2;
    y2:=y1+re*2;
  if i>0 then
  begin
    brush.color:=Color;
    Ellipse(x11,y11,x21,y21);
    Application.ProcessMessages;
  end;
    x11:=x1;
    y11:=y1;
    x21:=x2;
    y21:=y2;
    brush.color:=clBlue;
    Ellipse(x1,y1,x2,y2);
    Application.ProcessMessages;
    Timer1.Enabled:=True;
    while Timer1.Enabled do
    Application.ProcessMessages;
  end;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled:=False; //интервал 20 миллисекунд
end;

Если тот код вы писали сами, то это вам должно помочь (хотя бы в перерисовывании движения электрона)