Помогите пожалуйста срочно в ПАСКАЛЕ АВС СДЕЛАТЬ ПАРОВОЗ, который не движется .такой же...

Question

Помогите пожалуйста срочно в ПАСКАЛЕ АВС СДЕЛАТЬ ПАРОВОЗ, который не движется .такой же как на рисунке .

---

Answer 1

uses graphABC;
procedure paravoz(x,y:integer);
var i,x1:integer;
begin setpencolor(clBlack);
setbrushcolor(clBlack); x1:=x+11; for i:=1 to 5 do  begin   circle(x1,y+83,11);  
x1:=x1+20  end;
rectangle(x,y+35,x+80,y+75);  
lineto(x+33,y+35);
lineto(x+38,y+10);
lineto(x+15,y+10);
lineto(x+22,y+35); floodfill(x+25,y+30,clBlack);
setpencolor(clGreen);
setbrushcolor(clGreen); rectangle(x+70,y,x+115,y+75);    
end;
var x,y:integer;
begin x:=windowwidth-350;
y:=200;
lockdrawing;
repeat clearwindow;
paravoz(x,y);
sleep(100); redraw;
until x<=5;<br>end.

---

Comments

Как-то он мало похож на тот, что на рисунке... Видимо, не нашлось, откуда содрать, а хотелось... )))))