Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Работа с компонентой TChart

Автор: Georg4 30.9.2004, 10:24

Ребяты, вопрос следующего плана.
Каждый клик мыши на кнопку прибавляет точку на координатах Х и У. По У это случайное значение в определенных пределах, а по Х просто прибавляется по 1.
Нужно взять суму всех значений по У и разделить на последнне значение по Х и вывести это куда-нить соответственно. Т.Е среднее всех значний по У.
Как это сделать?.

Автор: Georg4 4.10.2004, 10:08

И осталяс вопрос без ответа....

Автор: Guest 4.10.2004, 10:46

Georg4
Странный вопрос.
Заведи динамический массив и складывай туда свои значения, а дальше дело техники

Автор: Garabar 6.10.2004, 13:50

Так вообщемто например так...
Для начала добовляешь на форму компонете Чарт и добовляешь в нем сериес,
далее определяешь глобалом x и result-это и есть средний y

Код


var
x:integer;
result,res:real;

procedure TForm1.FormCreate(Sender: TObject);
begin
     x:=0; result:=0; //инициалезуешь переменные
     Chart1.SeriesList[0].Clear; // очищяешь сериес
end;


procedure TForm1.Button1Click(Sender: TObject);
var
st:string;
begin
       x:=x+1; y:=random({заданный предел}:integer);  // вычисляешь необхадимые значения
       str(x,st);
      Chart1.SeriesList[0].Addy(y,st,2);// добовляешь новое значение в сериес
     res:=res+y;
     result:=res/x;// вычичляешь среднее,  которое можно в будущем выводить куда нить     
end;

Вроде все..)) если я прально понел чё те нуно, то должно работать...