Паскаль
Написать программу движения по экрану прямоугольника со сторонами 15 и 10 точек по вертекали сверху вниз
Написать программу движения по экрану прямоугольника со сторонами 15 и 10 точек по вертекали сверху вниз
More Questions From This User See All
Answers & Comments
uses graphabc;
var x:integer = 1280;
y:integer = 720;
y2:integer = 1;
y3:integer = 15;
begin
setwindowsize(x,y);
setpencolor(clblack);
setpenwidth(3);
Rectangle(x div 2,y2,x div 2 + 10, y3);
while(y3<710) do
begin
y2+=1;
y3+=1;
Rectangle(x div 2,y2,x div 2 + 10, y3);
FillRectangle(x div 2 -1,y2-3,x div 2 + 11, y2-1);
sleep(50);
end;
end.