Вычислить сумму ряда с точностью e=10-6

Вычислить сумму ряда с точностью e=10-6

Задать свой вопрос
1 ответ
Var
  i,z:integer;
  x,n,s,y,t:real;
begin
write('Введите x: ');
readln(x);
z:=1;
y:=1;
n:=2;
repeat
  i:=i+1;
  y:=y*x*x;
  n:=n*(2*i+2)*(2*i+1);
  t:=z*(2*i+1)*y/n;
  s:=s+t;
  z:=-z;
  until tlt;=1e-6;
writeln('S=',s);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт