Организация итерационных циклических процессов...

@ХЗ_63 · Регистрация: 14.05.2009

Author24 — интернет-сервис помощи студентам

Господа форумчане.....у меня такая проблема....вот задание....
Вычислить значение суммы членов бесконечного ряда S=x-(x^3)/3+...(-1)^n*x^(2n-1)/2n-1 с заданной точностью Eps(0.5*10^(-4)).На печать вывести значение суммы и число членов ряда, вошедших в сумму.
Есть набросок кода.....но я не уверен что он верен

Pascal

 program Project1;
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
VAR
 n:Integer;
 x,p,s:Single;
 begin
Readln(x);
n:=1; p:=-x; s:=p;
while (Abs(p)>0.00005) do
begin
n:=n+1;
p:=-p*x*x*(2*n-3)/(2*n-1);
s:=s+p;
end;
Writeln('s=',s,' n=',n);
readln;
end.

В общем скажите корректно написано или нет?

@Zabiyak · 29.05.2009, 02:32

А если так?

Delphi

readln(x);
n:=0;
s:=0;
repeat
p:=power(-1,n)*power(x,(2*n-1))/(2*n-1);
s:=s+p;
n:=n+1;
until abs(p)>0.00005;
writeln(s);

	29.05.2009, 02:32

Организация итерационных циклических процессов...

Решение