я обещала код. Вот он:
Код:
for i:=1 to n do //задаем массив начальных значений
begin
y0[i]:=dy*(i-1);
R0[i]:=dR*(i);
end;
while z<120
begin
for i:=1 to n do
BEGIN
runge2(R0[i],y0[i], z);// заранее заданная функция которая считает координату
if R[i]<0.5 then Continue;// Уберет все R[i]<0,5 при первой итерации (i=1) ,предположим это будит R[2], при второй итерации R[2] может не быть >0.5,
но мне нужно чтобы эта точка все равно исключалась и не рисовалась на графике
{x:=x0[i]; y:=y0[j];}
chart1.series[0].AddXY(z,R0[i]);
z:=z+dz;
END;
end;
эта часть кода.
Предложенный TOJluK вариант решения, немного не подходит. Не понятно как учесть те R[i] которые будут просчитываться в следующей итерации (те же самые по порядку i ).
Надеюсь, смогла объяснить понятно. Рада любой идее, заранее спасибо.