[sid]

Подскажите пожалуйста, как правильно делать анимацию в Pascal. Нужно что бы шарик отскакивал от стен. В Basic я делал так:

Код:

dx,dy=1
...
if x=0 or x=640 then dx=-dx
if y=0 or y=350 then dy=-dy
...

А в Pascal это не работает. Знак dx не присваивается, а получается, что если dx =20 , то если условие истинно, то dx=321. У меня получалось делать с конструкциями If, но очень большой код получается.

[lmikle]

В принципе все правильно. Только надо учитывать синтаксис паскаля.

Код:

if (x <= 0) or (x >= 640) then dx := -1 * dx;
if (y <= 0) or (y >=350) then dy := -1 * dy;

[Страдалецъ]

Нафига эти выкрутасы с умножением?
Все было правильно, за исключением присвоения и скобок.

Код:

if (x <= 0) or (x >= 640) then dx := -dx;
if (y <= 0) or (y >=350) then dy := -dy;