линейная интерполяция

[Auster]

Здравствуйте, уважаемые эксперты.
Передо мной стоит следующая задача: выполнить в Delphi линейную интерполяцию среди массива (30элементов) вещественных чисел и вывести значение. Пользователю доступно 2 поля: ввод числа и полученное значение. Все работает при интерполляции среди 3-х чисел в таком виде p:=Y[i]+(Y[i+1]-Y[i])*(E-X[i])/(X[i+1]+X[i]);
Подскажите пожалуйста:
1.какой массив лучше выбрать (статич. или динамич) и инициализировать элементы одномерного массива, значения известны и постоян.;
2.правильно ли использовать цикл if_then_else? или как-то иначе узнать в какой интервал из 2-х попала величина и выполнить интерполяцию?

[_Dmitry]

1. Если у вас элементы массива известны и простоянны, то зачем вам динамический массив? Создавайте статический.
2. Совершенно правильно

 for i:=1 to n do
   if E <= X[i] then break;
 i:=i-1;

И проверьте формулу интерполяции, в знаменателе должна быть разность иксов.

[Auster]

Cпасибо, Дмитрий. Хотел бы уточнить, а как собственно присвоить значения элементам массива, т.е. в виде А=(0.1, 0.5, 1.8 ...) дельфя рагается(( и еще, при объявлении массива какой тип данных использоват
var My_Array : array[0..40] of Real?; Extended?; Single?

[_Dmitry]

А что такое "А", вы же писали, что у вас массивы "X" и "Y".
если значения массива постоянны и не меняются, то можно так:

 const
   X: array[0..40] of double = (0.1,0.5,1.8,...);
   Y: array[0..40] of double = (...);

Ну, а тип данных зависит от типа конкретной задачи, смотрите в Help чем они отличаются. Но при этом учитывайте, что процессор все считает в Extended, а затем программа производит обрезание до заданного типа.

[Auster]

"А"-очепятка), массивов действительно 2, спасибо за скорый и понятный ответ