Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
svenchik
0 / 0 / 2
Регистрация: 19.11.2014
Сообщений: 2
#1

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

19.11.2014, 15:06. Просмотров 272. Ответов 1
Метки нет (Все метки)

Даны действительные числа x, ε (x не равно 0, ε>0). Вычислить с точностью ε
http://www.cyberforum.ru/pascal/thread117683.html

http://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{k=0}^{\infty}\frac{(-1)^kx^{4k+1}}{2k!(4k+1)}
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.11.2014, 15:06
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вычислить сумму ряда с заданной точностью (Pascal):

Вычислить сумму ряда с заданной точностью
1.1.46. l n(1-x)=-(x+x2/ 2 +x3/3 + …+ xn/n) для х<1 вот собственно говоря...

Вычислить сумму ряда с заданной точностью
Вычислить сумму членов ряда S с точностью E: S=1+1/1!+1/2!+1/3!+...

Вычислить сумму ряда с заданной точностью
\frac{x^1}{1!}+\frac{x^2}{2!}+\frac{x^3}{3!}+...+\frac{x^n}{n!} Вычислить...

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

Вычислить сумму ряда с заданной точностью
составить программу вычисления суммы ряда с точностью до ϵ =10 в — 4 степени: ...

1
JokeR.BY
CAPITAL OF ROCK!
1278 / 705 / 982
Регистрация: 03.03.2010
Сообщений: 2,284
Завершенные тесты: 2
19.11.2014, 15:50 #2
Лучший ответ Сообщение было отмечено svenchik как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
const
    line = '+-----+--------------------+---------------------+';
 
var
    eps : Single = 0;
    x : Single = 0;
    sum : Double = 0;
    fact : Double = 1;
    pow : Double;
    k : Word = 0;
    sumK : Double;
 
begin
    while (x = 0) do
    begin
        Write('Input x=');
        ReadLn(x);
    end;
    pow := x;
    sumK := x;
    while (eps <= 0) do
    begin
        Write('Input eps=');
        ReadLn(eps);
    end;
    WriteLn(line);
    WriteLn('|  k  |         si         |         sum         |');
    WriteLn(line);
    while (Abs(sumK) > eps) do //если без модуля, то каждый раз будет только две итерации
    begin
        sumK := pow / (fact * (4 * k + 1));
        sum := sum + sumK;
        Inc(k);
        fact := fact * (2 * k - 1) * (2 * k);
        pow := -pow * sqr(sqr(x));
        WriteLn('| ', k:3, ' | ', sumK:18:5, ' | ', sum:19:7, ' |');
    end;
    WriteLn(line);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.11.2014, 15:50
Привет! Вот еще темы с решениями:

Вычислить сумму ряда с заданной точностью
Помогите вычислить сумму ряда Добавлено через 2 минуты...

Вычислить сумму ряда с заданной точностью
Даны действительные числа (x не равен 0, e&gt;0) Вычислить с точностью e ...

Вычислить сумму ряда с заданной точностью
Помогите пожалуйста. Необходимо: вычислить сумму ряда при X= -0.35 с точностью...

Вычислить сумму ряда с заданной точностью
Для заданного положительного , описывается как константа, и заданного x,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru