Помогите, пожалуйста, с Паскалем.
Нужно написать программу, которая моделирует движение белого шарика радиусом 10 точек по прямой из левого нижнего угла экрана в правый верхний угол.
Нужно написать программу, которая моделирует движение белого шарика радиусом 10 точек по прямой из левого нижнего угла экрана в правый верхний угол.
More Questions From This User See All
Answers & Comments
Verified answer
UsesGraphABC;
const
steps = 40;
var
start, stop: Point;
i, x, y: integer;
begin
start := new Point(0, WindowHeight);
stop := new Point(WindowWidth, 0);
Brush.Color := clWhite;
Pen.Color := clBlack;
for i := 1 to steps do
begin
x := round(start.X + i * (stop.X - start.X) / steps);
y := round(start.Y + i * (stop.Y - start.Y) / steps);
Circle(x, y, 10);
sleep(50);
ClearWindow();
end;
end.