проблемы с циклами

[shutofka]

Здравствуйте.
пишу программу, столкнулась с такой проблемой: пытаюсь замострячить цикл в цикле. в первом цикле нужно найти угол(задачка наполовину геометрическая), во втором найти значение u, которое не должно превышать u_dop, заданное при запуске программы, и как итог-построить график.

w:=0;
repeat w:= w+0.000873;
R:=0;
i:=0;
x:=0;
y:=0;
Form3.Chart1.Series[0].Clear;
repeat
R:=R+0.0001;
H:=hc-R*cos(w);
D:=(a1*f1*(Power(H, f2)));
u:=8*(Power(10,-6))*D;
until (u <= u_dop);

x:=R*cos(w);
y:=R*sin(w);
w:=w+0.000873;//(pi/32);
i:=i+1;
Form3.Chart1.series[0].AddXY(x,y,'', clBlack);
until w>=pi;

подскажите, что я сделала не так?

[mansuetudo]

Непонятно, в чём, собственно, проблема. Объясните, что вы хотите получить и что не получается.

[shutofka]

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

Непонятно, в чём, собственно, проблема. Объясните, что вы хотите получить и что не получается.

для начала, нужно найти при каких радианах будут выполнены условия :

H:=hc-R*cos(w);
D:=(a1*f1*(Power(H, f2)));
u:=8*(Power(10,-6))*D;

чтобы u не превысило u_dop.

и как итог вывести график, который будет представлять полукруг, радиуса u.

надеюсь стало немного ясней...

[mansuetudo]

Если я правилно поняла постановку задачи, то нужно вставить во внутренний цикл расчёты x и y и вот это (простите, с этим элементом не работала, преполагаю, что это вы строите график)

Form3.Chart1.series[0].AddXY(x,y,'', clBlack);

И ещё вопрос: у вас внешний цикл уже выполняет действие repeat w:= w+0.000873 , для чего вы потом его дублируете?