Задачи. 1. Запустите программу в среде WDE ProgrammingABC.NET

1. Запустите программу в среде WDE ProgrammingABC.NET.

2. А что изображено здесь:

uses Graph;

var i:integer;

begin

Window.Title:= 'Вопрос 2';

Window.SetSize(400,300);

Pen.Width:= i;

Pen.Color:= Color.Red;

Brush.Color:= Color.Yellow;

{Рисование прямоугольников}

rectangle(25,75,100,150);

rectangle(100,75,225,150);

rectangle(50,100,75,150);

rectangle(150,100,175,125);

Pen.Color:= Color.Blue;

{Рисование линий}

line(25,75,75,25);

line(75,25,100,75);

line(200,25,225,75);

line(75,25,200,25);

end.

3. Используя циклы, создайте в новой программе несколько объектов разного размера, схема постронения которых предложенна в предыдущих задачах.

4. Используя циклы и процедуру Sleep(500) (параметр -количество милисекунд) — добавьте анимацию.

5. Визуализируйте процес построения башни: