Деление на ноль

[LLIALLIJIbIK]

Подскажите, почему возникает ошибка "floating point division by zero"

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

[Вадим Мошев]

ff2:=(power(fp,3)*Me)/Frequency[i];

Если тот код, что вы представили - полная программа, то из-за этой строки. У вас массив не определён, компилятор, наверное, считает, что там содержатся одни нули.

[LLIALLIJIbIK]

Определен.
Frequency:array[5..10000] of double;
Поэтому мне и не понятно откуда там ноль.

[BDA]

Он объявлен, но не инициализирован значениями.
(скорее всего он заполнен нулями, как глобальная переменная)

[LLIALLIJIbIK]

А как мне его инициализировать с таким огромным диапазоном?

[Stilet]

Fillchar(Frequency,Length(Frequency )*sizeof(double),1);
А вообще не понятно что ты добиваешся этим кодом...

[Вадим Мошев]

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

А как мне его инициализировать с таким огромным диапазоном?

Можно вручную:

Frequency[1]:=random(10)+1;
Frequency[2]:=random(10)+1;
Frequency[3]:=random(10)+1;
...

А можно с помощью цикла

for i:=1 to 10000 do 
Frequency[i]:=random(10)+1;

Рекомендую воспользоваться первым способом, чтобы поняли, насколько полезны циклы и чтобы вопросов "А как мне его инициализировать с таким огромным диапазоном?" у вас больше не возникало

[LLIALLIJIbIK]

Пытаюсь найти частоту, на которой пересекаются две кривые в диапазоне частот.

Я сделал так, заработало, но некорректно

for i:=5 to 10000 do
begin
Frequency[i]:=i+0.001;
end;

Блин, и понял, что это фигня полная

[s-andriano]

Когда поймете, что Вам нужно - напишите.
Потому как инициализировать этот массив можно разными способами, количество которых существенно превышает количество атомов во Вселенной.
Который из них Вас устроит, мы, не обладающие телепатией, узнать никак не можем.

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

Пытаюсь найти частоту, на которой пересекаются две кривые в диапазоне частот.

Что-то никак не могу увязать эту цель с Вашим кодом.
Вы не могли бы поподробнее изложить, что именно Вам нужно.

[Вадим Мошев]

превышает количество атомов во Вселенной.

Если предположить, вселенная бесконечна, то количество атомов в ней равно бесконечности. Отсюда следует, что способов инициализации массива также бесконечно много.