Var driver, mode, X, y : integer ;

BEGIN

DRIVER := DETECT;

INITGRAPH(DRIVER, MODE, 'C : \BP\BGI');

SETCOLOR(3);

REPEAT

SETFILLSTYLE(1, RANDOM(16));

X := RANDOM(GETMAXX);

Y := RANDOM(GETMAXY);

BAR(X-8, Y-8, X+8, Y+8);

DELAY(10);

UNTIL KEYPRESSED;

CLOSEGRAPH;

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- инициируем модуль GRAPH;

- организуем цикл, в котором располагаем разноцветные квадратики, размещая их по экрану случайным образом до тех пор, пока не будет нажата любая клавиша.

Переменные:

X, Y - координаты левого верхнего угла очередного квадратика;

DRIVER - тип графического драйвера;

MODE - режим работы графического адаптера.

Задача 11.4 Построить семейство разноцветных случайным образом вырезанных секторов окружностей.

PROGRAM PRG11_4;

USES GRAPH, CRT;

Var driver, mode, X, y : integer;

BEGIN

DRIVER := DETECT;

INITGRAPH(DRIVER, MODE, 'C : \BP\BGI');

SETCOLOR(3);

REPEAT

SETFILLSTYLE(1, RANDOM(16));

X := RANDOM(GETMAXX);

Y := RANDOM(GETMAXY);

SECTOR(X-8, Y-8, RANDOM(360), RANDOM(360), 15, 15);

DELAY(25);

UNTIL KEYPRESSED;

CLOSEGRAPH

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- инициируем модуль GRAPH;

- организуем цикл, в котором располагаем разноцветные сек­торы, размещая их по экрану случайным образом до тех пор, пока не будет нажата любая клавиша.

Переменные:

X, Y - координаты центра очередного сектора;

DRIVER - тип графического драйвера;

MODE - режим работы графического адаптера.

Задача 11.5 Построить семейство разноцветных случайным образом расположенных линий.

PROGRAM PRG11_5;

USES GRAPH, CRT;

Var driver, mode, X, y : integer;

BEGIN

DRIVER := DETECT;

INITGRAPH(DRIVER, MODE, 'C : \BP\BGI');

REPEAT

X := RANDOM(GETMAXX);

Y := RANDOM(GETMAXY);

LINETO(X, Y);

SETCOLOR(SUCC(RANDOM(16)));

DELAY(25);

UNTIL KEYPRESSED;

CLOSEGRAPH

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- инициируем модуль GRAPH;

- организуем цикл, в котором располагаем разноцветные ли­нии, размещая их по экрану случайным образом до тех пор, пока не будет нажата любая клавиша.

Переменные:

X, Y - координаты конца очередной линии;

DRIVER - тип графического драйвера;

MODE - режим работы графического адаптера.

Задача 11.6 По периметру экрана построить семейство разно­цветных квадратиков, а в середине- множество разноцветных точек.

PROGRAM PRG11_6;

USES GRAPH, CRT;