Приближенные вычисления, задача на Паскале Опции

[real888]

Разработать алгоритм и программу вычисления приближенного значения суммы
x-1/x + (x-2)2/2x2 + (x-3)3/3x3 +… С заданной точностью Е (0,1>=E>=0.0001).
Вычисления следует прекратить, когда очередной элемент ряда , включаемый в сумму не превышает точность Е.
Точность Е и Х (Х-действительное число Х>0,5) уст. пользователем. Наложить верхнее ограничение на значение Х.

Кто знает напишите на Паскале или помогите чем можете

Это название было тоже не ахти информативным, я исправил, в следующий раз будь внимательней и прочти правила форума

Спасибо в следующий раз учту

Сообщение отредактировано: volvo - 2.11.2006 17:31

[real888]

я написал так, но работает не очень, подправте если знаете

Код

uses crt;
var
sum,x,e:real;
i,j:integer;
c: char;
buf:array[1..2] of real;
begin
textcolor(red);
repeat
Begin
{$I-}
clrscr;
repeat
clrscr;
settextbuf(input, buf);
write('Vvedite chislo x ot 0.5 do 5.5 ');
readln(x);
until ((ioresult=0)and(x>0.5)and(x<5.5));
i:=1;sum:=0;
Begin
e:=(x-i)/x;
for j:=1 to (i-1) do
Begin
e:=e*e;
end;
e:=e/i;
sum:=sum+e;
i:=i+1;
end;
writeln('sum= ', sum:3:3);
write(#13#10);
writeln('dlya vihoda najmite "N"');
writeln('dlya prodoljeniya lubaya klavisha');
c:=readkey;
end;
until (c=#110);
end.

Сообщение отредактировано: volvo - 1.02.2006 11:01