Модуль Graph

Bar(x1,y1,x2,y2) - Рисует закрашенный прямоугольник, используя текущие стиль и цвет закраски, из точки x1y1 до точки x2y2.
Объявление:
Procedure Bar(X1, Y1, X2, Y2 : Integer);
Режим:
Real, Protected
Замечания:

Процедура Bar рисует закрашенный прямоугольник (используемый например, в гистограммах). Для закраски использует шаблон определенный при обращении к SetFillStyle и цвет с через SetFillPattern. Чтобы нарисовать выделенный прямоугольник, вызовите процедуру Bar3D с параметром Depth равным нулю.
Ограничения:

Нужно быть в графическом режиме.
Пример: view source

print
?01 {Пример программы для процедуры Bar}
02
03 Uses Graph;
04
05 Var Gd, Gm, I, Width : Integer;
06
07 Begin
08 Gd:=Detect;
09 InitGraph(Gd, Gm, 'C:\BP\BGI'); { Путь к BGI драйверам }
10 If GraphResult grOk Then Halt(1);
11 Width:=10;
12 For I:=1 To 5 Do Bar(I*Width, I*10, Succ(I)*Width, 200);
13 ReadLn;
14 CloseGraph;
15 End.