Реферат: Построение диаграмм

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

bar(Xc+200, Yc-250+(i-1)*20, Xc+220, Yc-250+(i-1)*20+15);

str(a:8:2, stroka);

outtextxy(Xc + 230, Yc — 250 + 5 + (i — 1) * 20, stroka) end;

readln; close(F); closegraph End.

Результат работы программы для указанного на рисунке набора чисел:

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

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

Алгоритм построения диаграммы следующий:

определить количество элементов последовательности и её максимальный элемент;

согласно указанной формуле построить столбцы диаграммы. Их ширина на экране может быть рассчитана по формуле где n — количество элементов последовательности.

Программа построения столбчатой диаграммы по этому алгоритму представлена ниже:

{Столбчатая диаграмма (с) А.П. Шестаков, 2001}

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