Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
lera-tus
0 / 0 / 0
Регистрация: 08.05.2013
Сообщений: 9
1

Вычислить сумму ряда

09.05.2013, 00:12. Просмотров 882. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста с написанием программы на pascal
Вычислить сумму ряда с точностью eps=10-6
0
Миниатюры
Вычислить сумму ряда  
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.05.2013, 00:12
Ответы с готовыми решениями:

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

Вычислить сумму ряда
Вычислить сумму ряда S=sin (1) +sin (2) +. +sin (n) для n введенного клавиатуры с постусловием блок...

Вычислить сумму ряда: 4+8+10+14+...
Составьте программу, вычисляющую сумму ряда: 4+8+10+14+... для n=56

Вычислить сумму ряда
Не могу понять как это решается:cry: Вычислить S=2+Cos x+Cos3x+ Cos5x+…+ Cos15x при заданном...

Вычислить сумму ряда
Вычислить сумму ряда с точность до 0,001....

2
CodeR
Фрилансер
3386 / 2787 / 3000
Регистрация: 08.02.2012
Сообщений: 7,039
Записей в блоге: 1
09.05.2013, 09:28 2
Лучший ответ Сообщение было отмечено lera-tus как решение

Решение

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
Const eps=10E-6;
Var x,f,st,a,s:real;
    i,ik,ir:byte;
Begin
    write('Введите x: ');readln(x);
    i:=0;ik:=0;ir:=0;f:=1;st:=1;
    Repeat
      inc(i);
      While ik<4*i do
      Begin
        inc(ik);
        f:=f*ik;
      End;
      While ir<4*i-3 do
      Begin
        inc(ir);
        st:=st*x;
      End;
      a:=(st*(4*i-x))/f;
      s:=s+a;
    Until a<eps;
    writeln('Сумма ряда = ',s:0:2);
    readln;
End.
1
lera-tus
0 / 0 / 0
Регистрация: 08.05.2013
Сообщений: 9
09.05.2013, 13:55  [ТС] 3
Спасибо за помощь! С праздником Победы!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.05.2013, 13:55

Вычислить сумму ряда
помогите пожалуйста вычислить сумму: -1+1/2-1/4+1/8-...+-1^n/2^n-1

Вычислить сумму ряда
пользователь вводит натуральное число N. Программа вычисляет сумму S:...

Вычислить сумму ряда
Вычислите сумму ряда с заданной степенью точности \alpha :\sum_{beskonechnost}^{n=1} (-1)^n*...


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

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

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