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.

Answer 2

. Составьте программу закрашивания буквы "П", размерами три клетки по вертикали и две по горизонтали. Начальное положение Робота - где-то в центре поля.

2. Необходимо перевести Робота из начального положения (◊) в точку A за минимальное число шагов любым из возможных способов.

Answer 3

Для создания программы закрашивания прямоугольника размером 6x4 вы можете воспользоваться языком программирования, поддерживающим графический вывод. Пример ниже предполагает использование Python с библиотекой Tkinter для создания графического окна и закрашивания прямоугольника:

pythonCopy code
import tkinter as tk

def draw_rectangle(canvas):
    x1, y1 = 50, 50  # Координаты верхнего левого угла прямоугольника
    x2, y2 = x1 + 6 * 20, y1 + 4 * 20  # Координаты нижнего правого угла прямоугольника
    canvas.create_rectangle(x1, y1, x2, y2, fill="blue")

# Создаем графическое окно
window = tk.Tk()
window.title("Прямоугольник 6x4")

# Создаем холст (Canvas) для рисования
canvas = tk.Canvas(window, width=300, height=200)
canvas.pack()

# Рисуем прямоугольник на холсте
draw_rectangle(canvas)

# Запускаем главный цикл
window.mainloop()

Вы можете сохранить этот код в файле с расширением ".py" и выполнить его с помощью интерпретатора Python. Этот код создаст графическое окно, на котором будет нарисован прямоугольник размером 6x4 и закрашен синим цветом. Вы можете настроить размер окна и цвет прямоугольника по своему усмотрению.