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.