Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 02.03.2013
Сообщений: 28
1

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

02.03.2013, 13:09. Показов 597. Ответов 7
Метки нет (Все метки)

Ребята выручайте пожалуста... Очень надо.
Только пожалуста сделайте сразу с точностю...
0
Миниатюры
Выполнить суммирование членов бесконечного ряда   Выполнить суммирование членов бесконечного ряда  
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.03.2013, 13:09
Ответы с готовыми решениями:

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

Выполнить суммирование членов бесконечного ряда
Помогите плиз сделать, добрые люди! :) Заранее благодарю :)

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

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

7
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,127
02.03.2013, 13:24 2
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
uses crt;
var x,e,t,s:real;
    n:integer;
begin
clrscr;
write('x=');
readln(x);
repeat
write('e [10^-6..10^-4] e=');
readln(e);
until(e>=0.000001)and(e<=0.0001);
n:=0;
t:=1;
s:=t;
while abs(t)>e do
 begin
  n:=n+1;
  t:=-t*x*x/(2*n*(2*n-1));
  s:=s+t;
 end;
writeln('S=',s:0:6);
write('cos(x)=',cos(x):0:6);
readln
end.
1
0 / 0 / 0
Регистрация: 02.03.2013
Сообщений: 28
11.03.2013, 12:08  [ТС] 3
Ребята, напишите пожалуйста тоже самое только не по точности а по суммированию членов, спасибо)
0
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,127
11.03.2013, 12:39 4
Цитата Сообщение от Drs26 Посмотреть сообщение
а по суммированию членов,
А в программе разве не суммирование?
Pascal
1
s:=s+t;
Или что-то не соответствует условию?
0
0 / 0 / 0
Регистрация: 02.03.2013
Сообщений: 28
11.03.2013, 13:20  [ТС] 5
Нет, все отлично тока когда я все пишу... ответ решение является точностью а мне надо надо что бы решало количество членов...
0
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,127
11.03.2013, 13:24 6
Значит пишешь не то что у меня
У меня выводит суму(s) и точное значение (cos)
0
Миниатюры
Выполнить суммирование членов бесконечного ряда  
0 / 0 / 0
Регистрация: 02.03.2013
Сообщений: 28
13.03.2013, 22:43  [ТС] 7
я понимаю, поэтому прошу может кто то сделать по решению количество членов?
0
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,127
14.03.2013, 08:30 8
Ни украсть, ни покараулить...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var x,t,s:real;
    n,i:integer;
begin
clrscr;
write('x=');
readln(x);
write('n=');
readln(n);
t:=1;
s:=t;
for i:=1 to n do
 begin
  t:=-t*x*x/(2*i*(2*i-1));
  s:=s+t;
 end;
writeln('S=',s:0:6);
write('cos(x)=',cos(x):0:6);
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.03.2013, 08:30

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

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

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

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

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


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

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

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