динамический массив

[Carbon]

Chart - это компонент на вкладке Additional для построения графиков.
Убрал массив y, потому что в него только пишется (и он, по видимому, вызывает ошибку в случае a=0). Убрал из циклов повторяющиеся вычисления. И условие a=0 заменил на abs(a)<0.000001, потому что вещественные типы вычисляются с погрешностями.

[Diller]

Спасибо.. у меня еще один вопрос к Вам... вот его суть :
создал project1. подключил к нему по нажатии кнопки модальное окно

procedure TForm1.Button1Click(Sender: TObject);
begin
form3.ShowModal;
end;

в это окно поместил Ваш листинг.. запускаю прогу при нажатии на кнопку Button1Click. открывается модальное окно с Вашей программой.. нажимаю там на расчет.. появляется ошибка (list index out of bounds (3))

[Carbon]

Надо настроить TChart:
кладём его на форму, два раза мышью по нём, на вкладке Series выбираем 3 раза Add.

[Diller]

y1:=y1+a*(0.02*x+0.0001)+b*0.01; поясни пожалуйсто..

[Diller]

Сообщение от Carbon

Надо настроить TChart:
кладём его на форму, два раза мышью по нём, на вкладке Series выбираем 3 раза Add.

это действи я делал.. но ошибка все равно есть..

[Carbon]

a*x*x+b*x+c+a*(0.02*x+0.0001)+b*0.0 1=a*(x+0.01)*(x+0.01)+b*(x+0.01)+c

это действи я делал.. но ошибка все равно есть..

В какой строчке?

[Diller]

Сообщение от Carbon

Надо настроить TChart:
кладём его на форму, два раза мышью по нём, на вкладке Series выбираем 3 раза Add.

вот это действие..

[Diller]

setlength(y,razmer);{задание дин. массива}
x:=x1;
i:=0;
ymin:=a*(-10)*(-10)+b*(-10)+c;{ реальные размеры БЧ}
ymax:=L+a*(-10)*(-10)+b*(-10)+c; { реальные размеры БЧ}
repeat
y[i]:=a*x*x+b*x+c;{заполнение массива начиная с x1, где x1 - точка пересечения ymax и левой ветви параболы}
y1:=y[i];{изъятие из массива значений }
series1.AddXY(x,y1);
series2.AddXY(x,ymin);
series3.AddXY(x,ymax);
x:=x+0.01;
i:=i+1;
until x>=x2; { цикл идет до 2-ой точки пересечения параболы (правой ветви) и ymax } почему так нельзя..(не работает)

[Carbon]

почему так нельзя..

а смысл заводить массив значений, которые не нужны?

[Diller]

да, смысла нет. я уже разобрался..
пердомной стоит теперь новая задача, хотелось бы услышать Ваше мнение.. вот её суть..
этуже параболу ограниченную ymax и ymin необходимо разбить в этих же диапазонах(от ymax до ymin), части одинакового размера, задаваемого пользователем. и подсчитать объем каждого сегмента образованного разбиением.. сам пока еще думаю как реализовать это...потомухотелось бы услышать Ваше мнение..
ps Вы получили мое сообщение на ICQ??