Цитата(creer @ 3.4.2008, 2:33) *

А если так? Цифр стало больше smile.gif.
Код

Program laba4;
Var
  x,y,n,s:real;
Begin
  x:=0.2;
  while x<=0.8 do
  begin
    y:=(1/2)*ln((1+x)/(1-x));
    s:=x+exp(3*ln(x))/3+exp(5*ln(x))/5+exp(7*ln(x))/7;
    write('При x=', x:1:1, ', s=',s:8:8, ', y=', y:8:8,'. ');
    if abs(y-s)<0.01 then
      writeln('Погрешность менее 0.01.')
    else
      writeln('Погрешность более 0.01.');
    x:=x+0.2;
  end;
end.


мне нужен цикл чтобы он прогонял через формулу суммы каждое число n раз. и потом выдавал их решение. более подходящее к погрешности. то есть при х=0.2 s должно быть равно 0,2 , 0,2066666 и 0,207777. и так со всеми