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

Цель урока: изучить расчеты в графических построениях.

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

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

Pie(x,y,r,a1,a2)	Рисует заполненный сектор круга с центром в точке (х,у) и радиусом r , заключенный между двумя лучами, образующими углы а1 и а2 с осью ОХ
Random	Возвращает случайное вещественное число в диапазоне [0..1]
Random (a)	Возвращает случайное целое число в диапазоне от 0 до а-1
Random(a,b)	Возвращает случайное целое число в диапазоне от а до b
clRandom	Позволяет задать случайный цвет

Графические примитивы рассмотрены в уроке 16

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

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);
    circle(x, y, r);
  end;
end.