Обобщающее повторение

Задание 1

Составьте программу, строящую рисунок по образцу. Размер клетки 80*80 пикселей. Сохраните программу в файле.

Напоминалка

uses ...;

begin

SetWindowSize(300,300);

line(30,30,270,30);

...

line(270,30,270,270);

end.

Задание 2

Дополните программу Задания 1 так, чтобы получить рисунок по образцу. Сохраните программу в файле.

Напоминалка

Brush.Color:=...

или

SetBrush.Color(...)

circle(...)

1 вариант

2 вариант

3 вариант

4 вариант

Задание 3

Добавьте к программе Задания 2 вставку растрового изображения подходящего размера. Сохраните программу в файле

Напоминалка

VAR img1:picture;

img1:=New Picture('...')

img1.Draw(...)

floodFill(...)

Рисунки здесь: 1.png, 2.png, 3.png,