Вычислить значение суммы бесконечного ряда

@Sasha1997 · Регистрация: 18.10.2015

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

Вычислить значение суммы бесконечного ряда S=1+xlna/1!+(xlna)²/2!+...+(xlna)ⁿ/n!+..с точностью до члена
ряда, меньшего ε=10^-4, и значение функции (для проверки)
f=a^x; учесть, что функция определена при 0,1 < = x < = 1. Вывес-
ти на экран значение указанной функции и значение суммы
ряда. Оба значения должны совпадать.

@JokeR.BY · 25.10.2015, 20:29

Pascal

const
    eps = 0.0001;
var
    s, r, si: Extended;
    x, a: Single;
    i: Byte;
begin
    repeat
        Write('x(0.1<=x<=1)='); ReadLn(x);
    until ((x >= 0.1) And (x <= 1));
    repeat
        Write('a(a>0)='); ReadLn(a);
    until (a > 0);
    r := x * Ln(a); si := 1; i := 0; s := 0;
    while (Abs(si) >= eps) do
    begin
        s := s + si;
        Inc(i);
        si := si * r / i;
    end;
    WriteLn('S=', s:0:4);
    WriteLn('F=', Exp(Ln(a) * x):0:4);
end.

@Sasha1997 1 / 1 / 0 Регистрация: 18.10.2015 Сообщений: 44
		1
	Вычислить значение суммы бесконечного ряда 25.10.2015, 16:14. Показов 3056. Ответов 1 Метки нет (Все метки) Вычислить значение суммы бесконечного ряда S=1+xlna/1!+(xlna)²/2!+...+(xlna)ⁿ/n!+..с точностью до члена ряда, меньшего ε=10^-4, и значение функции (для проверки) f=a^x; учесть, что функция определена при 0,1 < = x < = 1. Вывес- ти на экран значение указанной функции и значение суммы ряда. Оба значения должны совпадать. 0

Опции темы

Вычислить значение суммы бесконечного ряда

Решение