Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
12 / 11 / 2
Регистрация: 13.09.2012
Сообщений: 147
1

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

20.09.2012, 11:29. Показов 1087. Ответов 1
Метки нет (Все метки)

Добрый день. Помогите пожалуйста решить данную задачку: 7(г). Заранее благодарю.
Дано действительное число x. Вычислить с точностью 10-6:

https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{k=1}^{\infty}\frac{1}{\sqrt{\left|x \right|}+{k}^{2}}
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.09.2012, 11:29
Ответы с готовыми решениями:

Операторы цикла: вычислить сумму бесконечного ряда
Добрый день. Помогите пожалуйста решить данную задачку: 4(г). Заранее благодарю. 4. Даны...

Операторы цикла: вычислить сумму ряда
Добрый день. Помогите пожалуйста решить данную задачку: 3(г). Заранее благодарю. 3. Даны...

Операторы цикла: вычислить сумму ряда
Задача: Операторы цикла Задание (Вложение) Кто нибудь знает такое?

Операторы цикла: вычислить сумму ряда
Вычислить значение функции: 7 Z = Ʃ 5x^2 + 2.5 / k k=1 ...

__________________
1
423 / 423 / 338
Регистрация: 25.06.2012
Сообщений: 668
21.09.2012, 17:38 2
Лучший ответ Сообщение было отмечено YamateH как решение

Решение

Если не ошибаюсь, то так..
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
const
  eps = 10E-6;
var
  x, Res, ResP : real;
  k : integer;
begin
Write('X = ');
Readln(x);
k := 0;
Res := 0;
Repeat
 k := k + 1;
 ResP := 1/(sqrt(abs(x)) + sqr(k)); 
 Res := Res + ResP;
until abs(ResP) < eps; 
Writeln('Result = ', Res:0:3, '; k = ', k);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.09.2012, 17:38

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

Операторы цикла: вычислить сумму ряда
Добрый день. Помогите пожалуйста решить данную задачку: 1(г). Заранее благодарю. 1. Дано...

Код итерационного цикла. Найти сумму бесконечного ряда
Помогите пожалуйста написать код!! Найти сумма бесконечного ряда \sum_{n = 1}^{\infty} \...

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

Вычислить сумму бесконечного ряда
Вычислить сумму бесконечного ряда с точностью (тут символ &quot;3&quot; перевёрнутый) (точность считается...


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

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

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