Вычислить сумму ряда с заданной точностью

@hedgehog460 · Регистрация: 08.11.2016

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

Даны действительные числа x, ε (x не равно 0, ε>0). Вычислить с точностью ε (ε = 10^-3, 10^-4, 10^-5, 10^-6) сумму ряда и указать количество учтённых слагаемых. Результаты оформить в виде таблицы:

е	Сумма	N
10^-3
10^-4
10^-5
10^-6

Ограничиться рассмотрением первых 10-ти членов.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \sum_{k=1}^{\infty}{x^k}^2<br />$

@JokeR.BY · 08.11.2016, 11:34

Pascal

{$MODE TP}
const
    EPS: Array[0..3] Of Real = (0.001, 0.0001, 0.00001, 0.000001);
function EpsToAccur(e: Real): Byte;
//var
//  Result: Byte;
begin
    e := Abs(e); //мало ли
    Result := 0;
    while (e < 1) do
    begin
        Inc(Result);
        e := e * 10;
    end;
    EpsToAccur := Result;
end;
var
    x: Single;
    sum, xi: Extended; //Double|Real
    i, j, k: Byte;
begin
    Write('x='); ReadLn(x);
    for i := 0 to 3 do
    begin
        xi := x; k := 1; sum := 0; j := 0;
        while ((Abs(xi) > EPS[i]) And (j < 10)) do
        begin
            Inc(j);
            sum := sum + xi;
            if (x < 0)
            then
                xi := -xi;
            xi := xi * Exp((2 * k + 1) * Ln(Abs(x)));
            Inc(k);
        end;
        WriteLn('EPS=', EPS[i]:0:EpsToAccur(EPS[i]), ':', j, ' sum=', sum:0:EpsToAccur(EPS[i]));
    end;
end.

	08.11.2016, 11:34

Опции темы

Вычислить сумму ряда с заданной точностью

Решение