значит надо построить окружность(это я иогу сделать) затем сделать так чтоб она двигалась по синусоиде оставляя за собой такэтори напишите плиз код я никогда не делал графических задачек

траэкторию оставляла за собой

uses Crt, Graph;

var
  gd, gm, i: Integer;
begin

  gd := Detect;

  InitGraph(gd, gm, '');

  i := 0;

  while (i < GetMaxX) do begin
    PutPixel(i, GetMaxY div 2 + Round(12 * Sin(i * pi / 180)), red);
    if i mod 20 = 0 then Circle(i,GetMaxY div 2 + Round(12 * Sin(i * pi / 180)), 5);
    Delay(10);
    inc(i);
  end;


  readln;
end.

у мя требует модуль граф нужно установить библеотеки чтоб он рисовал?

Поиск по форуму - уже сотни раз объяснялось, что надо делать, чтобы подключить Graph (Ну, или обратись к тому, кто тебе И ЭТУ задачку поможет решить... )

klem4, ПАСИБА АНДРЮХА ТЫ ЛУЧШЕ ВСЕХ СУПУР ПУПЕР МОДЕРАТОР ВОЩЕ БЕЗ ТУПЫХ ВОПРОСОВ НАПИСАЛ КОД , ДАЙ ПОЖАТЬ ТВОЮ МУЖСКУЮ ЛАПУ

--------
другие модераторы и админы не обижайтесь.....