Pascal, Графика, диаграммы

[(Kate)]

Ребята как такое сделать в Паскале ??? Я в шоке…

Надо нарисовать линейную диаграмму изменения, например, температуры по месяцам, типа январь – 5, февраль – 7, март – 13 и т.д. с Dзаполнения=0.5.
Причем:
- данные нужно внести на пиктограмму, а пиктограмму примыкнуть к отметкам на осях снизу. - Кроме того, необходимо построить оси координат, используя граничные параметры, полученные с функций getmaxx и getmaxy.
-Данные вводятся с клавиатуры: количество элементов, их значения и названия.
- По введенным данным программа должна рассчитать максимальную величину параметров к осям, шаг построения сетки по осям Ox и Oy. Для построения элементов диаграммы использовать разные цвета.
- По введенным данным и параметрам осей рассчитать координаты точек, необходимых для построения диаграммы, и построить их, используя операторы цикла.
- На пиктрограмме или рядом с ней вывести числовые их значения.
- Построить легенду диаграммы, которую нужно разместить справа от диаграммы.

Я понимаю, что задание ооочень объемное, но может хоть «кусочки» программы понабрасываете с описанием что для чего, я уже облазила весь гугл никакого результата.

Большое спасибо.

[Alex Cones]

Вначале освой рисование "сетки" для диаграммы, все остальное покажется детской игрой.

[(Kate)]

Сори, мне надо не линейная, а линейчатая диаграмма

[Stilet]

линейчатая

А пардон, это как?

[ОДИНОЧЕСТВО В СЕТИ]

2 Stilet Линейчатые диаграммы —

это те же гистограммы, но с иной ориентацией осей. В отличие от гистограмм здесь ось х (или ось категорий) расположена вертикально, а ось у (или ось значений) — горизонтально. Линейчатые диаграммы применяются в тех же случаях, что и гистограммы. Горизонтальное расположение оси зависимых переменных делает их особенно удобными для сравнительного представления разных величин в пределах одного временного периода. Скажем, реализацию товара за месяц различными продавцами лучше всего продемонстрирует линейчатая диаграмма.

[Stilet]

Ну тогда нужно примерно такое:

uses graph,crt;
const a:array[1..5] of integer=(8,7,5,4,3);
var x,y,ln,wd,i,r,d:integer;
begin
 d:=detect; initgraph(d,r,'');
 ln:=20;wd:=GetMaxX div 2;
 x:=10;y:=10;
 for i:=1 to 5 do begin
  SetFillStyle(1,i);
  bar(x,y,wd-(wd div a[i])+x,y+ln);
{  y:=y+ln;}
 end;
 readln;
 closegraph;
end.

Здесь одна гистограмма чертится, обернуть все это в функцию, сортировку массива прикрепить и вуаля.

[Alex Cones]

Вот такая:
Тут ничего сложного, просто перевернуть обычную диаграмму.


\\\ Ну как всегда опоздал(((

[(Kate)]

всем большое спасибо))