Обобщающее повторение
Задание 1
Задание 1
Составьте программу, строящую рисунок по образцу. Размер клетки 80*80 пикселей. Сохраните программу в файле.
Напоминалка
uses ...;
begin
SetWindowSize(300,300);
line(30,30,270,30);
...
line(270,30,270,270);
end.
Задание 2
Задание 2
Дополните программу Задания 1 так, чтобы получить рисунок по образцу. Сохраните программу в файле.
Напоминалка
Brush.Color:=...
или
SetBrush.Color(...)
circle(...)
1 вариант
2 вариант
3 вариант
4 вариант
Задание 3
Задание 3
Добавьте к программе Задания 2 вставку растрового изображения подходящего размера. Сохраните программу в файле
Напоминалка
VAR img1:picture;
img1:=New Picture('...')
img1.Draw(...)
floodFill(...)