Столбчатые диаграммы

Для построения диаграммы выделим на экране прямоугольную область с координатами соответственно верхнего левого угла (Xlv, Ylv) и правого нижнего (Xpn, Ypn). Высота столбца диаграммы, соответствующего максимальному элементу последовательности, будет совпадать с высотой прямоугольника. Ширина столбца будет зависеть от количества элементов последовательности: чем больше компонент, тем меньшей будет ширина. Таким образом, для построения диаграммы нужно определить количество компонентов последовательности и максимальный элемент последовательности. Высота v_i очередного столбца диаграммы на экране будет определяться формулой: , где xmax — максимальный элемент последовательности, x_i — очередной элемент последовательности. Алгоритм построения диаграммы следующий: 1)определить количество элементов последовательности и её максимальный элемент; 2)согласно указанной формуле построить столбцы диаграммы. Их ширина на экране может быть рассчитана по формуле: , где n — количество элементов последовательности.

Program Stol_D;

Uses Graph;

Var a, xmax : Real; I, n : Byte; G, M : Integer;

F : Text; {файл содержит данные для построения диаграммы}

Stroka : String;

Xlv, Ylv, Xpn, Ypn : Integer; {координаты окна вывода диаграммы}

Begin

Assign(F, '1.dat'); Reset(F);

if not eof(f) then begin readln(f, xmax); n:=1 end

else n:=0;

While Not Eof(F) Do

begin Readln(F,a); if a>xmax then xmax:=a;

n:=n+1 end;

reset(f); G:=detect; M := 0;

initgraph(G,M,' '); Xlv:=50; Ylv:=50; Xpn:=GetMaxX-100; Ypn:=GetMaxY-50;

i:=0; {номер столбца}

While Not Eof(f) Do

begin

Readln(F, a);

setcolor(i mod 16+1); setfillstyle(1,i mod 16+1);

{очередной столбец}

bar(round(Xlv+i*(Xpn-Xlv)/n),Ypn,round(Xlv+(i+1)*(Xpn-Xlv)/n), round(Ypn-(Ypn-Ylv)/xmax*a));

i:=i+1;

{укажем, какому цвету какая величина соответствует}

bar(getMaxx-70,50+(i-1)*20,getMaxx-50,50+(i-1)*20+15);

str(a:8:2, stroka);

outtextxy(getMaxx-40, 50+(i-1)*20+8,stroka);

end;

readln; close(F); closegraph

End.