Циклы Delfi

[LLIALLIJIbIK]

Прошу помощи. Нужно найти значение точки пересечения двух линий в диапазоне частот 5-10000 Гц. Для точности вычисления нужно задать маленький шаг. Объявляю массив - Frequency:array[5..10000] of double;
Если пишу такой цикл,

for i:=5 to 10000 do
begin
Frequency[i]:=i+0.0001;
ff1:=2*pi*Frequency[i]*Mei;
ff2:=(power(fp,3)*Me)/Frequency[i];
if ff1=ff2 then begin
break;
FF:=Frequency[i];
end;
end;
Form9.Edit3.Text:=FloatToStr(FF);

то программа выводит последнее значение массива с приплюсованным шагом.

Если такой,

i:=5;
while i<=10000 do
begin
Application.ProcessMessages;
Frequency[i]:=i+0.0001;
ff1:=2*pi*Frequency[i]*Mei;
ff2:=(power(fp,3)*Me)/Frequency[i];
if ff1=ff2 then begin
break;
FF:=Frequency[i];
end;
end;
Form9.Edit3.Text:=FloatToStr(FF);

то программа выводит значения других переменных в другие эдиты на этой форме, а тот который надо пуст. Но такое впечатление как-будто вычисление идет. Главная форма при этом не закрывается.

[evg_m]

Если пишу такой цикл,

for i:=5 to 10000 do
begin
Frequency[i]:=i+0.0001;
ff1:=2*pi*Frequency[i]*Mei;
ff2:=(power(fp,3)*Me)/Frequency[i];
if ff1=ff2 then begin
break;
FF:=Frequency[i];
end;
end;
Form9.Edit3.Text:=FloatToStr(FF);

то программа выводит последнее значение массива с приплюсованным шагом.

Не верю, она выводит случайно совпавшее с нужным.

for i:=5 to 10000 do
begin
Frequency[i]:=i+0.0001;
ff1:=2*pi*Frequency[i]*Mei;
ff2:=(power(fp,3)*Me)/Frequency[i];
if abs(ff1-ff2)<0.000001 then begin // вещественные числа очень редко совпадают. на проверять когда их разность будет меньше чего-то
FF:=Frequency[i];
break; // сначала установили FF:= потом break;
end;
end;
Form9.Edit3.Text:=FloatToStr(FF);

i:=5;
while i<=10000 do

Но такое впечатление как-будто вычисление идет.

и будет идти до конца света.
В цикле нет изменения i. =>бесконечный цикл.

Application.ProcessMessages;

в данном случае только вреден, поскольку маскирует зависание программы (кнопочки нажимаются и т.п. а толку нет).

[LLIALLIJIbIK]

for i:=5 to 10000 do
begin
Frequency[i]:=i+0.0001;
ff1:=2*pi*Frequency[i]*Mei;
ff2:=(power(fp,3)*Me)/Frequency[i];
if abs(ff1-ff2)<0.001 then begin
FF:=Frequency[i];
break;
end;
end;
Form9.Edit3.Text:=FloatToStr(FF);

В таком случае в эдит выдается ноль. Не врубаюсь.

[s-andriano]

Вы хотите найти точку пересечения кривых ff1 и ff2?
Это делается не так.
Нужно не находить совпадение точек (пусть даже с некоторой погрешностью), а пересечение отрезков, каждый из которых есть сегмент ломаной из предыдущей точки (ее значение нужно запоминать) в текущую (т.е. только что вычисленную).
Т.е.
1. i := 5;
2. Вычисляем CurrFF1.
3. Вычисляем CurrFF2.
4. Начало цикла.
5. PrevFF1 := CurrFF1;
6. PrevFF2 := CurrFF2;
7. Инкрементируем i.
8. Вычисляем CurrFF1.
9. Вычисляем CurrFF2.
10. Определяем пересекаются ли отрезки (PrevFF1-CurrFF1) и (PrevFF2-CurrFF2).
11. Если нет пересечения - на 3.