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

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

line(xlv, ylv, xlv, ypn); line(xlv, ypn, xpn, ypn);

i:= 0; {номер точки}

readln(f, a);

Yn := round(Ypn-(Ypn-Ylv)/xmax*a);

str(a:5:1, stroka);

outtextxy(round(Xlv+i*(Xpn-Xlv)/n)-20, Ypn+20, stroka);

While Not Eof(f) Do

begin

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

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

Readln(F, a);

Yk := round(Ypn-(Ypn-Ylv)/xmax*a);

{очереднаялиния}

line(round(Xlv+i*(Xpn-Xlv)/n), Yn,

round(Xlv+(i+1)*(Xpn-Xlv)/n), Yk);

i:= i + 1;

str(a:5:1, stroka);

outtextxy(round(Xlv+i*(Xpn-Xlv)/n)-20, Ypn+20, stroka);

Yn := Yk; {запоминаем положение очередной точки}

end;

readln; close(F); closegraph

End.

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

Все представленные здесь программы могут быть объединены в одну программу с общим меню, где пользователю предоставляется возможность выбрать вид диаграммы.