Урок 22

Составление алгоритмов для работы с графикой

Теоретическая часть

1. Скопируйте программу в PascalABC. Запустите её на исполнение и посмотрите, какое изображение получится.

program f1;

uses GraphABC;

var n, x, y, a,i : integer;

procedure kv (x, y, a : integer);

var x_c, y_c:integer;

begin

rectangle(x, y, x + a,y + a);

x_c := x + 2; y_c := y + 2;

FloodFill(x_c,y_c,clRandom);

end;

begin

writeln('Ввeдите количество фигур');

read(n); writeln (n);

writeln('Ввeдите длину стороны фигуры');

read(a); writeln (a);

for i:= 1 to n do

begin

x:= random(500);

y:= random(350);

kv(x, y, a);

end;

end.

2. Замените в предыдущей задаче цикл For на цикл While

Практическая часть

Задание 1. Составите программу построения десяти концентрических окружностей с центром в точке (300, 200) и радиусами 10, 20, 30,..........100.

Задание 2. Составьте программу, которая закрашивает цифру от 1 до 3 и рисует эту цифру в графическом окне размером 300 на 400.

Электронная рабочая тетрадь

Проверка знаний