Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Пожалуйста помогите, срочно надо сделать так, чтобы машинка двигалась и задать кодом любой объект, чтобы он повторялся

Вероника Акимова Ученик (181), на голосовании 7 лет назад
uses graphABC;
begin
setwindowsize(1000,700);
setpencolor(clblue);
setbrushcolor(clblue);
rectangle(0,0,1000,300);
setpencolor(clgreen);
setbrushcolor(clgreen);
rectangle(0,300,1000,500);
setpencolor(clsilver);
setbrushcolor(clsilver);
rectangle(100,450,350,180); {дом}
setpencolor(clwhite);
setbrushcolor(clwhite);
rectangle(150,400,220,350); {окна}
rectangle(230,400,300,350);
rectangle(230,330,300,280);
rectangle(150,330,220,280);
rectangle(230,270,300,220);
rectangle(150,270,220,220);
line(100,180,225,100);
line(225,100,350,180);
floodfill(225,120,clgray);
setpencolor(clyellow);
setbrushcolor(clyellow);
circle(600,100,50);
setbrushcolor(clBrown);
circle(380,370,10);{человек}
line(380,380,380,430);
line(380,395,400,375);{руки}
line(380,395,355,375);
line(380,430,365,445);{ноги}
line(380,430,395,445);
setpencolor(clBlack);
setbrushcolor(clBlack);
rectangle(430,445,440,320);
setpencolor(clblack);
line(390,320,480,320);
line(390,320,435,240);
line(480,320,435,240);

SetPenColor(clBlue);{машина}
SetBrushColor(clBlue);
Rectangle(510,430,550,390);

SetPenColor(clblack);
SetBrushColor(clblack);
Rectangle(550,450,690,350);

SetPenColor(clBlack);
SetBrushColor(clBrown);
Circle(550,450,30);
Circle(690,450,30);

end.
Голосование за лучший ответ
Trundle LoveYou Ученик (181) 7 лет назад
Если то что ты скинул это варианты кода то используй rectangle для углов но двигать никак нельзя
Вероника АкимоваУченик (181) 7 лет назад
а если сделать новый объект?
Максимка )) Мыслитель (9646) 7 лет назад
return в конце перед end, или что-то типа этого на том языке что ты написал.
Вероника АкимоваУченик (181) 7 лет назад
а если сделать новый объект?
Максимка )) Мыслитель (9646) создай другое тело программы
Похожие вопросы