Помогите нарисовать в паскале ABC забор простой, раскрашенный в любой цвет, без контуров, просто одноцветный забор, желательно 5 досок. Кто сможет ...
Помогите нарисовать в паскале ABC забор простой, раскрашенный в любой цвет, без контуров, просто одноцветный забор, желательно 5 досок. Кто сможет ...Помогите нарисовать в паскале ABC забор простой, раскрашенный в любой цвет, без контуров, просто одноцветный забор, желательно 5 досок. Кто сможет скиньте код.
Гость
Ответ(ы) на вопрос:
Гостьuses GraphABC;
begin
line(50, 100, 50, 400);
line(550, 100, 550, 400);
line(50, 400, 550, 400);
line(50, 100, 100, 50);
line(100, 50, 150, 100);
line(150, 100, 200, 50);
line(200, 50, 250, 100);
line(250, 100, 300, 50);
line(300, 50, 350, 100);
line(350, 100, 400, 50);
line(400, 50, 450, 100);
line(450, 100, 500, 50);
line(500, 50, 550, 100);
FloodFill(60, 150, clBurlyWood);
end.
Не нашли ответ?
Похожие вопросы