Question

Составить программу закрашивания прямоугольника размером 6x4

Answer 1

//PascalABC.NET
uses GraphABC;
begin
//Высота = 4, ширина = 6, шаг = 50px
Rectangle(50, 50, 350, 250);
FloodFill(110, 110, clTeal);
end.


//Вариант №2 с разметкой
uses GraphABC;
var tmp, i: integer;
begin
//Высота = 4, ширина = 6, шаг = 50px
Rectangle(50, 50, 350, 250);
FloodFill(110, 110, clTeal);
tmp := 50;
for i := 1 to 3 do
begin
  Line(50, 50+tmp, 350, 50+tmp);
  tmp := tmp + 50;
end;
tmp := 50;
for i := 1 to 5 do
begin
  Line(50+tmp, 50, 50+tmp, 250);
  tmp := tmp + 50;
end;
end.