PROGRAM PRG11_3;

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);

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 Построить семейство разноцветных случайным образом расположенных линий.