Произвести табулирование функции в 10 точках В Паскале

[dvpvitas]

При приближенном вычислении суммы ряда расчет выполнять с точностью E. Использовать цикл с предусловием и цикл с постусловием.

[newerow1989]

function step(chislo:integer;stepen:integer):integer;
var i:integer;
begin
   Result:=1;
   For i:=1 to stepen do
      Result:=Result*chislo;
end;

const e=0.00000001;
var i:integer;
    s,ds:real;
begin
   i:=0;
   s:=0;
   Repeat
      i:=i+1;
      ds:=step(-1,i-1)/step(i,i);
      s:=s+ds;
      //Writeln(ds:5:12);
   Until Abs(ds)<e;
   Writeln(s:5:12);
   i:=1;
   ds:=step(-1,i-1)/step(i,i);
   s:=ds;
   While Abs(ds)>=e do
   begin
      i:=i+1;
      ds:=step(-1,i-1)/step(i,i);
      s:=s+ds;
      //Writeln(ds:5:12);
   end;
   Writeln(s:5:12);
   Readln;
end.

Сойдет?

[dvpvitas]

без step можно?спасибо

[newerow1989]

step - это функция степени числа. Просто забыл вставить

[type_Oleg]

А теперь посчитайте ради интереса

 WriteLn(step(10,10));

Должно ведь получиться круглое число.

PS Хотя при E не очень мелком - все прокатит. До i=10 дело не дойдет.