Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Sasha1997
1 / 1 / 0
Регистрация: 18.10.2015
Сообщений: 39
#1

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

04.11.2015, 11:40. Просмотров 680. Ответов 1
Метки нет (Все метки)

Вычислить значение суммы бесконечного ряда с заданной точностью ε=10-4 f(x)=1+(cos(pi/4)*x)/1!+...+(cosn(pi/4)*xn)/n!+...и значение функции (для проверки) f=excos(pi/4)*cos(xsin(pi/4));учесть, что функция определена при 0,1<=x<=1. Вывести на экран значение указанной функции и значение суммы ряда. Оба значения должны совпадать.

Добавлено через 13 часов 27 минут
Аппп
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.11.2015, 11:40
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вычислить значение суммы бесконечного ряда с заданной точностью (Free Pascal):

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

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

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

Составить программу вычисления суммы членов бесконечного ряда S с заданной точностью ε=
Только для 1 варианта. Составить программу вычисления суммы членов...

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

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

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

Решение

вообще-то вы ошибку в формуле ряда допустили
http://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{k = 0}^{n}=\frac{\cos \left(\frac{k \pi }{4} \right)}{k!}*{x}^{k}
ну и функцию до кучи. неужели не читабельнее?
http://www.cyberforum.ru/cgi-bin/latex.cgi?f=\exp\left(x\cos\left(\frac{\pi}{4}\right)\right)\cos\left(x\sin\left(\frac{\pi}{4}\right)\right)
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
const
    limA = 0.1;
    limB = 1;
    eps = 0.0001;
    pi4 = Pi / 4;
var
    i: Word = 0;
    x: Single;
    sum: Extended = 0;
    si: Extended = 1;
begin
    repeat
        Write('Input x: ');
        ReadLn(x);
    until ((x >= limA) And (x <= limB));
    while (Abs(si) >= eps) do
    begin
        sum := sum + si * Cos(i * pi4);
        Inc(i);
        si := si * x / i;
    end;
    WriteLn('sum=', sum:0:4);
    Write('  f=', (Exp(x * Cos(pi4)) * Cos(x * Sin(pi4))):0:4);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.11.2015, 00:10
Привет! Вот еще темы с решениями:

Алгоритм. Вычислить приближенное значение суммы бесконечного ряда
Вычислить приближенное значение суммы бесконечного ряда , до тех пор , пока...

Составить программу вычисления суммы бесконечного ряда с точностью EPS
составить программу вычисления суммы бесконечного ряда с точностью EPS....

Вычислить сумму бесконечного ряда с точностью е
Написать программу для обчисления суммы ряда с точностью е. program test;...

Вычислить сумму бесконечного ряда с точностью е
program test; var u, s :real; z, n :integer; fac :longint; i :byte; const...


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

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

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