В самой проге не выполняется цикл.

[Repac123456]

Текст программы

procedure TForm1.Button1Click(Sender: TObject);
var
x,e,p,t,s: real;
i: integer;

begin
x:= StrToFloat(Edit1.text);
e:= StrToFloat(Edit2.text);
p:=x;
i:=1;
s:=x;
if Abs(p)>e then
begin
i:= i+1;
t:=x*(1-(3/(2*i*i+i)));
p:= p*t;
s:=s+p;
end
else
begin
Edit3.text:= FloatToStr(s);
end;
end;
end.

программа исправно работает работает при Abs(p)<e изначально , тоесть при вводе х<е но при х>е прога не работает.
Не мог ли бы указать пжалуйста щито не так?!

[Ghost of Night]

Repac123456 А как вы определяете что прога работает не правильно???

if Abs(p)>e then  //если модуль р больше е то
 begin
  i:= i+1;                         //к i прибавить 1
  t:=x*(1-(3/(2*i*i+i))); //вычислить t
  p:= p*t;                        //умножить p на t
  s:=s+p;                         //к s прибавить t
 end                                 //конец. А где, например отобразить результат или что-то подобное? Прога просто находит числа i,t,p и s   и всё!!!
else
 begin  //если модуль p < e то
  Edit3.text:= FloatToStr(s);   //вывести на  экран s. Это единственная запись, которая что-то отображает!
 end;

[Repac123456]

Во первых при запуске проги при Abs(p)<e изначально она выдаёт за сумму х, тоесть при вводе х<е, но при х>е прога не работает(не выдаёт значения суммы).
Во 2-х мне нужен вывод конечной суммы, промежут. значения ни к чему.

[Ghost of Night]

У вас в самой процедуре на предусмотрен какой-либо вывод при Abs(p)>e.
Как я уже говорил, прога вычисляет значения и завершает работу.
Чтобы был вывод, нужно исправить код примерно так:

procedure TForm1.Button1Click(Sender: TObject);
var
 x,e,p,t,s: real;
 i: integer;

begin
 x:= StrToFloat(Edit1.text);
 e:= StrToFloat(Edit2.text);
 p:=x;
 i:=1;
 s:=x;
 if Abs(p)>e then
  begin
   i:= i+1;
   t:=x*(1-(3/(2*i*i+i)));
   p:= p*t;
   s:=s+p;
  end;
 Edit3.text:= FloatToStr(s);  
end;
end.

[Ghost of Night]

Теперь вывод s будет при любом Abs(p).

[Repac123456]

спасибо за помощь.