Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
_LeO_
2 / 2 / 0
Регистрация: 20.09.2009
Сообщений: 54
#1

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

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

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

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

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

Вычисление суммы бесконечного ряда с заданной точностью - Pascal
Вычислить значение суммы бесконечного ряда S=1+(ln(3)/1!)*x+(ln^2(3)/2!)*x^2+..+(ln^n(3)/n!)*x^n... , с точностью до члена ряда, по модулю...

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

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

Подсчет суммы ряда с заданной точностью - Pascal
Помогите пожалуйста с программой в Pascal Написать программу подсчета суммы ряда с заданной точностью е=0,0001: sum...

2
Inadequate
Retired
7707 / 2540 / 184
Регистрация: 17.10.2009
Сообщений: 5,106
29.11.2009, 04:06 #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
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
люди добрые, помогите решить!срочно!!!выручите пожалуйста......буду благодарен

Составить программу вычисления суммы ряда с заданной точностью - Pascal
составить программу вычисления суммы ряда с точностью \varepsilon ={10}^{-4} \sum_{n-1}^{\propto }n!/(2n)!

Составить алгоритм и программу нахождения суммы ряда с заданной точностью Е - Pascal
У меня проблемы с паскалем((( Уже не знаю что делать, куда бежать! Помогите пожалуйста програмку написать. Очень срочно!!!! Задача:...

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


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

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

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