Версия для печати темы

Автор: polic 20.12.2006 21:38

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

Автор: polic 20.12.2006 22:08

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

Автор: klem4 20.12.2006 22:10

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.

Автор: polic 20.12.2006 22:24

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

Автор: volvo 20.12.2006 22:26

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

Автор: polic 21.12.2006 1:19

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

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