цикл whilе

[nexzis]

небольшая программка должно выводить значения а выводит просто пустое место...что неправильно?

procedure TForm1.Button2Click(Sender: TObject);
var d:real;
begin
label3.Caption:= '';
 d:=x ;  a:=1.65;  e:=2.7;
 dx:=0.4;  x:=-2; b:=2;
while d<=b do
begin
if abs(x)<1 then y:=arccos(x)+ power(e,2*x) else
if x>=1 then y:=ln(x+5) + sqr(a) else
y:= sqr(x) - 2*x+ 0.75;

f:=power((5*sqr(y)+sin(y)),1/3)+a*sqr(arctan(2*y));
label3.Caption:= label3.Caption{+ floattostr(f)}+format('%8.3f',[f])+#13  ;
     x:=x+dx;

end;
end ;

[DeKot]

Не знаю, что во всей программе, но у Вас
[QUOTE]d:=x ; a:=1.65; e:=2.7;
dx:=0.4; x:=-2; b:=2;[/QUOTE
d присваивается значение x, а затем x присваивается значение -2.
Не видно, где инициализируется переменная х.

[GetMax]

Попробуйте добавить

procedure TForm1.Button2Click(Sender: TObject);
var d:real;
begin
label3.Caption:= '';
 d:=x ;  a:=1.65;  e:=2.7;
 dx:=0.4;  x:=-2; b:=2;
while d<=b do
begin
if abs(x)<1 then y:=arccos(x)+ power(e,2*x) else
if x>=1 then y:=ln(x+5) + sqr(a) else
y:= sqr(x) - 2*x+ 0.75;

f:=power((5*sqr(y)+sin(y)),1/3)+a*sqr(arctan(2*y));
label3.Caption:= label3.Caption{+ floattostr(f)}+format('%8.3f',[f])+#13  ;
     x:=x+dx;
     d:=x
end;
end ;

[nexzis]

всё сделал сам не понял как но заработало
было правильно сначала написано, но не работало непонятно только почему
просто вместо d надо присвоить x было
тему можно закрывать