Ошибки при линейной интерполяции в Delphi((

[Auster]

Здравствуйте, уважаемые знатоки. Очень нужна Ваша помощь. Привожу код - линейная интерпол. массивов вещественных чисел. Никак не могу одолеть. Помогите пожалуйста.

type
  TForm1 = class(TForm)
    DATA: TEdit;
    Inter: TEdit;
    Button6: TButton;
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
     public
    { Public declarations }
  end;
var
  Form1: TForm1;
  var
  X:array[1..3] of Real=(0.1, 0.2, 0,3); //вообще элементов около 30, регулярного шага нет, кол-во постоян., и известно заранее
  Y:array[1..3] of Real=(0.5, 0.7, 0,9);
[Error] Unit1.pas(26): Number of elements differs from declaration
  X:array[0..3] of Real=(0.1, 0.2, 0,3);
  Y:array[0..3] of Real=(0.5, 0.7, 0,9);
Я так понимаю, в этом случае 0..3=4элемента? Или нет? Ошибки не возникает -ПОЧЕМУ? 
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button6Click(Sender: TObject);
begin
 for i:=1 to 3 do
[Error] Unit1.pas(46): For loop control variable must be simple local variable
Что не так?
   if StrToFloat(Data.Text)<=X[i]
then if StrToFloat(Data.Text)>=X[i+1]
then begin
Inter.Text:=FloatToStr(y[i]+((y[i+1]-y[i])/(x[i+1]-x[i]))*(StrToFloat(Data.Text)-x[i]))
i:=i-1
end
else
Как замкнуть цикл и проверять следующие элементы?
end;
end.

Заранее спасибо.

[B_N]

Объявите в процедуре Button6Click переменную i : integer, уберите вот это: "i:=i-1" и оформите, пожалуйста, листинг тэгом <CODE> (# в окне редактирования), сил нет глаза ковырять. Потом можно будет разбираться с математикой. Массивы объявляются с указанием крайних значений, в массиве [0..3] четыре элемента.

[Auster]

Спасибо за ответ. В таком виде код нормально? Добавил переменную i, убрал i=i-1, скомпилировалась, выдает ошибку при вводе 0,1 и т.п.
"0.1- is not a valid floating point value". Я так понимаю еще рано компилировать. Вопрос: как правильно записать кол-во элементов массива если из 5 - [0..4] или [1..5]?
# type
TForm1 = class(TForm)
DATA: TEdit;
Inter: TEdit;
Button6: TButton;
procedure Button6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
var
X:array[1..3] of Real=(0.1, 0.2, 0,3); //вообще элементов около 30, регулярного шага нет, кол-во постоян., и известно заранее
Y:array[1..3] of Real=(0.5, 0.7, 0,9);
//выдает ошибку [Error] Unit1.pas(26): Number of elements differs from declaration - допустим 3 элемента, в другом случае норм.?
хотя получается 4-ре элемента???
X:array[0..3] of Real=(0.1, 0.2, 0,3);
Y:array[0..3] of Real=(0.5, 0.7, 0,9);
//Я так понимаю, в этом случае 0..3=4элемента? Или нет? Ошибки не возникает -ПОЧЕМУ?
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button6Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to 3 do
//[Error] Unit1.pas(46): For loop control variable must be simple local variable
Что не так?
if StrToFloat(Data.Text)<=X[i]
then if StrToFloat(Data.Text)>=X[i+1]
then begin
Inter.Text:=FloatToStr(y[i]+((y[i+1]-y[i])/(x[i+1]-x[i]))*(StrToFloat(Data.Text)-x[i]))
end
else
//Как замкнуть цикл и проверять следующие элементы?
end;
end.[/CODE]
Предидущие посты мы читаем невнимательно?

[B_N]

X:array[1..3] of Real=(0.1, 0.2, 0,3);
Y:array[1..3] of Real=(0.5, 0.7, 0,9);
//--------------------------------
X:array[0..3] of Real=(0.1, 0.2, 0,3);
Y:array[0..3] of Real=(0.5, 0.7, 0,9);

Вещественные константы определяются через точку, а не через запятую - отсюда несоответствие количества. Проясните назначение "Data.Text".

[Auster]

Поясите тупому эта запись X:array[0..3] of Real=(0.1, 0.2, 0,3);
означает, что 0-му элементу соответствует значение 0.1, 1-му - 0.2, а какому номеру значение 0.3? 2-му или 3-му?
"Data.Text" - это просто имя TEdita, куда пользователь вводит значения X-ов. "Inter.Text" - это имя TEdita, для вывода полученной величины.
Inter -это очепятка от Enter).

[Stilet]

"Data.Text" - это просто имя TEdita

В общем ты во всем догадался правильно окромя того что это не имя эдита а обращение к его свойству.
А в остальном ты в целом прав.

[Auster]

Спасибо, однако вопросы остались открытыми(.
1. Как правильно объявить кол-во элементов массива и присвоить им значения и обращаться к ним в теле цикла? 2. Замкнуть цикл, пока одни ошибки(

[B_N]

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

Поясите тупому эта запись X:array[0..3] of Real=(0.1, 0.2, 0,3);
означает, что 0-му элементу соответствует значение 0.1, 1-му - 0.2, а какому номеру значение 0.3? 2-му или 3-му?
"Data.Text" - это просто имя TEdita, куда пользователь вводит значения X-ов. "Inter.Text" - это имя TEdita, для вывода полученной величины.
Inter -это очепятка от Enter).

Запись

X:array[0..3] of Real=(0.1, 0.2, 0,3);

означает

X[0] := 0.1;
X[1] := 0.2;
X[2] := 0;
X[3] := 3;

Следите внимательно за запятыми.

[Stilet]

1. Как правильно объявить кол-во элементов массива и присвоить им значения и обращаться к ним в теле цикла?

Например так как прописано в примере.

Замкнуть цикл, пока одни ошибки(

Какие ошибки?

[Auster]

Прога компелируется не выдавая замечаний, но при попытке внести исходные данные - любую дробную величину выдается:
message "0.1 is not a valid floating point value." Process stopped.
Где собака зарыта? Еше раз код привожу. Р.S. при вводе значений массива попутал . и , спасибо.

#
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExcelXP, OleServer, Menus, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
DATA: TEdit;
Button6: TButton;
Enter: TEdit;
procedure Button6Click(Sender: TObject);
private
{ Private declarations }

public
{ Public declarations }

end;

var
Form1: TForm1;
var
X:array[1..3] of Real=(0.1, 0.2, 0.3);
Y:array[1..3] of Real=(0.5, 0.7, 0.9);

implementation
uses Unit2, Unit3;
{$R *.dfm}

procedure TForm1.Button6Click(Sender: TObject);
var
i:integer;
begin
if StrToFloat(Data.Text)<=X[i]
then if StrToFloat(Data.Text)>=X[i+1]
then begin
Enter.Text:=FloatToStr(y[i]+((y[i+1]-y[i])/(x[i+1]-x[i]))*(StrToFloat(Data.Text)-x[i]))
end
end;
end.