VPF::Работа с компонентой TChart - Форум программистов

Georg4

Дата 30.9.2004, 10:24 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 961
Регистрация: 2.11.2002

Репутация: 0
Всего: 10

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

--------------------

Никто и никогда не должен решать одну проблему дважды

Georg4

Дата 4.10.2004, 10:08 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 961
Регистрация: 2.11.2002

Репутация: 0
Всего: 10

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

--------------------

Никто и никогда не должен решать одну проблему дважды

Guest

Дата 4.10.2004, 10:46 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

Garabar

Дата 6.10.2004, 13:50 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 224
Регистрация: 15.9.2004

Репутация: нет
Всего: 1

Так вообщемто например так...
Для начала добовляешь на форму компонете Чарт и добовляешь в нем сериес,
далее определяешь глобалом 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;

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

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »