Delphi: ошибка записи в StringGrid и Edit

[Sianessa]

В общем всё та же вчерашняя задача... (точнее, её продолжение)
Начала реализовывать второй способ...
Мне в общем надо подсчитать теперь количество итераций и вывести их в эдит, а так же полученные значения в 4-й Эдит. Воспользовалась циклом while и то ли цикл не там организовала, то ли что - программа по нажатию 4-й кнопки данные не выводи ни в Эдит нив Грид
Вот кусок кода с которым проблема:

procedure TForm1.Button4Click(Sender: TObject);
var
r,e,u,y:real;
i, sh:integer;
k:array of Real;
h:array of Real;
ee:array of Real;
q:array of Real;
yy:array of Real;
begin
r:=StrToFloat(Edit2.text);
SetLength(ee, n);
SetLength(k, n);
SetLength(q, n);
SetLength(h, n);
SetLength(yy, n);
for i := 0 to n-1 do
  begin
    k[i]:=StrToFloat(StringGrid1.Cells[0,i]);
    h[i]:=StrToFloat(StringGrid2.Cells[0,i]);
  end;
while ee[i]>r do
sh:=sh+1;
begin
u:=u+(k[i]*h[i]);
y:=1/(1+Exp(u));
e:=d-y;
for i:=0 to n-1 do
begin
q[i]:=e*0.5*(Power((yy[i]-d),2));
end;
for i:=0 to n-1 do
begin
ee[i]:=q[i]*k[i];

StringGrid4.Cells[0,i]:=FloatToStr(ee[i]);

end;

end;
Edit5.Text:=IntToStr(sh);

end;
end.

Если надо - исходник прикрепляю.

[Stilet]

for i := 0 to n-1 do

А где у тебя n инициализируется?
Может тебе нужно дописать в начало

n:=StrToInt(Edit5.text);

И потом, StringGrid1 у тебя пуст. Откуда будут значения браться?

[Sianessa]

Stilet, Первый и Второй СтрингГриды, он заполняется рандомно по нажатию кнопки Button2, либо данные вводятся вручную с клаиватуры...
Потом только нажимается Button4

Я дописала переменную, теперь пишет, что тип данных не тот =__=

Хотя уже опять не работает =__= чё мне делать?

[Stilet]

Я дописала переменную, теперь пишет, что тип данных не тот =__=

А у меня работает. Правда последнюю таблицу нулями заполняет но не вылетает

procedure TForm1.Button4Click(Sender: TObject);
var
r,e,u,y:real;
i, sh:integer;
k:array of Real;
h:array of Real;
ee:array of Real;
q:array of Real;
yy:array of Real;
begin
r:=StrToFloat(Edit2.text);
n:=StrToIntDef(Edit5.text,3);
SetLength(ee, n);
SetLength(k, n);
SetLength(q, n);
SetLength(h, n);
SetLength(yy, n);
for i := 0 to n-1 do
  begin
    k[i]:=StrToFloat(StringGrid1.Cells[0,i]);
    h[i]:=StrToFloat(StringGrid2.Cells[0,i]);
  end;
while ee[i]>r do
sh:=sh+1;
begin
u:=u+(k[i]*h[i]);
y:=1/(1+Exp(u));
e:=d-y;
for i:=0 to n-1 do
begin
q[i]:=e*0.5*(Power((yy[i]-d),2));
end;
for i:=0 to n-1 do
begin
 ee[i]:=q[i]*k[i];
 StringGrid4.Cells[0,i]:=FloatToStr(ee[i]);
end;

end;
Edit5.Text:=IntToStr(sh);

end;

[Sianessa]

Stilet, хм... Теперь да...
Благодарю...
Только что сделать, чтобы нулями... ну да ладно, мне теперь надо сделать рабочий цикл, чтоб итерации считал по нажатию 4-й кнопки и выводил их в 5-й эдит...
Не выходит что-то...
Оно зависает:

procedure TForm1.Button4Click(Sender: TObject);
var
u,y,e, d,m,r :Real;
i, n, sh:integer;
k:array of Real;
h:array of Real;
ee:array of Real;
yy:array of Real;
cc:array of Real;

begin
d:=StrToFloat(Edit4.text);
r:=StrToFloat(Edit2.text);
n:= StringGrid1.RowCount;
u:=0;
sh:=0;
SetLength(k, n);
SetLength(h, n);
SetLength(ee, n);
SetLength(yy, n);
SetLength(cc, n);
for i := 0 to n-1 do
  begin
    k[i]:=StrToFloat(StringGrid1.Cells[0,i]);
    h[i]:=StrToFloat(StringGrid2.Cells[0,i]);
  end;

for i:=0 to n-1 do
begin
u:=u+(k[i]*h[i]);
y:=1/(1+Exp(u));
e:=d-y;
m:=0.5*(Power((yy[i]-d),2));
end;
for i:=0 to n-1 do
begin
ee[i]:=e*k[i]*m;

if ee[i]<r then
StringGrid4.Cells[0,i]:=FloatToStr(ee[i])
else
while ee[i]>r do
cc[i]:=ee[i]*ee[i]*m;
sh:=sh+1;
StringGrid4.Cells[0,i]:=FloatToStr(cc[i]);
 end;
  Edit5.Text:=IntToStr(sh);
end;
end.

[Stilet]

while ee[i]>r do

А где у тебя в теле цикла условие изменяется?
цикл закольцован у тебя.

[Sianessa]

Эээ... а оно должно меняться? И как? =__=
У меня же ифом вроде описано, что если ee[i]<r то выводится результат, а иначе цикл до тех пор пока результат не будет меньше...
Я не могу понять что я не так сделала...

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

[Stilet]

а иначе цикл до тех пор пока результат не будет меньше...

Дык у тебя в цикле всего один оператор:

while ee[i]>r do
cc[i]:=ee[i]*ee[i]*m;

Может тебе там нужно не cc[i] а ee[i]?
Откуда кто знает что тебе нужно?

[Sianessa]

Stilet, точно! До меня дошло, наконец-то... Я исправила код, но теперь почему-то число итераций всё время 4 и числа иногда большие слишком получаются... Ни одно так другое...

if ee[i]<r then
StringGrid4.Cells[0,i]:=FloatToStr(ee[i])
else
while ee[i]>r do
ee[i]:=ee[i-1]/e*m;
sh:=sh+1;
StringGrid4.Cells[0,i]:=FloatToStr(ee[i]);

 end;
 Edit5.Text:=IntToStr(sh);
end;
end.

[Sianessa]

А, всё, у меня просто счётчик не там стоял!
Всё, я исправила!
Спасибо за помощь и навод на нужные мысли)