Обеспечить движение качелей, качели я нарисовала...а вот движение.... Опции

[Svetka]

Код

setfillstyle(9,blue);
bar(0,0,640,75);
setcolor(14);
circle(45,40,30);
setfillstyle(1,14);
floodfill(45,40,14);
setcolor(6);
setlinestyle(0,brown,3);
line(220,100,380,100);
line(220,300,220,100);
line(380,300,380,100);
line(260,250,260,100);
line(340,250,340,100);
setfillstyle(1,darkgray);
bar(250,250,350,260);
setfillstyle(1,green);
Bar(0,300,640,360);

вот сами качели...помогите обеспечить движение качелей!! очень надо

[Altair]

Для движения, рисуем качели (это у вас реализованно), ждем пока пользователь их увидит (delay) и закрашиваем цветом фона .
Все повторяем.

Для этого удобно запихнуть все что вы написали в процедуру, параметр котрой -цвет рисования.
Тогда в программе пишем так:

repeat
draw (color);
delay(time);
draw(0);
run; {передвигаем качели}
until {условиевыхода, напрмиер keypressed}

добавил позже:
я не подумал, качели ведь наклоняются когда двигаются ....
То есть рисунок еще поворачивать надо ...