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

May 2022 1 1 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

pomogite s 67 raspishite vsyo tak kak nado delat zhelatelno v tetradi s poe

pomogite pozhalujsta s 67 i esli vam ne trudno to i s 68

pomogite s 69 k zavtrashnemu dnyu ochen nado

x drobnajti znachenie funkciiesli znachenie argumenta 2 3 0613dd698e7d04d94c9756a7c110a5b90c 89162

x drobnajti znachenie funkciiesli znachenie argumenta 2 3 06

10100 sistema schisleniya vosmerichnaya 1 perevedite chislo 65 iz desyatichnoj v vo

10001 sistema schisleniya vosmerichnaya 1 perevedite chislo 81 iz desyatichnoj v vo

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

Helpful Links

Helpful Social