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

May 2022 1 3 Report

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

Answers & Comments

БочкаЖигуля uses graphABC;
procedure paravoz(x,y:integer);
var i,x1:integer;
beginsetpencolor(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;
beginx:=windowwidth-350;
y:=200;
lockdrawing;
repeatclearwindow;
paravoz(x,y);
sleep(100);redraw;
until x<=5;
end.

0 votes Thanks 0

Answers & Comments

помогите с №67 . распишите всё так как надо делать . желательно в тетради .с пое...

Помогите пожалуйста с №67 и если вам не трудно то и с № 68...

помогите с №69 . к завтрашнему дню очень надо...

x-дробь.найти значение функции,если значение аргумента = -2 ; 3; 0.6...

x-дробь.найти значение функции,если значение аргумента = -2 ; 3; 0.6...

10100 система счисления – ВОСЬМЕРИЧНАЯ 1) Переведите число 65 из десятичной в ВО...

10001 система счисления – ВОСЬМЕРИЧНАЯ 1) Переведите число 81 из десятичной в ВО...

рекомендуемые вопросы

Helpful Links

Helpful Social