Машинка-дай газу! Опции

[Костян]

Здорово народ, ну в общем название темы это и есть вопрос. Короче проблема такая: сделал прогу- рисует машинку. Вопрос на 10 баллов, как заставить эту бесбашенную конструкцию перемещатся по экрану? Через delay со стиранием экрана.

[Костян]

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

Код

program supercar;
uses graph, crt;
const
zvezda : array[1..12] of pointtype=
(x:1; y:176),(x:124; y:175),(x:212; y:2),(x:302; y:175),
(x:428; y:177),(x:335; y:237),(x:427; y:427),(x:217; y:308),
(x:2; y:427),(x:96; y:236),(x:1; y:176);
var gd, gm :integer;
begin

gd:=detect;
initgraph(gd,gm,'');
cleardevice;
fillpoly(4,zvezda);

readkey;
end.

Сообщение отредактировано: Костян - 18.12.2005 11:47