Правильно ли выполнена проверка на погрешность?

[guardi]

program number15;
var 
a,x,x0,hx,xn,y,e,s,s1,s2:real;
n,kn:integer;
begin
x0:=0.1;
hx:=0.15;
xn:=1.6;
e:=1E-4;
kn:=10;
x:=x0;
while x < xn do
 begin
  if x < 0.5 then
   begin
    n:=0;
    s:=0;
    s1:=s;
    repeat
     s2:=s1;
     s:=s+(exp(2*n*ln(x)))/4*n+1;
     n:=n+1;
   until abs(s1-s2) < e;
   y:=((sqr(x)+3*x+4)/(5*x+1))*s;
   writeln('x = ',x, ' y = ',y:2:4);
   end
  else
   begin
    s1:=0;
    for n:=1 to kn do
     s1:=s1+(exp(n*ln(x))/n);
    y:=(x/3)*s;
    writeln('x = ',x, ' y = ',y:2:4);
   end;
   x:=x+hx;
 end;
end.

Собственно,вот эти строки:
n:=0;
s:=0;
s1:=s;
repeat
s2:=s1;
s:=s+(exp(2*n*ln(x)))/4*n+1;
n:=n+1;
until abs(s1-s2) < e;

[p51x]

Нет. У вас же цикл бесконечный, т.к. s1, s2 не изменяются в цикле.

[guardi]

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

Нет. У вас же цикл бесконечный, т.к. s1, s2 не изменяются в цикле.

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

[guardi]

А вот так?

begin
n:=0;
s:=0;
t:=1;
while abs(t) > e do
begin
n:=n+1;
t:=exp(2*n*ln(x))/(4*n+1);
s:=s+t;
end;

[ura_111]

Наверно, нет.

Тебе надо не (абсолютное) значение в точке проверять, а "изменение расчётной величины", т.е. разность.
Разность между теперешним значением и значением на предыдущем шаге.
По идее эта разность (с каждый шагом) будет уменьшаться.

А ну сделай "ручной счёт", покажи суть задачи на пальцах...
Если долго считать с помощью калькулятора, - можешь в С++ подсчитать (организовав простенький цикл на 100 точек, а потом разность в ручную найти).
Покажи свои расчёты здесь...
И только после этого переходи к решению своей задачи...

p.s.: тебе будет полезно поискать на форуме подобные задачи, - здесь их целая куча...
Надо только формулу свою подставить...

[ura_111]

Тебе надо S находить:

На первом шаге S1 несчем сравнивать.
При втором расчёте S2, можно найти |S1-S2|
При расчёте в третей точке - можно найти |S2-S3|
....
....