паскаль, движение по кругу.

[sergiyparis]

Паскаль. Нужно зделать движение тела по кругу.

From Stilet: Перенес тему.

[Arigato]

Во-первых, разделом форума вы ошиблись.
Во-вторых, сделать пишется с буквой "с".
В-третьих, что еще за тело, труп что ли? И по какому кругу вы собираетесь его двигать?

[sergiyparis]

1) я новенький на етом сайте.
2) я из Украиньі, и если ви меня будете понимать - буду говорить на украинском.
3) круг например, просто нужно движение по колу в графическом режиме. (в 2 окна\переключение между окнами). Мне нужен именноалгоритм движения по колу.

[BDA]

for i := 1 to 20 do
begin
  a := 2 * pi * i / 20;
  x := x0 + r1 * sin(a);
  y := y0 + r1 * cos(a);
  circle(x, y, r2);
end;

Как маленький примерчик.

Или:

a := 0;
x0 := 100;
y0 := 100;
r1 := 50;
r2 := 20;
while not keypressed do
begin
  a := a + pi / 10;
  if a > 2 * pi then
    a := a - 2 * pi;
  x := x0 + r1 * sin(a);
  y := y0 + r1 * cos(a);
  setcolor(12);
  circle(x, y, r2);
  sleep(1000);
  setcolor(0);
  circle(x, y, r2);
end;

[sergiyparis]

uses graph, crt;
var driver, mode:integer; xc,yc,x,y,k,z:integer; page:integer;
begin
driver:vga;
mode:=vgamed;
initgraph(driver,mode,'..\bgi');
if (graphresult<>0) then writeln ('error')
else begin
xc:=getmaxx div 2;
yc:=getmaxy div 2;
x:=xc;
y:=yc;
setcolor(2);
setfillstyle(1,14);
page:=0;
k:=2;
repeat
setactivepage(page);
cleardevice;
fillellipse(x,y,50,50);
floodfill(x,y,14);
setcolor(15);
setvisualpage(page);
page:=1-page;
x:=x+k;
delay(100);

end;
until keypressed;
closegraph;
end;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.