1 / 1 / 0
Регистрация: 27.12.2014
Сообщений: 25
1

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

31.12.2014, 09:42. Показов 964. Ответов 10
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дано действительное х.Вычислить с заданной точностью(10^-6) сумму ряда (сумма от к=1 до бесконечности выражения(1/x^2+K^3).
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
const z=0.000001;
var s,x:real;
      k:integer;
begin
K:=1;
s:=0;
writeln('Введите х');
readln(x);
while s>z do
s:=s+1/x*x+k*k*k;
k:=k+1;
writeln(s:0:5);
readln;
end.
Запускается,но при любом х выдает нули.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.12.2014, 09:42
Ответы с готовыми решениями:

Вычислить сумму ряда с заданной точностью
Помогите пожалуйста!) нужно решение в Free Pascal) Вот задание: Не используя стандартные функции...

Вычислить сумму ряда с заданной точностью
Помогите пожалуйста написать программу. И если можно с подробным описанием. Заранее спасибо)...

Вычислить сумму ряда с заданной точностью
Вычислить бесконечную* сумму с заданной точностью e (e>0).* Счи- тать,* что требуемая точность...

Вычислить с заданной точностью сумму ряда
а сможешь помочь вот с этим: вычислить с заданной точностью сумму ряда (сумма от i=1 до...

10
охотник
1011 / 535 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
31.12.2014, 10:04 2
у Вас цикл не выполняется ни разу, т.к. s=0 и z=0.000001, тогда s>z - ложь
0
1 / 1 / 0
Регистрация: 27.12.2014
Сообщений: 25
31.12.2014, 10:12  [ТС] 3
vint-81 спасибо.
0
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
31.12.2014, 11:11 4
Цитата Сообщение от Чайник_Валера Посмотреть сообщение
выражения(1/x^2+K^3).
Думаю что выражение 1/(x^2+k^3) иначе вряд ли сойдется ряд.

Добавлено через 5 минут
Тогда так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
const z=0.000001;
var s,t,x:real;
    k:integer;
begin
write('x=');
readln(x);
k:=1;
t:=1/(x*x+1);
s:=t;
while t>z do
 begin
  k:=k+1;
  t:=1/(x*x+k*k*k);
  s:=s+t
 end;
writeln(s:0:5);
readln;
end.
0
1 / 1 / 0
Регистрация: 27.12.2014
Сообщений: 25
31.12.2014, 12:09  [ТС] 5
подскажите, пожалуйста ,а можно ли так:
Pascal
1
2
3
4
5
6
K:=1;
s:=0;
while 1/(x*x+k*k*k)>z do begin
s:=s+1/(x*x+k*k*k);
k:=k+1;
end:
0
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
31.12.2014, 12:24 6
Цитата Сообщение от Чайник_Валера Посмотреть сообщение
а можно ли так:
Ну запусти да проверь.

Добавлено через 2 минуты
Тебе уже писали что если s:=0 то ничего не выйдет, напиши
Pascal
1
s:=1/(x*x+1);
0
1 / 1 / 0
Регистрация: 27.12.2014
Сообщений: 25
31.12.2014, 12:35  [ТС] 7
puporev, проверял работает,но значение другие, чем при использования вашего кода.И мне писали ,что при s:=0 цикл не выполняется т.к s>z - ложь.Так почему не подходит while 1/(x*x+k*k*k)>z do.
0
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
31.12.2014, 12:37 8
Цитата Сообщение от Чайник_Валера Посмотреть сообщение
т.к s>z - ложь
Все верно, я ошибся.
0
1 / 1 / 0
Регистрация: 27.12.2014
Сообщений: 25
31.12.2014, 12:51  [ТС] 9
но, не пойму почему разные ответы при
Pascal
1
2
3
4
5
6
K:=1;
s:=0;
while 1/(x*x+k*k*k)>z do begin
s:=s+1/(x*x+k*k*k);
k:=k+1;
end;
и вашим
Pascal
1
2
3
4
5
6
7
8
9
k:=1;
t:=1/(x*x+1);
s:=t;
while t>z do
 begin
  k:=k+1;
  t:=1/(x*x+k*k*k);
  s:=s+t
 end;
0
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
31.12.2014, 13:26 10
У меня одно и тоже
Миниатюры
Вычислить с заданной точностью сумму ряда.  
1
1 / 1 / 0
Регистрация: 27.12.2014
Сообщений: 25
31.12.2014, 13:35  [ТС] 11
Сейчас перепроверю.

Добавлено через 6 минут
Puporev,спасибо за помощь.
0
31.12.2014, 13:35
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.12.2014, 13:35
Помогаю со студенческими работами здесь

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

Найти с заданной точностью сумму ряда
кто-нибудь может помочь? Найти с заданной точностью сумму ряда...

Найти сумму ряда с заданной точностью
Найти сумму ряда с заданной точностью. Помогите, пожалуйста. ...

Найти сумму ряда с заданной точностью
Вычислить формулу по заданию №1 с точностью до 0.001, определив количество проходов n. Вот формула...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru