Движение объектов, Все как правильно задавать траекторию движения объектов в паскале Опции

[AJIiSa]

Люди помогите пожалуйста правильно задать траекторию движения окружности.
Мне нужно либо по параболе или по наклонной. Подскажите пожалуйста... Срочно надо!!!!

Сообщение отредактировано: volvo - 18.02.2009 23:08

[klem4]

Вот тебе простой пример

uses crt, graph;

const
  cx: Integer = 0;
  cy: Integer = 0;

var
  gd, gm: Integer;
  radius: Integer;
  i, delta: integer;

begin
  gd := Detect;
  InitGraph(gd, gm, '');

  cx := GetMaxX div 2;
  cy := GetMaxY div 2;

  radius := 30;

  i := -10;
  delta := 1;

  repeat
     SetColor(White); Circle(cx + i * 20, cy - i*i*3, 20);
     Delay(170);
     SetColor(Black); Circle(cx + i * 20, cy - i*i*3, 20);
     inc(i, delta);
     if (i = 10) or (i = -10) then delta := -delta;
  until keypressed;

  CloseGraph;
end.

Сообщение отредактировано: klem4 - 12.06.2007 16:21