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