Урок 21

Составление алгоритмов для работы с графикой

Теоретическая часть

Повторение

В PascalABC для работы с графикой используется библиотека GraphABC. Для подключения этой библиотеки в программе записывается команда uses GraphABC

Положение фигур задается координатами в графическом окне. Началом координат является верхний левый угол графического окна - точка (0;0). Координаты задают порядковый номер пикселя по горизонтали и вертикали, поэтому они могут быть только целыми числами. Отсчет значений координаты х происходит слева направо, а координаты у - сверху вниз. По умолчанию создается графическое окно размером 640 х 480 пикселей.

Пример: Составьте программу для рисования на экране 15 разноцветных окружностей. Расположение окружностей, их радиусы, цвет контура и цвет заливки задаются случайным образом. Установить ширину пера в два пикселя.

program krugi;

uses graphabc;

var i,x,y,r:integer;

begin

setpenwidth(2);

for i:=1 to 15 do

begin

x:=random(600);

y:=random(400);

r:=random(100);

setpencolor(clrandom);

setbrushcolor(clrandom);