Вычислить и выдать на экран приближенное значение бесконечной суммы

@plakapenka · Регистрация: 06.10.2014

Вычислить и выдать на экран приближенное значение бесконечной суммы с точностью до ε. Считается, что требуемая точность достигнута, если очередное слагаемое по модулю меньше, чем ε.

ε = 0,15

$https://www.cyberforum.ru/cgi-bin/latex.cgi?S=\sum_{i=1}^{}\frac{{x}^{2-i}}{(2*i)!}$

@volvo · 29.01.2015, 00:01

Pascal

const eps = 0.15;
var
  s, p, x : real;
  i : integer;
begin
  write('x = '); readln(x);
  s := 0; p := x / 2; i := 1;
  repeat
    s := s + p;
    p := p / x / (2*i+1) / (2*i+2);
    inc(i);
  until p < eps;
  writeln('s = ', s:10:5);
end.

, только при eps = 0.15 будет всего одна итерация, потому что уже при i = 2: x⁰/4!=1/24 меньше eps...

@plakapenka 1 / 1 / 2 Регистрация: 06.10.2014 Сообщений: 33
		1
	Вычислить и выдать на экран приближенное значение бесконечной суммы 28.01.2015, 23:21. Показов 1474. Ответов 1 Метки нет (Все метки) Вычислить и выдать на экран приближенное значение бесконечной суммы с точностью до ε. Считается, что требуемая точность достигнута, если очередное слагаемое по модулю меньше, чем ε. ε = 0,15 $https://www.cyberforum.ru/cgi-bin/latex.cgi?S=\sum_{i=1}^{}\frac{{x}^{2-i}}{(2*i)!}$ 0

Опции темы

Вычислить и выдать на экран приближенное значение бесконечной суммы

Решение