Прямоугольники. Процедуры Rectangle, Bar и Setfillstyle

Модуль Graph включает несколько процедур для вывода на экран прямоугольников. Самая очевидная из них – это rectangle. Данная процедура принимает четыре параметра – координаты верхнего левого и нижнего правого угла. В результате получается прямоугольник без заливки. Цвет контура можно задать с помощью процедуры setcolor до того, как будет вызвана процедура rectangle.

Другой способ построения прямоугольников – это использование процедуры bar. В отличие от rectangle она выводит заполненный прямоугольник. Способ заливки и цвет задается с помощью процедуры setfillstyle, первый параметр которой – это стиль заливки (от 0 до 12, см. таблицу стилей заливки), а второй – цвет (от 0 до 15, см. таблицу цветов).

uses
    graph;
 
var
    g, h, i, x, y, r: integer;
 
begin
    g := detect;
    initgraph(g,h,'');
 
    rectangle(0,0,200,100);
 
    setfillstyle(1,10);
    bar(300,0,500,100);
 
    setfillstyle(2,15);
    bar(600,0,800,100);
 
    setfillstyle(3,1);
    bar(900,0,1100,100);
 
    setfillstyle(4,5);
    bar(200,100,300,300);
 
    setfillstyle(5,7);
    bar(500,100,600,300);
 
    setfillstyle(6,13);
    bar(800,100,900,300);
 
    setfillstyle(7,2);
    bar(0,300,200,500);
 
    setfillstyle(8,14);
    bar(300,300,500,500);
 
    setfillstyle(9,11);
    bar(600,300,800,500);
 
    setfillstyle(10,3);
    bar(900,300,1100,500);
 
    setfillstyle(11,12);
    bar(100,550,1000,650);
 
readln
end.
Результат выполнения программы - прямоугольники на экране