Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Taras_lebdyk
1 / 1 / 3
Регистрация: 17.09.2013
Сообщений: 276
#1

Выполнить суммирование членов бесконечного ряда - Pascal ABC

06.10.2013, 13:04. Просмотров 326. Ответов 2
Метки нет (Все метки)

1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний
член ряда по абсолютной величине не будет меньше абсолютной точности
Δ=10-4...10-10 или пока не будет просуммировано заранее заданное число членов
бесконечного ряда.
2. Сравнить вычисленную сумму членов бесконечного ряда с образцовым
значением, полученным в виде константы или вычисленным по формуле.
0
Миниатюры
Выполнить суммирование членов бесконечного ряда  
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.10.2013, 13:04
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Выполнить суммирование членов бесконечного ряда (Pascal ABC):

Выполнить суммирование членов бесконечного ряда
1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний...

Выполнить суммирование членов бесконечного ряда
1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний...

Выполнить суммирование членов бесконечного ряда
1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний...

Выполнить суммирование членов бесконечного ряда
1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний...

Выполнить суммирование членов бесконечного ряда
1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний...

Выполнить суммирование членов бесконечного ряда
1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний...

2
Samhain
690 / 565 / 413
Регистрация: 31.03.2013
Сообщений: 1,029
06.10.2013, 14:07 #2
Лучший ответ Сообщение было отмечено Taras_lebdyk как решение

Решение

Taras_lebdyk,
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const e=1E-10;
var s,si,x:real;
    i,n:integer;
begin
  write('n = ');readln(n);
  repeat
    write('|x|<1, x = ');readln(x);
  until abs(x)<1;
  s:=1;si:=x/2;i:=1;
  repeat
    s:=s+si;
    si:=-si*x*(2*i-1)/(2*i+2);
    inc(i);
  until (abs(si)<e)or(i=n);
  write('s = ',s:0:10,', sqrt(1+x) = ',sqrt(1+x):0:10);
  readln
end.
1
Puporev
Модератор
54149 / 41782 / 28889
Регистрация: 18.05.2008
Сообщений: 98,331
06.10.2013, 14:12 #3
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
uses crt;
var x,e,t,s:real;
    n,i:integer;
begin
repeat
write('|x|<1 x=');
read(x);
until abs(x)<1;
repeat
write('e=[10^-10..10^4] e=');
read(e);
until (e>=10e-10)and(e<=10e-4);
write('Максиальное число итераций n=');
read(n);
i:=1;
t:=x/2;
s:=1+x/2;
repeat
  i:=i+1;
  t:=-t*(2*i-3)*x/(2*i);
  s:=s+t;
until (abs(t)<e)or(i=n);
writeln('Выч.сумма=',s:0:10);
writeln('Достигнутая точность=',abs(t):0:10);
writeln('Число итераций=',i);
write('sqrt(1+x))=',sqrt(1+x):0:10);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.10.2013, 14:12
Привет! Вот еще темы с решениями:

Выполнить суммирование членов бесконечного ряда
1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний...

Выполнить суммирование членов бесконечного ряда
1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний...

Выполнить суммирование членов бесконечного ряда
1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний...

Выполнить суммирование членов бесконечного ряда
1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний...


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

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

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