Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.62/13: Рейтинг темы: голосов - 13, средняя оценка - 4.62
0 / 0 / 0
Регистрация: 07.02.2014
Сообщений: 18
1

Вычислить arctg(x) с заданной точностью

23.01.2015, 16:43. Показов 2323. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program lab3;
Const eps=0.005;
var h,s,x:real;
    n,st,b:integer;
begin
Writeln ('введите x');
Readln(x);
h:=1/x-1/(3*x*x*x);
s:=h;
n:=1; b:=1;
while h/n>eps do
   begin
     n:=n+1;
     st:=2*n+1;
     h:=1/(st*exp(ln(x)*st));
     s:=s+b*h;     
     b:=b*(-1);
   end;
writeln ('arctg(',x,') =',s:4:8);
writeln ('количество членов ряда =',n);
writeln ('заданная точность =',eps);
end.
вот что выдает: введите x
45
arctg(45) =0.02221857
количество членов ряда =2
заданная точность =0.005
Хотя arctg(45) =1.54857776 rad.
Вот именно с этими рядами и точностью вот никак не могу...

https://www.cyberforum.ru/cgi-bin/latex.cgi?arctg(x)\approx s=\frac{1}{x}-\frac{1}{3x^3}+\frac{1}{5x^5}-...+\frac{(-1)^n}{(2n+1)x^{2n+1}}
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.01.2015, 16:43
Ответы с готовыми решениями:

Вычислить сумму с заданной точностью
1/x^3*k^2 k равно 1 и стремиться к бесконечности Вычислить сумму с точностью е при заданном x:...

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

Вычислить выражения с заданной точностью
Вычислить выражения z=1+2\sum_{k=1 }^{\propto}{(-1)}^{k}{e }^{(-2kx)} при х= 0,986 с точностью...

Вычислить число Пи с заданной точностью
Нужно вычислить число Пи с заданной точностью по формуле: \frac{2}{\pi...

__________________
1
Модератор
63348 / 47054 / 32433
Регистрация: 18.05.2008
Сообщений: 114,055
23.01.2015, 21:08 2
Так это разложение в ряд функции arcctg(x);
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var x,e,t,s:real;
    n:integer;
begin
write('x=');
readln(x);
n:=0;
e:=0.005;
t:=1/x;
s:=t;
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:0:4);
write('arcctg=',arctan(1/x):0:4);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.01.2015, 21:08

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

Вычислить факториал с заданной точностью
Дано выражение \sum_{i=1}^{6}{i}^{0.4}\sum_{j=1}^{\infty}\frac{{10}^{0.1ij}}{j!-{j}^{2}+5.2}...

Вычислить сумму с заданной точностью
вычислить сумму с заданной точностью e (e>0 b e<1) от 0 до бесконечности (-2)^i/i! вот что у меня...

Вычислить сумму ряда с заданной точностью
Program lab3; Const eps=5e-5; var h,s,p:real; f,n,n1,st,b:integer; begin p:=pi/3; h:=p;...


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

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

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