Программка на delphi ошибка invalid floating point

Question

procedure TForm1.FormCreate(Sender: TObject); 
var 
T1X:array [0..9] of Extended; 
T1Y:array [0..9] of Extended; 
i:integer; 
dt:Real; 
 
begin 
dt:=0.1; 
T1X[0]:=4; 
T1Y[0]:=1; 
for i:=1 to 10 do 
T1X[i+1]:=((3*dt+T1X)/(1+6/7*dt)); 
T1Y[i+1]:=(T1Y/(1-8/5*dt)); 
end; 
 
не пойму где делю на ноль?

Юлия Кормилицына · Accepted Answer

при таких раскладах программа виснуть должна, посмотри индексы массивов

Тигран Кобегкаев · Answer

dt:=0.1; у тебя разделитель точка?

Женя · Answer

> не пойму где делю на ноль? 
 
Не пойму с чего ты взял что ты делишь на ноль.

Ленок Деркач · Answer

3*dt+T1X)/ 
T1Y/(1 
не указаны индексы массивов 
T1X[i+1]:= 
T1Y[i+1]:= 
Возможно должно быть 
T1X[i-1]:= 
T1Y[i-1]:= 
или for i:=0 to 8 do 
 
вообще в параметрах цикла явно указывать границы массива не стоит 
для указания параметров цикла используй функции Low и High