Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
fergus1207
0 / 0 / 1
Регистрация: 29.09.2017
Сообщений: 22
1

Вычисление заданной функции с некоторой погрешностью Eps путем разложения в ряд

29.09.2017, 13:22. Просмотров 835. Ответов 11
Метки нет (Все метки)

Номер 4.
Функция:Arctg(x).
Ряд:x-x^3/3+x^5/5-x^7/7!+... .
Ограничение:-1<X<1.
Примечание."^"-возведение в степень, "!"-факториал.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.09.2017, 13:22
Ответы с готовыми решениями:

Значение функции вычислить путем разложения ее в ряд Маклорена
Значение функции y(x)=(ex - e-x)/2 можно Вычислите с помощью разложения ее в...

Найти рекурентную формулу и вычислить таблицу значений функции путем разложения в ряд
найти рекуррентную формулу, разработать схему алгоритма и составить...

Найти рекуррентную формулу и вычислить таблицу значений функции путем разложения её в ряд
найти рекуррентную формулу и написать прогу вычисления таблицы значений функции...

Вычисление функции разложения в ряд
Вычислить и вывести на экран в виде таблицы значения функции, заданной с...

Вычисление значения функции в точке х, с помощью разложения в ряд Маклорена
надо написать программу для вычисление значение функции в точке х, с помощью...

11
Puporev
Модератор
54679 / 42100 / 29069
Регистрация: 18.05.2008
Сообщений: 99,353
29.09.2017, 13:56 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

В разложении arctg при |x|<=1 факториалов в знаменателе нет.
https://wikimedia.org/api/rest_v1/me...6846b03b044ccd
и не |x|<1, a |x|<=1
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var x,e,t,s:real;
    n:integer;
begin
repeat
write('Введите |x|<=1 x=');
readln(x);
until abs(x)<=1;
repeat
write('Введите точность 0<e>1 e=');
readln(e);
until (e>0)and(e<1);
t:=x;
s:=t;
n:=0;
while abs(t)/(2*n+1)>e do
 begin
  n:=n+1;
  t:=-t*x*x;
  s:=s+t/(2*n+1);
 end;
writeln('s=',s:13:4);
write('arctg(x)=',arctan(x):0:4)
end.
0
fergus1207
0 / 0 / 1
Регистрация: 29.09.2017
Сообщений: 22
29.09.2017, 15:27  [ТС] 3
А ГСА(граф.схема алгоритма ) можете сделать ?
0
Puporev
Модератор
54679 / 42100 / 29069
Регистрация: 18.05.2008
Сообщений: 99,353
29.09.2017, 15:44 4
Построено в редакторе по коду.
0
Миниатюры
Вычисление заданной функции с некоторой погрешностью Eps путем разложения в ряд  
fergus1207
0 / 0 / 1
Регистрация: 29.09.2017
Сообщений: 22
02.10.2017, 10:09  [ТС] 5
Что значит t и e, и можно подробнее узнать по 21 и 22 строке(то что в скобке ) ?
e это Eps ?
0
Puporev
Модератор
54679 / 42100 / 29069
Регистрация: 18.05.2008
Сообщений: 99,353
02.10.2017, 10:30 6
Цитата Сообщение от fergus1207 Посмотреть сообщение
Что значит t и e,
t-значение текущего члена ряда e-точность (eps)
Цитата Сообщение от fergus1207 Посмотреть сообщение
подробнее узнать по 21 и 22 строке
Pascal
1
2
writeln('s=',s:13:4);//выводим значение суммы с выделением 13 позиций в строке, с 4 знаками после запятой
write('arctg(x)=',arctan(x):0:4)//выводим значение функции  с 4 знаками после запятой
0
fergus1207
0 / 0 / 1
Регистрация: 29.09.2017
Сообщений: 22
02.10.2017, 11:06  [ТС] 7
Там ряд не 1,2,3,4 и тд а 1,3,5,7.и там все меняется.Я не знаю как делать
0
Puporev
Модератор
54679 / 42100 / 29069
Регистрация: 18.05.2008
Сообщений: 99,353
02.10.2017, 11:10 8
Цитата Сообщение от fergus1207 Посмотреть сообщение
Я не знаю как делать
Так я же Вам все сделал и написал. Там действительно ряд 1,3,5,7, потому и 2*n+1.
0
fergus1207
0 / 0 / 1
Регистрация: 29.09.2017
Сообщений: 22
02.10.2017, 13:16  [ТС] 9
Вычисление заданной функции с некоторой погрешностью Eps путем разложения в ряд
0
fergus1207
0 / 0 / 1
Регистрация: 29.09.2017
Сообщений: 22
02.10.2017, 13:17  [ТС] 10
Сказали цикл while не нужен
0
Миниатюры
Вычисление заданной функции с некоторой погрешностью Eps путем разложения в ряд  
Puporev
Модератор
54679 / 42100 / 29069
Регистрация: 18.05.2008
Сообщений: 99,353
02.10.2017, 13:25 11
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var x,e,t,s:real;
    n:integer;
begin
repeat
write('Введите |x|<=1 x=');
readln(x);
until abs(x)<=1;
repeat
write('Введите точность 0<e>1 e=');
readln(e);
until (e>0)and(e<1);
t:=x;
s:=t;
n:=0;
repeat
n:=n+1;
t:=-t*x*x;
s:=s+t/(2*n+1);
until abs(t)/(2*n+1)<=e;
writeln('s=',s:13:4);
write('arctg(x)=',arctan(x):0:4)
end.
0
fergus1207
0 / 0 / 1
Регистрация: 29.09.2017
Сообщений: 22
03.10.2017, 11:27  [ТС] 12
Можете подсказать по каким книгам учиться программированию начиная с основ?
0
03.10.2017, 11:27
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.10.2017, 11:27

Вычислить значение функции с помощью стандартных функций и путем разложения в ряд Тейлора с заданной точностью е при изменении аргумента в указанном диапазоне [a,b] с шагом
Помогите решить за дачу на Паскале пожалуйста... Мозг кипит... Сама задача в...

Вычисление значения функции с помощью разложения функции в степенной ряд
составить программу для вычисления значения функции y=1/(1+x) с помощью...

Вычисление функции y=ch(x) с помощью разложения функции в степенной ряд
составить программу для вычисления функции y=ch(x) с помощью разложения функции...


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

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

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