Автор Даниил Черненко задал вопрос в разделе Школы
Напишите программу в PascalABC, рисующую движущийся рисунок, с помощью цикла for и простых команд (используя GraphABC). и получил лучший ответ
Ответ от Лара[гуру]
program car1; uses graphabc, crt;
Var x:integer;
procedure car(x0,y0: integer);
begin
SetPenColor(clBlack);
Rectangle(x0,y0, x0+30, y0+20);
circle(x0+5, y0+25,5);
circle(x0+25,y0+25,5);
delay(10);
SetPenColor(clWhite);
Rectangle(x0,y0, x0+30, y0+20);
circle(x0+5, y0+25,5);
circle(x0+25,y0+25,5);
end;
begin
for x:=0 to 600 do
car(x,100);
end.
Ответ от Вован Сергеев[эксперт]
Если еще нужно
uses graphabc;
var x0,y0, x: integer;
begin
Randomize;
X:=0;
Lockdrawing;
For x:=1 to 500 do begin
clearwindow;
rectangle (X+100, 200, X+300,100);
rectangle( X+300, 70, X+250,200);
rectangle( X+265,40, X+250,70);
circle( X+130, 200, 23);
circle( X+200, 200, 23);
circle( X+270, 200, 23);
circle( X+240, 35+random(5), 8+random(5));
circle( X+220, 25+random(5), 8+random(5));
circle( X+200, 15+random(5), 8+random(5));
sleep(40);
redraw;
X:=X+10;
end;
end.
Если еще нужно
uses graphabc;
var x0,y0, x: integer;
begin
Randomize;
X:=0;
Lockdrawing;
For x:=1 to 500 do begin
clearwindow;
rectangle (X+100, 200, X+300,100);
rectangle( X+300, 70, X+250,200);
rectangle( X+265,40, X+250,70);
circle( X+130, 200, 23);
circle( X+200, 200, 23);
circle( X+270, 200, 23);
circle( X+240, 35+random(5), 8+random(5));
circle( X+220, 25+random(5), 8+random(5));
circle( X+200, 15+random(5), 8+random(5));
sleep(40);
redraw;
X:=X+10;
end;
end.
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Напишите программу в PascalABC, рисующую движущийся рисунок, с помощью цикла for и простых команд (используя GraphABC).