Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
_LeO_
2 / 2 / 0
Регистрация: 20.09.2009
Сообщений: 54
1

Вычисление суммы ряда с заданной точностью (функция и процедура)

28.11.2009, 22:50. Просмотров 701. Ответов 2
Метки нет (Все метки)

написать программу по вычислению бесконечной суммы с точностью 0,001, используя подпрограмму-функцию и подпрограмму-процедуру.
0
Изображения
 
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.11.2009, 22:50
Ответы с готовыми решениями:

Вычисление суммы ряда e^x с заданной точностью
Составить программу для вычисления e^x=1 + x/1! + x^2/2! + ... + x^n/n! +...

Вычисление суммы ряда с заданной точностью
1 Даны действительные числа x, ε (x≠0, ε>0). Вычислить с точностью ε(ε=10-3,...

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

Вычисление суммы ряда (функция или процедура)
Составьте программу для вычисления суммы ряда .S=2/3 *N + 2/3 * N^2 + 2/3 *N^n....

Цикл: вычисление суммы членов бесконечного ряда с точностью до члена ряда, меньшего ε
Добрый вечер, помогите пожалуйста: Составить программу для вычисления суммы...

2
Inadequate
Retired
7710 / 2543 / 670
Регистрация: 17.10.2009
Сообщений: 5,100
29.11.2009, 04:06 2
Лучший ответ Сообщение было отмечено _LeO_ как решение

Решение

Видимо здесь пропущены слова "по модулю", потому как буз этого наш цикл остановится сразу на первом повторе. Правильность вычислений не проверял, время позднее, да и лень честно говоря, но "на глаз" считает вроде верно:
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
{ïðîöåäóðГ*}
procedure PSig;
const
  eps=0.001;
var
  res,an:real;
  n:integer;
begin
  res:=0;
  n:=1;
  repeat
    an:=1/(n*(n+2));
    if odd(n) then
      an:=an*(-1);
    res:=res+an;
    inc(n)
  until
    abs(an)<eps;
  writeln(res)
end;
{ГґГіГ*êöèÿ}
function FSig:real;
const
  eps=0.001;
var
  res,an:real;
  n:integer;
begin
  res:=0;
  n:=1;
  repeat
    an:=1/(n*(n+2));
    if odd(n) then
      an:=an*(-1);
    res:=res+an;
    inc(n)
  until
    abs(an)<eps;
  FSig:=res
end;
{îñГ*îâГ*Г*Гї ïðîãðГ*ììГ*}
begin
  writeln(FSig);
  PSig
end.
1
_LeO_
2 / 2 / 0
Регистрация: 20.09.2009
Сообщений: 54
29.11.2009, 13:37  [ТС] 3
большое спасибо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.11.2009, 13:37

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

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

Составить программу вычисления суммы ряда с заданной точностью
составить программу вычисления суммы ряда с точностью \varepsilon ={10}^{-4} ...


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

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

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